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

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

use strict;
use Test::More tests => 1;
use SQL::Translator;

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

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

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