X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F05bgep-re.t;h=a7b9f1365b68c6a00f760836e37f39d85ea88177;hb=046f18e5498f3d690e7857d8f97fa54e17da2356;hp=18bd3ffbe0e8bc66a1979d2bf736de68b8033fb6;hpb=35bab74243827d6e141cd8b3986b1e9bb1f37f07;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/05bgep-re.t b/t/05bgep-re.t
index 18bd3ff..a7b9f13 100644
--- a/t/05bgep-re.t
+++ b/t/05bgep-re.t
@@ -2,14 +2,17 @@
 # vim: set ft=perl:
 #
 
+BEGIN { print "1..1\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);