Commit | Line | Data |
35bab742 |
1 | #!/usr/bin/perl |
2 | # vim: set ft=perl: |
3 | # |
4 | |
5 | use strict; |
dd2ef5ae |
6 | |
5dada97b |
7 | use File::Spec::Functions qw(catfile tmpdir); |
8 | use File::Temp qw(tempfile); |
9 | use FindBin qw($Bin); |
10 | use SQL::Translator; |
11 | use Test::More tests => 2; |
12 | |
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); |
17 | |
18 | my $tr = SQL::Translator->new(parser => "MySQL", |
19 | producer => "XML", |
20 | filename => $test_data); |
21 | my $data = $tr->translate; |
22 | |
23 | ok($data, "MySQL->XML"); |
24 | |
25 | SKIP: { |
26 | eval { |
27 | require XML::Parser; |
28 | }; |
29 | if ($@) { |
30 | skip "Can't load XML::Parser" => 1; |
31 | } |
32 | |
33 | # Can't get XML::Parser::parsestring to do Useful Things |
34 | my ($fh, $fname) = tempfile('sqlfXXXX', |
35 | UNLINK => 1, |
36 | SUFFIX => '.xml', |
37 | DIR => tmpdir); |
38 | print $fh $data; |
39 | $fh->close; |
40 | |
41 | ok(XML::Parser->new->parsefile($fname), |
42 | "Successfully parsed output"); |
43 | } |