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)
: 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 {