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

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

BEGIN { print "1..1\n" }

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;

$SQL::Translator::DEBUG = 0;

my $tr = SQL::Translator->new(parser   => "MySQL",
                              producer => "Oracle"
                              #producer => "SQL::Translator::Producer::Oracle::translate"
                              #producer => sub { Dumper($_[1]) }
                             );

print $tr->translate(\$create);
Commit	Line	Data
0494e672	1	#!/usr/local/bin/perl
	2	# vim: set ft=perl:
	3
	4	BEGIN { print "1..1\n" }
	5
	6	my $create = q\|
	7	CREATE TABLE random (
	8	id int auto_increment PRIMARY KEY,
	9	foo varchar(255) not null default '',
	10	updated timestamp
	11	);
	12	\|;
	13
	14	use SQL::Translator;
	15	use Data::Dumper;
	16
ac1f1387	17	$SQL::Translator::DEBUG = 0;
ac1f1387	18
0494e672	19	my $tr = SQL::Translator->new(parser => "MySQL",
	20	producer => "Oracle"
	21	#producer => "SQL::Translator::Producer::Oracle::translate"
	22	#producer => sub { Dumper($_[1]) }
	23	);
	24
	25	print $tr->translate(\$create);