Commit | Line | Data |
---|---|---|
35bab742 | 1 | #!/usr/bin/perl |
2 | # vim: set ft=perl: | |
3 | # | |
4 | ||
046f18e5 | 5 | BEGIN { print "1..1\n"; } |
8c1f4165 | 6 | |
35bab742 | 7 | use strict; |
8 | use Data::Dumper; | |
9 | use SQL::Translator; | |
8c1f4165 | 10 | use SQL::Translator::Parser::MySQL; |
11 | use SQL::Translator::Producer::XML; | |
35bab742 | 12 | |
13 | $SQL::Translator::DEBUG = 0; | |
14 | ||
8c1f4165 | 15 | my $tr = SQL::Translator->new(parser => "MySQL", producer => "XML"); |
35bab742 | 16 | |
17 | my $datafile = "t/data/mysql/BGEP-RE-create.sql"; | |
18 | my $data; | |
19 | open FH, $datafile or die "Can't open $datafile: $!"; | |
20 | read(FH, $data, -s $datafile); | |
21 | close FH; | |
22 | ||
35bab742 | 23 | |
8c1f4165 | 24 | print $tr->translate(\$data); |
dd2ef5ae | 25 | print "ok 1\n"; |
26 |