X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F51-xml-to-oracle.t;h=2486246c49d8a5493c246df3078eab9c09129d33;hb=e533bcddea14f0d8a2c58ce6bdc06ec82ea1de8e;hp=d7cff874686be98ccaded1dc141ce23174167658;hpb=d570aec7f3e6d6f1e7ed028e99598ca73a05b6d6;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/51-xml-to-oracle.t b/t/51-xml-to-oracle.t
index d7cff87..2486246 100644
--- a/t/51-xml-to-oracle.t
+++ b/t/51-xml-to-oracle.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;
@@ -39,7 +40,7 @@ my $sql_string = $sqlt->translate(
     filename => $xmlfile,
 ) or die $sqlt->error;
 
-my $want = [ 
+my $want = [
 'DROP TABLE Basic CASCADE CONSTRAINTS',
           'DROP SEQUENCE sq_Basic_id',
           'CREATE SEQUENCE sq_Basic_id',
@@ -48,13 +49,14 @@ my $want = [
   title varchar2(100) DEFAULT \'hello\' NOT NULL,
   description clob DEFAULT \'\',
   email varchar2(500),
-  explicitnulldef varchar2,
-  explicitemptystring varchar2 DEFAULT \'\',
-  emptytagdef varchar2 DEFAULT \'\',
+  explicitnulldef varchar2(4000),
+  explicitemptystring varchar2(4000) DEFAULT \'\',
+  emptytagdef varchar2(4000) DEFAULT \'\',
   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',
@@ -82,7 +84,7 @@ END;
           'CREATE OR REPLACE TRIGGER ts_Basic_timest
 BEFORE INSERT OR UPDATE ON Basic
 FOR EACH ROW WHEN (new.timest IS NULL)
-BEGIN 
+BEGIN
  SELECT sysdate INTO :new.timest FROM dual;
 END;
 ',
@@ -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;
 
@@ -112,13 +114,14 @@ CREATE TABLE Basic (
   title varchar2(100) DEFAULT 'hello' NOT NULL,
   description clob DEFAULT '',
   email varchar2(500),
-  explicitnulldef varchar2,
-  explicitemptystring varchar2 DEFAULT '',
-  emptytagdef varchar2 DEFAULT '',
+  explicitnulldef varchar2(4000),
+  explicitemptystring varchar2(4000) DEFAULT '',
+  emptytagdef varchar2(4000) DEFAULT '',
   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;
@@ -157,7 +160,7 @@ END;
 CREATE OR REPLACE TRIGGER ts_Basic_timest01
 BEFORE INSERT OR UPDATE ON Basic
 FOR EACH ROW WHEN (new.timest IS NULL)
-BEGIN 
+BEGIN
  SELECT sysdate INTO :new.timest FROM dual;
 END;
 /