X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F05bgep-re.t;h=db38576ed32dbc74ae2dacc61fb1aaa6a175cb8d;hb=a0e61cf67588b6d2f2c5bd002cc905bc4d9f1ef0;hp=00292b90775dd0dfe7b891720965430df09acf3e;hpb=02069e4070b1bda9ebc9c12faeac5cec492fef26;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/05bgep-re.t b/t/05bgep-re.t
index 00292b9..db38576 100644
--- a/t/05bgep-re.t
+++ b/t/05bgep-re.t
@@ -8,7 +8,20 @@ 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")
@@ -17,19 +30,19 @@ my $test_data = (-d "t")
 
 my $tr       =  SQL::Translator->new(
     parser   => 'MySQL',
-    producer => 'SqlfXML',
+    producer => 'XML-SQLFairy',
     filename => $test_data
 );
 my $data = $tr->translate;
 
-ok($data, "MySQL->XML");
+ok($data, "MySQL->XML-SQLFairy");
 
 SKIP: {
     eval {
         require XML::Parser;
     };
     if ($@) {
-        skip "Can't load XML::Parser" => 1;        
+        skip "Can't load XML::Parser" => 1;
     }
 
     # Can't get XML::Parser::parsestring to do Useful Things