X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03mysql-to-oracle.t;fp=t%2F03mysql-to-oracle.t;h=7fbe09bef5cc0284ab095177b8f868d869e118a9;hb=041e659f8750a36d182143f6009f99fe0a8bc698;hp=a257552f0e55a6874bece542197e53e23eb6e8ee;hpb=2c6be67ad8870e978c1976c1debc6a0c4596d911;p=dbsrgits%2FSQL-Translator.git diff --git a/t/03mysql-to-oracle.t b/t/03mysql-to-oracle.t index a257552..7fbe09b 100644 --- a/t/03mysql-to-oracle.t +++ b/t/03mysql-to-oracle.t @@ -12,10 +12,13 @@ CREATE TABLE random ( foo varchar(255) not null default '', updated timestamp ); +CREATE UNIQUE INDEX random_foo_update ON random(foo,updated); +CREATE INDEX random_foo ON random(foo); + |; BEGIN { - maybe_plan(1, + maybe_plan(3, 'SQL::Translator::Parser::MySQL', 'SQL::Translator::Producer::Oracle'); } @@ -25,5 +28,8 @@ my $tr = SQL::Translator->new( producer => "Oracle" ); -ok( $tr->translate(\$create), 'Translate MySQL to Oracle' ); +my $output = $tr->translate(\$create); +ok( $output, 'Translate MySQL to Oracle' ); +ok( $output =~ /CREATE INDEX random_foo /, 'Normal index definition translated.'); +ok( $output =~ /CREATE UNIQUE INDEX random_foo_update /, 'Unique index definition translated.');