Robustify the tests a little.

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

diff --git a/t/05bgep-re.t b/t/05bgep-re.t
index 00292b9..435f8ce 100644 (file)
--- a/t/05bgep-re.t
+++ b/t/05bgep-re.t
@@ -10,6 +10,12 @@ use FindBin qw($Bin);
 use SQL::Translator;
 use Test::More tests => 2;
 
+# This aggravates me; XML::Writer produces tons of warnings.
+local $SIG{__WARN__} = sub {
+    CORE::warn(@_)
+        unless $_[0] =~ m#XML/Writer#;
+};
+
 my @data = qw(data mysql BGEP-RE-create.sql);
 my $test_data = (-d "t")
     ? catfile($Bin, @data)
@@ -17,12 +23,12 @@ 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 {