t/03mysql-to-oracle.t

   1 #!/usr/local/bin/perl
   2 # vim: set ft=perl:
   3
   4 use Test::More;
   5
   6 plan tests => 1;
   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
  16 use SQL::Translator;
  17 use Data::Dumper;
  18
  19 my $tr = SQL::Translator->new(parser   => "MySQL",
  20                               producer => "Oracle"
  21                              );
  22
  23 ok($tr->translate(\$create));
  24