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 | |
02069e40 |
18 | my $tr = SQL::Translator->new( |
19 | parser => 'MySQL', |
295fe54d |
20 | producer => 'XML-SQLFairy', |
02069e40 |
21 | filename => $test_data |
22 | ); |
5dada97b |
23 | my $data = $tr->translate; |
24 | |
295fe54d |
25 | ok($data, "MySQL->XML-SQLFairy"); |
5dada97b |
26 | |
27 | SKIP: { |
28 | eval { |
29 | require XML::Parser; |
30 | }; |
31 | if ($@) { |
32 | skip "Can't load XML::Parser" => 1; |
33 | } |
34 | |
35 | # Can't get XML::Parser::parsestring to do Useful Things |
36 | my ($fh, $fname) = tempfile('sqlfXXXX', |
37 | UNLINK => 1, |
38 | SUFFIX => '.xml', |
39 | DIR => tmpdir); |
40 | print $fh $data; |
41 | $fh->close; |
42 | |
43 | ok(XML::Parser->new->parsefile($fname), |
44 | "Successfully parsed output"); |
45 | } |