← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to tests/test-run.pl

  • Committer: Lee Bieber
  • Date: 2011-01-15 03:08:27 UTC
  • mfrom: (1994.5.38 doc)
  • mto: This revision was merged to the branch mainline in revision 2087.
  • Revision ID: kalebral@gmail.com-20110115030827-0h9s99kiknrmt9ti
Merge Stewart - some documentation clean up

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"; # Default suites to run
 
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
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
 
 
 
377
    # Figure out which tests we are going to run
378
378
    if (!$opt_suites)
379
379
    {
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
 
        }
 
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
      }
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
 
618
620
  usage("you cannot specify --gdb and --dbx both!") if 
619
621
        ($opt_gdb && $opt_dbx) ||
620
622
        ($opt_manual_gdb && $opt_manual_dbx);
661
663
  # distributions, TAR binary distributions and some other packages.
662
664
  $glob_basedir= dirname($glob_drizzle_test_dir);
663
665
 
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 "stress"; # Currently fails
678
 
          next if $elem eq "broken"; # Old broken test, mainly unsupported featurs
679
 
 
680
 
          my $local_dir= "$suitedir/$elem";
681
 
 
682
 
          next unless -d $local_dir;
683
 
          next unless -d "$local_dir/t"; # We want to make sure it has tests
684
 
          next unless -d "$local_dir/r"; # Ditto, results
685
 
 
686
 
          $opt_suites_default.= ",$elem";
687
 
      }
688
 
      closedir(SUITE_DIR);
689
 
  }
690
 
 
691
 
  usage("") if $opt_usage;
692
 
 
693
666
  # In the RPM case, binaries and libraries are installed in the
694
667
  # default system locations, instead of having our own private base
695
668
  # directory. And we install "/usr/share/drizzle-test". Moving up one