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 |;
  16
  17 BEGIN {
  18     maybe_plan(1,
  19         'SQL::Translator::Parser::MySQL',
  20         'SQL::Translator::Producer::Oracle');
  21 }
  22
  23 my $tr       = SQL::Translator->new(
  24     parser   => "MySQL",
  25     producer => "Oracle"
  26 );
  27
  28 ok( $tr->translate(\$create), 'Translate MySQL to Oracle' );
  29