7 use File::Spec::Functions qw(catfile tmpdir);
8 use File::Temp qw(tempfile);
12 use Test::SQL::Translator qw(maybe_plan);
14 # This aggravates me; XML::Writer produces tons of warnings.
15 local $SIG{__WARN__} = sub {
17 unless $_[0] =~ m#XML/Writer#;
22 'SQL::Translator::Parser::MySQL',
23 'SQL::Translator::Producer::XML::SQLFairy');
26 my @data = qw(data mysql BGEP-RE-create.sql);
27 my $test_data = (-d "t")
28 ? catfile($Bin, @data)
29 : catfile($Bin, "t", @data);
31 my $tr = SQL::Translator->new(
33 producer => 'XML-SQLFairy',
34 filename => $test_data
36 my $data = $tr->translate;
38 ok($data, "MySQL->XML-SQLFairy");
45 skip "Can't load XML::Parser" => 1;
48 # Can't get XML::Parser::parsestring to do Useful Things
49 my ($fh, $fname) = tempfile('sqlfXXXX',
56 ok(XML::Parser->new->parsefile($fname),
57 "Successfully parsed output");