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 | |
fbc0552f |
13 | # This aggravates me; XML::Writer produces tons of warnings. |
14 | local $SIG{__WARN__} = sub { |
15 | CORE::warn(@_) |
16 | unless $_[0] =~ m#XML/Writer#; |
17 | }; |
18 | |
5dada97b |
19 | my @data = qw(data mysql BGEP-RE-create.sql); |
20 | my $test_data = (-d "t") |
21 | ? catfile($Bin, @data) |
22 | : catfile($Bin, "t", @data); |
23 | |
02069e40 |
24 | my $tr = SQL::Translator->new( |
25 | parser => 'MySQL', |
295fe54d |
26 | producer => 'XML-SQLFairy', |
02069e40 |
27 | filename => $test_data |
28 | ); |
5dada97b |
29 | my $data = $tr->translate; |
30 | |
295fe54d |
31 | ok($data, "MySQL->XML-SQLFairy"); |
5dada97b |
32 | |
33 | SKIP: { |
34 | eval { |
35 | require XML::Parser; |
36 | }; |
37 | if ($@) { |
38 | skip "Can't load XML::Parser" => 1; |
39 | } |
40 | |
41 | # Can't get XML::Parser::parsestring to do Useful Things |
42 | my ($fh, $fname) = tempfile('sqlfXXXX', |
43 | UNLINK => 1, |
44 | SUFFIX => '.xml', |
45 | DIR => tmpdir); |
46 | print $fh $data; |
47 | $fh->close; |
48 | |
49 | ok(XML::Parser->new->parsefile($fname), |
50 | "Successfully parsed output"); |
51 | } |