← Back to branch summary

~patrick-crews/randgen/bug961630

« back to all changes in this revision

Viewing changes to pb2gentest-new.pl

  • Committer: eve
  • Date: 2010-08-28 13:09:43 UTC
  • mfrom: (498.1.13 randgen-fixes)
  • Revision ID: philips@eve-20100828130943-4ekym0l7tm9bmnnm
merge

Show diffs side-by-side

added added

removed removed

Lines of Context:
pb2gentest-new.pl
601
601
                --mysqld=--innodb
602
602
        ';
603
603
#
604
 
# opt: Optimizer tests, primarily used for 5.1 regression testing...
605
 
#
 
604
# opt: Optimizer tests in "nice mode", primarily used for regression testing (5.1 and beyond).
 
605
#      By "nice mode" we mean relatively short duration and/or num of queries and fixed seed.
606
606
#
607
607
} elsif ($test =~ m{^opt_access_exp}io ) {
608
608
    # More queries drastically increases runtime.
663
663
        --duration=1200
664
664
        ';
665
665
} elsif ($test =~ m{^outer_join}io ) {
666
 
    # Any larger queries value than 30k will cause a known/documented crash (5.1).
 
666
    # Any larger queries value than 30k used to cause a known/documented crash (5.1).
 
667
    # This seems to have been fixed by now.
667
668
    # Produces large and time consuming queries, so we use a larger than default
668
669
    # duration to allow even slower machines to do useful testing.
669
670
        $command = '
670
671
        --threads=1
671
 
        --queries=30K
 
672
        --queries=80K
672
673
        --gendata='.$conf.'/optimizer/outer_join.zz
673
674
        --grammar='.$conf.'/optimizer/outer_join.yy
674
 
        --duration=1200
 
675
        --duration=900
675
676
        ';
676
677
#
677
678
# End of optimizer tests.
995
996
        } else {
996
997
                print($full_test_name." [ fail ]\n");
997
998
        }
998
 
        say('runall.pl failed with exit code '.$command_result_shifted."\n");
 
999
        say('runall-new.pl failed with exit code '.$command_result_shifted."\n");
999
1000
        say("Look above this message in the test log for failure details.\n");
1000
1001
} else {
1001
1002
        print($full_test_name." [ pass ]\n");
1015
1016
        # If you need to run pslist or pskill as non-Admin user, some adjustments
1016
1017
        # may be needed. See:
1017
1018
        #   http://blogs.technet.com/markrussinovich/archive/2007/07/09/1449341.aspx
 
1019
 
 
1020
        # Vardir may be relative path on windows, so convert to absolute path first:
 
1021
        my $vardir_abspath = $vardir;
 
1022
        if ($vardir !~ m/^[A-Z]:[\/\\]/i) {
 
1023
            # use basedir as prefix
 
1024
            $vardir_abspath = $basedir.'\\'.$vardir;
 
1025
        }
 
1026
 
1018
1027
        if (system('C:\bin\pslist mysqld') == 0) {
1019
1028
                say(" ^--- Found running mysqld process(es), to be killed if possible.\n");
1020
 
                system('C:\bin\pskill mysqld > '.$vardir.'/pskill_mysqld.out 2>&1');
1021
 
                system('C:\bin\pskill mysqld-nt > '.$vardir.'/pskill_mysqld-nt.out 2>&1');
 
1029
                system('C:\bin\pskill mysqld > '.$vardir_abspath.'/pskill_mysqld.out 2>&1');
 
1030
                system('C:\bin\pskill mysqld-nt > '.$vardir_abspath.'/pskill_mysqld-nt.out 2>&1');
1022
1031
        } else { say("  None found.\n"); }
1023
1032
        
1024
1033
} else {