← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to tests/test-run.pl

  • Committer: Brian Aker
  • Date: 2011-01-18 07:21:16 UTC
  • mfrom: (2079.3.3 session-fix)
  • Revision ID: brian@tangent.org-20110118072116-nuflltzguzhq9rgg
Merge in update so that test-run.pl runs all of test/suite and fix for
create table like and FK.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/test-run.pl
148
148
 
149
149
our $opt_usage;
150
150
our $opt_suites;
151
 
our $opt_suites_default= "main,bool_type,cast,flush_tables,identifiers,jp,mysql_compatibility,regression,tamil,time_type,unsigned_integer_type,uuid_type"; # Default suites to run
 
151
our $opt_suites_default= "main"; # Default suites to run
152
152
our $opt_script_debug= 0;  # Script debugging, enable with --script-debug
153
153
our $opt_verbose= 0;  # Verbose output, enable with --verbose
154
154
 
374
374
  }
375
375
  else
376
376
  {
377
 
    # Figure out which tests we are going to run
 
377
 
378
378
    if (!$opt_suites)
379
379
    {
380
 
      $opt_suites= $opt_suites_default;
381
 
 
382
 
      # Check for any extra suites to enable based on the path name
383
 
      my %extra_suites= ();
384
 
 
385
 
      foreach my $dir ( reverse splitdir($glob_basedir) )
386
 
      {
387
 
        my $extra_suite= $extra_suites{$dir};
388
 
        if (defined $extra_suite){
389
 
          dtr_report("Found extra suite: $extra_suite");
390
 
          $opt_suites= "$extra_suite,$opt_suites";
391
 
          last;
392
 
        }
393
 
      }
 
380
 
 
381
        $opt_suites= $opt_suites_default;
 
382
 
 
383
        my %extra_suites= ();
 
384
 
 
385
        foreach my $dir ( reverse splitdir($glob_basedir) )
 
386
        {
 
387
            my $extra_suite= $extra_suites{$dir};
 
388
            if (defined $extra_suite){
 
389
                dtr_report("Found extra suite: $extra_suite");
 
390
                $opt_suites= "$extra_suite,$opt_suites";
 
391
                last;
 
392
            }
 
393
        }
394
394
    }
395
395
 
396
396
    my $tests= collect_test_cases($opt_suites);
615
615
             'help|h'                   => \$opt_usage,
616
616
            ) or usage("Can't read options");
617
617
 
618
 
  usage("") if $opt_usage;
619
 
 
620
618
  usage("you cannot specify --gdb and --dbx both!") if 
621
619
        ($opt_gdb && $opt_dbx) ||
622
620
        ($opt_manual_gdb && $opt_manual_dbx);
663
661
  # distributions, TAR binary distributions and some other packages.
664
662
  $glob_basedir= dirname($glob_drizzle_test_dir);
665
663
 
 
664
  # Figure out which tests we are going to run
 
665
  my $suitedir= "$glob_drizzle_test_dir/suite";
 
666
  if ( -d $suitedir )
 
667
  {
 
668
      opendir(SUITE_DIR, $suitedir)
 
669
          or dtr_error("can't open directory \"$suitedir\": $!");
 
670
 
 
671
      while ( my $elem= readdir(SUITE_DIR) )
 
672
      {
 
673
          next if $elem eq ".";
 
674
          next if $elem eq "..";
 
675
          next if $elem eq "big"; # Eats up too much disk
 
676
          next if $elem eq "large_tests"; # Eats up too much disk
 
677
          next if $elem eq "execute"; # Eats up a lot of CPU
 
678
          next if $elem eq "stress"; # Currently fails
 
679
          next if $elem eq "broken"; # Old broken test, mainly unsupported featurs
 
680
 
 
681
          my $local_dir= "$suitedir/$elem";
 
682
 
 
683
          next unless -d $local_dir;
 
684
          next unless -d "$local_dir/t"; # We want to make sure it has tests
 
685
          next unless -d "$local_dir/r"; # Ditto, results
 
686
 
 
687
          $opt_suites_default.= ",$elem";
 
688
      }
 
689
      closedir(SUITE_DIR);
 
690
  }
 
691
 
 
692
  usage("") if $opt_usage;
 
693
 
666
694
  # In the RPM case, binaries and libraries are installed in the
667
695
  # default system locations, instead of having our own private base
668
696
  # directory. And we install "/usr/share/drizzle-test". Moving up one