Added CSV parser and a test.

[dbsrgits/SQL-Translator.git] / t / 05bgep-re.t

diff --git a/t/05bgep-re.t b/t/05bgep-re.t
index 18bd3ff..a7b9f13 100644 (file)
--- 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);