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 d5b5992..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)