Test changes
Darren Chamberlain [Thu, 21 Mar 2002 18:07:46 +0000 (18:07 +0000)]
t/05bgep-re.t
t/data/mysql/Apache-Session-MySQL.sql

index 18bd3ff..495be5f 100644 (file)
@@ -2,14 +2,17 @@
 # vim: set ft=perl:
 #
 
+#BEGIN { print "0..0\n"; }
+
 use strict;
 use Data::Dumper;
 use SQL::Translator;
-use SQL::Translator::Parser::MySQL qw(parse);
+use SQL::Translator::Parser::MySQL;
+use SQL::Translator::Producer::XML;
 
 $SQL::Translator::DEBUG = 0;
 
-my $tr = SQL::Translator->new;
+my $tr = SQL::Translator->new(parser => "MySQL", producer => "XML");
 
 my $datafile = "t/data/mysql/BGEP-RE-create.sql";
 my $data;
@@ -17,8 +20,5 @@ open FH, $datafile or die "Can't open $datafile: $!";
 read(FH, $data, -s $datafile);
 close FH;
 
-print "Data is ", length $data, " bytes\n";
-#print $data;
 
-my $val = parse($tr, $data);
-print Dumper($val);
+print $tr->translate(\$data);
index e69de29..ec075e0 100644 (file)
@@ -0,0 +1,6 @@
+CREATE TABLE random (
+    id int auto_increment PRIMARY KEY,
+    foo varchar(255) not null default '',
+    updated timestamp
+);
+