Checking for field comments now.

[dbsrgits/SQL-Translator.git] / t / 17sqlfxml-producer.t

diff --git a/t/17sqlfxml-producer.t b/t/17sqlfxml-producer.t
index b1b09a4..db14a10 100644 (file)
--- a/t/17sqlfxml-producer.t
+++ b/t/17sqlfxml-producer.t
@@ -11,7 +11,7 @@ use Test::More;
 use Test::Exception;
 
 use Data::Dumper;
-our %opt;
+my %opt;
 BEGIN { map { $opt{$_}=1 if s/^-// } @ARGV; }
 use constant DEBUG => (exists $opt{d} ? 1 : 0);
 use constant TRACE => (exists $opt{t} ? 1 : 0);
@@ -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);
 
@@ -59,6 +59,7 @@ $ans = <<EOXML;
         <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
         <sqlt:order>1</sqlt:order>
         <sqlt:size>10</sqlt:size>
+        <sqlt:comments>comment on id field</sqlt:comments>
       </sqlt:field>
       <sqlt:field>
         <sqlt:name>title</sqlt:name>
@@ -70,6 +71,7 @@ $ans = <<EOXML;
         <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
         <sqlt:order>2</sqlt:order>
         <sqlt:size>100</sqlt:size>
+        <sqlt:comments></sqlt:comments>
       </sqlt:field>
       <sqlt:field>
         <sqlt:name>description</sqlt:name>
@@ -80,7 +82,8 @@ $ans = <<EOXML;
         <sqlt:is_nullable>1</sqlt:is_nullable>
         <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
         <sqlt:order>3</sqlt:order>
-        <sqlt:size>65000</sqlt:size>
+        <sqlt:size>65535</sqlt:size>
+        <sqlt:comments></sqlt:comments>
       </sqlt:field>
       <sqlt:field>
         <sqlt:name>email</sqlt:name>
@@ -91,6 +94,7 @@ $ans = <<EOXML;
         <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
         <sqlt:order>4</sqlt:order>
         <sqlt:size>255</sqlt:size>
+        <sqlt:comments></sqlt:comments>
       </sqlt:field>
     </sqlt:fields>
     <sqlt:indices>
@@ -136,8 +140,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!");
@@ -166,6 +170,7 @@ $ans = <<EOXML;
         <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
         <sqlt:order>5</sqlt:order>
         <sqlt:size>10</sqlt:size>
+        <sqlt:comments>comment on id field</sqlt:comments>
       </sqlt:field>
       <sqlt:field>
         <sqlt:name>title</sqlt:name>
@@ -177,6 +182,7 @@ $ans = <<EOXML;
         <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
         <sqlt:order>6</sqlt:order>
         <sqlt:size>100</sqlt:size>
+        <sqlt:comments></sqlt:comments>
       </sqlt:field>
       <sqlt:field>
         <sqlt:name>description</sqlt:name>
@@ -187,7 +193,8 @@ $ans = <<EOXML;
         <sqlt:is_nullable>1</sqlt:is_nullable>
         <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
         <sqlt:order>7</sqlt:order>
-        <sqlt:size>65000</sqlt:size>
+        <sqlt:size>65535</sqlt:size>
+        <sqlt:comments></sqlt:comments>
       </sqlt:field>
       <sqlt:field>
         <sqlt:name>email</sqlt:name>
@@ -199,6 +206,7 @@ $ans = <<EOXML;
         <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
         <sqlt:order>8</sqlt:order>
         <sqlt:size>255</sqlt:size>
+        <sqlt:comments></sqlt:comments>
       </sqlt:field>
     </sqlt:fields>
     <sqlt:indices>
@@ -247,8 +255,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";
@@ -267,7 +275,7 @@ eq_or_diff $xml, $ans                       ,"XML looks right";
 #     show_warnings  => 1,
 #     add_drop_table => 1,
 #     from           => "MySQL",
-#     to             => "SqlfXML",
+#     to             => "XML-SQLFairy",
 #     producer_args  => { attrib_values => 1 },
 # );
 # print $obj->translate($file);