← 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-14 04:49:11 UTC
  • mto: This revision was merged to the branch mainline in revision 2093.
  • Revision ID: brian@tangent.org-20110114044911-zqblqsce4pvp90h6
Fix test to grab all suites (minus a few exceptions) and run them.

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