From: Darren Chamberlain Date: Thu, 21 Mar 2002 18:07:46 +0000 (+0000) Subject: Test changes X-Git-Tag: v0.01~58^2 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8c1f4165cd668d67ea9a0f04048223ca946815fa;p=dbsrgits%2FSQL-Translator.git Test changes --- diff --git a/t/05bgep-re.t b/t/05bgep-re.t index 18bd3ff..495be5f 100644 --- a/t/05bgep-re.t +++ b/t/05bgep-re.t @@ -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); diff --git a/t/data/mysql/Apache-Session-MySQL.sql b/t/data/mysql/Apache-Session-MySQL.sql index e69de29..ec075e0 100644 --- a/t/data/mysql/Apache-Session-MySQL.sql +++ b/t/data/mysql/Apache-Session-MySQL.sql @@ -0,0 +1,6 @@ +CREATE TABLE random ( + id int auto_increment PRIMARY KEY, + foo varchar(255) not null default '', + updated timestamp +); +