[dbsrgits/SQL-Translator.git] / t / 03mysql-to-oracle.t

#!/usr/local/bin/perl
# vim: set ft=perl:

use Test::More;

plan tests => 1;

my $create = q|
CREATE TABLE random (
    id int auto_increment PRIMARY KEY,
    foo varchar(255) not null default '',
    updated timestamp
);
|;

use SQL::Translator;
use Data::Dumper;

my $tr = SQL::Translator->new(parser   => "MySQL",
                              producer => "Oracle"
                             );

ok($tr->translate(\$create));
Commit	Line	Data
0494e672	1	#!/usr/local/bin/perl
	2	# vim: set ft=perl:
	3
37ac104a	4	use Test::More;
	5
	6	plan tests => 1;
0494e672	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"
0494e672	21	);
0494e672	22
37ac104a	23	ok($tr->translate(\$create));
49e890e6	24