Added test structure.

[dbsrgits/SQL-Translator.git] / t / 03mysql-to-oracle.t

diff --git a/t/03mysql-to-oracle.t b/t/03mysql-to-oracle.t
index a40a219..6eb3279 100644 (file)
--- a/t/03mysql-to-oracle.t
+++ b/t/03mysql-to-oracle.t
@@ -22,4 +22,6 @@ my $tr = SQL::Translator->new(parser   => "MySQL",
                               #producer => sub { Dumper($_[1]) }
                              );
 
-print $tr->translate(\$create);
+print "not " unless ($tr->translate(\$create));
+print "ok 1 # pointless test -- plz fix me!\n";
+