t/03mysql-to-oracle.t

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