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

diff --git a/t/29html.t b/t/29html.t
index b39cff2..04fb30c 100644
--- a/t/29html.t
+++ b/t/29html.t
@@ -9,18 +9,21 @@
 use strict;
 use vars qw(%HANDLERS);
 use Test::More;
+use Test::SQL::Translator qw(maybe_plan);
 use SQL::Translator;
 
-my ($p, $tables, $classes);
-eval {
-    require HTML::Parser;
-    $p = HTML::Parser->new(api_version => 3);
-    $p->strict_names(1); 
-};
-if ($@) {
-    plan skip_all => "Missing HTML::Parser";
+BEGIN {
+    maybe_plan(5,
+        'CGI',
+        'HTML::Parser',
+        'SQL::Translator::Parser::MySQL',
+        'SQL::Translator::Producer::HTML');
 }
 
+my ($p, $tables, $classes);
+$p = HTML::Parser->new(api_version => 3);
+$p->strict_names(1);
+
 my $create = q|
 CREATE TABLE foo (
     int id PRIMARY KEY AUTO_INCREMENT NOT NULL,
@@ -29,20 +32,17 @@ 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 ($@) {
-    plan tests => 1;
+    daig $@;
     fail("Unable to parse the output!");
-    exit 1;
 }
 
-plan tests => 5;
-
 # General
 ok($parsed, "Parsed table OK");
 ok($status, "Parsed HTML OK");
@@ -95,6 +95,6 @@ BEGIN {
                     $classes++;
                 }
             }, 'tagname,attr',
-        ], 
+        ],
     );
 }