~johnemb/randgen/xml-report

« back to all changes in this revision

Viewing changes to unit/TestScripts.pm

  • Committer: John H. Embretsen
  • Date: 2010-04-08 13:28:06 UTC
  • mfrom: (140.20.39 lp-randgen)
  • Revision ID: john.embretsen@sun.com-20100408132806-vqufmjdcxqjws95j
XML: Merge in post-merge fixes and latest changes from lp:randgen. Revno 386 2010-04-08

Show diffs side-by-side

added added

removed removed

Lines of Context:
40
40
sub test_gensql {
41
41
    my $self = shift;
42
42
 
43
 
    my $status = system("perl gensql.pl --grammar=conf/examples/example.yy --dsn=dummy --queries=1");
 
43
    my $status = system("perl -MCarp=verbose gensql.pl --grammar=conf/examples/example.yy --dsn=dummy --queries=1");
44
44
 
45
45
    $self->assert_equals(0, $status);
46
46
 
47
 
    my $status = system("perl gensql.pl --grammar=unit/testStack.yy --dsn=dummy --queries=5");
 
47
    my $status = system("perl -MCarp=verbose gensql.pl --grammar=unit/testStack.yy --dsn=dummy --queries=5");
48
48
 
49
49
    $self->assert_equals(0, $status);
50
50
 
53
53
sub test_gendata {
54
54
    my $self = shift;
55
55
 
56
 
    my $status = system("perl gendata.pl --spec=conf/examples/example.zz --dsn=dummy");
 
56
    my $status = system("perl -MCarp=verbose gendata.pl --spec=conf/examples/example.zz --dsn=dummy");
57
57
 
58
58
    $self->assert_equals(0, $status);
59
59
}
61
61
sub test_gendata_old {
62
62
    my $self = shift;
63
63
 
64
 
    my $status = system("perl gendata-old.pl --dsn=dummy");
 
64
    my $status = system("perl -MCarp=verbose gendata-old.pl --dsn=dummy");
65
65
 
66
66
    $self->assert_equals(0, $status);
67
67
}
69
69
sub test_gentest {
70
70
    my $self = shift;
71
71
 
72
 
    my $status = system("perl gentest.pl --dsn=dummy --grammar=conf/examples/example.yy --threads=1 --queries=1");
 
72
    my $status = system("perl -MCarp=verbose gentest.pl --dsn=dummy --grammar=conf/examples/example.yy --threads=1 --queries=1");
73
73
 
74
74
    $self->assert_equals(0, $status);
75
75
 
76
 
    $status = system("perl gentest.pl --dsn=dummy --grammar=conf/examples/example.yy --threads=1 --queries=1 --mask=10 --mask-level=2");
 
76
    $status = system("perl -MCarp=verbose gentest.pl --dsn=dummy --grammar=conf/examples/example.yy --threads=1 --queries=1 --mask=10 --mask-level=2");
77
77
 
78
78
    $self->assert_equals(0, $status);
79
79
}
90
90
    ## This test requires RQG_MYSQL_BASE to point to a in source Mysql database
91
91
    if ($ENV{RQG_MYSQL_BASE}) {
92
92
        $ENV{LD_LIBRARY_PATH}=join(":",map{"$ENV{RQG_MYSQL_BASE}".$_}("/libmysql/.libs","/libmysql","/lib/mysql"));
93
 
        my $status = system("perl ./runall.pl --mtr-build-thread=$pb --grammar=conf/examples/example.yy --gendata=conf/examples/example.zz --queries=3 --threads=3 --basedir=".$ENV{RQG_MYSQL_BASE});
 
93
        my $status = system("perl -MCarp=verbose ./runall.pl --mtr-build-thread=$pb --grammar=conf/examples/example.yy --gendata=conf/examples/example.zz --queries=3 --threads=3 --basedir=".$ENV{RQG_MYSQL_BASE});
94
94
        $self->assert_equals(0, $status);
95
95
    }
96
96
}
104
104
    
105
105
    if ($ENV{RQG_MYSQL_BASE}) {
106
106
        $ENV{LD_LIBRARY_PATH}=join(":",map{"$ENV{RQG_MYSQL_BASE}".$_}("/libmysql/.libs","/libmysql","/lib/mysql"));
107
 
        my $status = system("perl ./runall-new.pl --mtr-build-thread=$pb --grammar=conf/examples/example.yy --gendata=conf/examples/example.zz --queries=3 --threads=3 --basedir=".$ENV{RQG_MYSQL_BASE}." --vardir=".cwd()."/unit/tmp");
 
107
        my $status = system("perl -MCarp=verbose ./runall-new.pl --mtr-build-thread=$pb --grammar=conf/examples/example.yy --gendata=conf/examples/example.zz --queries=3 --threads=3 --basedir=".$ENV{RQG_MYSQL_BASE}." --vardir=".cwd()."/unit/tmp");
108
108
        $self->assert_equals(0, $status);
109
109
    }
110
110
}