Release commit for 1.62

[dbsrgits/SQL-Translator.git] / t / 29html.t

diff --git a/t/29html.t b/t/29html.t
index f1f48fc..04fb30c 100644 (file)
--- a/t/29html.t
+++ b/t/29html.t
@@ -14,6 +14,7 @@ use SQL::Translator;
 
 BEGIN {
     maybe_plan(5,
+        'CGI',
         'HTML::Parser',
         'SQL::Translator::Parser::MySQL',
         'SQL::Translator::Producer::HTML');
@@ -21,7 +22,7 @@ BEGIN {
 
 my ($p, $tables, $classes);
 $p = HTML::Parser->new(api_version => 3);
-$p->strict_names(1); 
+$p->strict_names(1);
 
 my $create = q|
 CREATE TABLE foo (
@@ -31,13 +32,14 @@ CREATE TABLE foo (
 |;
 
 my $tr = SQL::Translator->new(parser => 'MySQL', producer => 'HTML');
-my $parsed = $tr->translate(data => $create);
+my $parsed = $tr->translate(data => $create) or die $tr->error;
 my $status;
 
 eval {
-    $status = $p->parse($parsed);    
+    $status = $p->parse($parsed);
 };
 if ($@) {
+    daig $@;
     fail("Unable to parse the output!");
 }
 
@@ -93,6 +95,6 @@ BEGIN {
                     $classes++;
                 }
             }, 'tagname,attr',
-        ], 
+        ],
     );
 }