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 | ); |
041e659f |
15 | CREATE UNIQUE INDEX random_foo_update ON random(foo,updated); |
16 | CREATE INDEX random_foo ON random(foo); |
17 | |
0494e672 |
18 | |; |
19 | |
2d691ec1 |
20 | BEGIN { |
041e659f |
21 | maybe_plan(3, |
2d691ec1 |
22 | 'SQL::Translator::Parser::MySQL', |
23 | 'SQL::Translator::Producer::Oracle'); |
24 | } |
25 | |
b4bc8f6f |
26 | my $tr = SQL::Translator->new( |
27 | parser => "MySQL", |
15861005 |
28 | producer => "Oracle", |
7769504d |
29 | quote_table_names => 0, |
30 | quote_field_names => 0, |
b4bc8f6f |
31 | ); |
0494e672 |
32 | |
041e659f |
33 | my $output = $tr->translate(\$create); |
49e890e6 |
34 | |
041e659f |
35 | ok( $output, 'Translate MySQL to Oracle' ); |
36 | ok( $output =~ /CREATE INDEX random_foo /, 'Normal index definition translated.'); |
37 | ok( $output =~ /CREATE UNIQUE INDEX random_foo_update /, 'Unique index definition translated.'); |