Commit | Line | Data |
---|---|---|
0494e672 | 1 | #!/usr/local/bin/perl |
2 | # vim: set ft=perl: | |
3 | ||
b4bc8f6f | 4 | use strict; |
2d691ec1 | 5 | use Test::More; |
b4bc8f6f | 6 | use SQL::Translator; |
2d691ec1 | 7 | use Test::SQL::Translator qw(maybe_plan); |
0494e672 | 8 | |
9 | my $create = q| | |
10 | CREATE TABLE random ( | |
11 | id int auto_increment PRIMARY KEY, | |
12 | foo varchar(255) not null default '', | |
13 | updated timestamp | |
14 | ); | |
15 | |; | |
16 | ||
2d691ec1 | 17 | BEGIN { |
18 | maybe_plan(1, | |
19 | 'SQL::Translator::Parser::MySQL', | |
20 | 'SQL::Translator::Producer::Oracle'); | |
21 | } | |
22 | ||
b4bc8f6f | 23 | my $tr = SQL::Translator->new( |
24 | parser => "MySQL", | |
25 | producer => "Oracle" | |
26 | ); | |
0494e672 | 27 | |
b4bc8f6f | 28 | ok( $tr->translate(\$create), 'Translate MySQL to Oracle' ); |
49e890e6 | 29 |