Update tests to use maybe_plan.

[dbsrgits/SQL-Translator.git] / t / 05bgep-re.t

diff --git a/t/05bgep-re.t b/t/05bgep-re.t
index 75e9516..1c55bc4 100644 (file)
--- a/t/05bgep-re.t
+++ b/t/05bgep-re.t
@@ -8,19 +8,34 @@ use File::Spec::Functions qw(catfile tmpdir);
 use File::Temp qw(tempfile);
 use FindBin qw($Bin);
 use SQL::Translator;
-use Test::More tests => 2;
+use Test::More;
+use Test::SQL::Translator qw(maybe_plan);
+
+# This aggravates me; XML::Writer produces tons of warnings.
+local $SIG{__WARN__} = sub {
+    CORE::warn(@_)
+        unless $_[0] =~ m#XML/Writer#;
+};
+
+BEGIN {
+    maybe_plan(2, 
+        'SQL::Translator::Parser::MySQL',
+        'SQL::Translator::Producer::XML::SQLFairy');
+}
 
 my @data = qw(data mysql BGEP-RE-create.sql);
 my $test_data = (-d "t")
     ? catfile($Bin, @data)
     : catfile($Bin, "t", @data);
 
-my $tr = SQL::Translator->new(parser => "MySQL",
-                              producer => "XML",
-                              filename => $test_data);
+my $tr       =  SQL::Translator->new(
+    parser   => 'MySQL',
+    producer => 'XML-SQLFairy',
+    filename => $test_data
+);
 my $data = $tr->translate;
 
-ok($data, "MySQL->XML");
+ok($data, "MySQL->XML-SQLFairy");
 
 SKIP: {
     eval {