7 use File::Spec::Functions qw(catfile tmpdir);
8 use File::Temp qw(tempfile);
11 use Test::More tests => 2;
13 my @data = qw(data mysql BGEP-RE-create.sql);
14 my $test_data = (-d "t")
15 ? catfile($Bin, @data)
16 : catfile($Bin, "t", @data);
18 my $tr = SQL::Translator->new(
20 producer => 'SqlfXML',
21 filename => $test_data
23 my $data = $tr->translate;
25 ok($data, "MySQL->XML");
32 skip "Can't load XML::Parser" => 1;
35 # Can't get XML::Parser::parsestring to do Useful Things
36 my ($fh, $fname) = tempfile('sqlfXXXX',
43 ok(XML::Parser->new->parsefile($fname),
44 "Successfully parsed output");