← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to t/gentest.t

initial import from internal tree

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/gentest.t
 
1
use strict;
 
2
use lib 'lib';
 
3
use lib '../lib';
 
4
 
 
5
use GenTest::Constants;
 
6
use Test::More tests => 1;
 
7
 
 
8
my $exit_code = system("perl gentest.pl --dsn=dbi:mysql:host=127.0.0.1:port=12345:user=foo:database=bar --grammar=t/gensql.yy");
 
9
ok (($exit_code >> 8) == STATUS_ENVIRONMENT_FAILURE, 'gentest_baddsn');