waiting for patch to be applied

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

diff --git a/t/03mysql-to-oracle.t b/t/03mysql-to-oracle.t
index a257552..7fbe09b 100644 (file)
--- 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.');