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