X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F51-xml-to-oracle_quoted.t;h=be7f7b4cc7b04fda6a9fff29a75373d1378c46b0;hb=3b9249fb0058ac9896a10c9ca8b87ddd40f6c074;hp=292882d368aa2822b0d55b0bfe6e9ee48dfaf1a9;hpb=4c0d31c125be1c212c2b984f4a4d806a61b2bd6e;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/51-xml-to-oracle_quoted.t b/t/51-xml-to-oracle_quoted.t
index 292882d..be7f7b4 100644
--- a/t/51-xml-to-oracle_quoted.t
+++ b/t/51-xml-to-oracle_quoted.t
@@ -5,6 +5,7 @@ use FindBin qw/$Bin/;
 use Test::More;
 use Test::SQL::Translator;
 use Test::Exception;
+use Test::Differences;
 use Data::Dumper;
 use SQL::Translator;
 use SQL::Translator::Schema::Constants;
@@ -54,7 +55,8 @@ my $want = [
   "another_id" number(10) DEFAULT \'2\',
   "timest" date,
   PRIMARY KEY ("id"),
-  CONSTRAINT "Basic_emailuniqueindex" UNIQUE ("email")
+  CONSTRAINT "u_Basic_emailuniqueindex" UNIQUE ("email"),
+  CONSTRAINT "u_Basic_very_long_index_name_o" UNIQUE ("title")
 )',
           'DROP TABLE "Another" CASCADE CONSTRAINTS',
           'DROP SEQUENCE "sq_Another_id"',
@@ -101,7 +103,7 @@ END;
 
 is_deeply(\@sql, $want, 'Got correct Oracle statements in list context');
 
-is($sql_string, q|DROP TABLE "Basic" CASCADE CONSTRAINTS;
+eq_or_diff($sql_string, q|DROP TABLE "Basic" CASCADE CONSTRAINTS;
 
 DROP SEQUENCE "sq_Basic_id01";
 
@@ -118,7 +120,8 @@ CREATE TABLE "Basic" (
   "another_id" number(10) DEFAULT '2',
   "timest" date,
   PRIMARY KEY ("id"),
-  CONSTRAINT "Basic_emailuniqueindex" UNIQUE ("email")
+  CONSTRAINT "u_Basic_emailuniqueindex01" UNIQUE ("email"),
+  CONSTRAINT "u_Basic_very_long_index_name01" UNIQUE ("title")
 );
 
 DROP TABLE "Another" CASCADE CONSTRAINTS;