From: Ken Youens-Clark Date: Thu, 21 Aug 2003 02:43:20 +0000 (+0000) Subject: Modified to use XML::SQLFairy, changed field size to match MySQL parser. X-Git-Tag: v0.04~257 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ac62dff193e6912b65032347fa284b8d6e65ef6f;p=dbsrgits%2FSQL-Translator.git Modified to use XML::SQLFairy, changed field size to match MySQL parser. --- diff --git a/t/17sqlfxml-producer.t b/t/17sqlfxml-producer.t index b1b09a4..bc6acde 100644 --- a/t/17sqlfxml-producer.t +++ b/t/17sqlfxml-producer.t @@ -26,7 +26,7 @@ my $file = "$Bin/data/mysql/sqlfxml-producer-basic.sql"; eval { require XML::Writer; }; if ($@ && $@ =~ m!locate XML::Writer.pm in!) { - plan skip_all => "You need XML::Writer to use SqlfXML."; + plan skip_all => "You need XML::Writer to use XML::SQLFairy."; } eval { require Test::Differences; }; if ($@ && $@ =~ m!locate Test/Differences.pm in!) { @@ -36,7 +36,7 @@ use Test::Differences; plan tests => 6; use SQL::Translator; -use SQL::Translator::Producer::SqlfXML; +use SQL::Translator::Producer::XML::SQLFairy; my ($obj,$ans,$xml); @@ -80,7 +80,7 @@ $ans = <1 0 3 - 65000 + 65535 email @@ -136,8 +136,8 @@ $obj = SQL::Translator->new( trace => TRACE, show_warnings => 1, add_drop_table => 1, - from => "MySQL", - to => "SqlfXML", + from => 'MySQL', + to => 'XML-SQLFairy', ); lives_ok { $xml = $obj->translate($file); } "Translate ran"; ok("$xml" ne "" ,"Produced something!"); @@ -187,7 +187,7 @@ $ans = <1 0 7 - 65000 + 65535 email @@ -247,8 +247,8 @@ $obj = SQL::Translator->new( trace => TRACE, show_warnings => 1, add_drop_table => 1, - from => "MySQL", - to => "SqlfXML", + from => 'MySQL', + to => 'XML-SQLFairy', producer_args => { emit_empty_tags => 1 }, ); lives_ok { $xml = $obj->translate($file); } "Translate ran";