t/03mysql-to-oracle.t

   1 #!/usr/local/bin/perl
   2 # vim: set ft=perl:
   3
   4 use strict;
   5 use Test::More;
   6 use SQL::Translator;
   7 use Test::SQL::Translator qw(maybe_plan);
   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 CREATE UNIQUE INDEX random_foo_update ON random(foo,updated);
  16 CREATE INDEX random_foo ON random(foo);
  17
  18 |;
  19
  20 BEGIN {
  21     maybe_plan(3,
  22         'SQL::Translator::Parser::MySQL',
  23         'SQL::Translator::Producer::Oracle');
  24 }
  25
  26 my $tr       = SQL::Translator->new(
  27     parser   => "MySQL",
  28     producer => "Oracle",
  29     quote_table_names => 0,
  30     quote_field_names => 0,
  31 );
  32
  33 my $output = $tr->translate(\$create);
  34
  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.');