X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F29html.t;h=04fb30c71dafd38ceb605859a852a68b211d4f04;hb=HEAD;hp=f1f48fc3ffd026d323bddc43aeba850075b540bd;hpb=2d691ec135298f8a4523656dc0516dcb7af3e8cd;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/29html.t b/t/29html.t
index f1f48fc..04fb30c 100644
--- 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',
-        ], 
+        ],
     );
 }