4 BEGIN { print "1..1\n" }
8 id int auto_increment PRIMARY KEY,
9 foo varchar(255) not null default '',
17 $SQL::Translator::DEBUG = 0;
19 my $tr = SQL::Translator->new(parser => "MySQL",
21 #producer => "SQL::Translator::Producer::Oracle::translate"
22 #producer => sub { Dumper($_[1]) }
25 print "not " unless ($tr->translate(\$create));
26 print "ok 1 # pointless test -- plz fix me!\n";