X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F15oracle-parser.t;h=aeccec136473c064bfe19242b06a0add8f96f5a5;hb=7f6504d358470f5abdabb613938c691439bc3187;hp=a5098e47f696fce20496f077d1b40b6f4729c51b;hpb=b6749c03ef0d9e2bde19605345ce982903a9260e;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/15oracle-parser.t b/t/15oracle-parser.t
index a5098e4..aeccec1 100644
--- a/t/15oracle-parser.t
+++ b/t/15oracle-parser.t
@@ -29,8 +29,8 @@ my $sql = q[
     (
         qtl_trait_id            NUMBER(11)      NOT NULL    
             CONSTRAINT pk_qtl_trait PRIMARY KEY,
-        trait_symbol            VARCHAR2(100)   NOT NULL,
-        trait_name              VARCHAR2(200)   NOT NULL,
+        trait_symbol            VARCHAR2(100 BYTE)   NOT NULL,
+        trait_name              VARCHAR2(200 CHAR)   NOT NULL,
         qtl_trait_category_id   NUMBER(11)      NOT NULL,
         UNIQUE ( trait_symbol ),
         UNIQUE ( trait_name ),
@@ -54,6 +54,7 @@ my $sql = q[
     );
 
     CREATE UNIQUE INDEX qtl_accession ON qtl ( qtl_accession_id );
+    CREATE UNIQUE INDEX qtl_accession_upper ON qtl ( UPPER(qtl_accession_id) );
 
     CREATE TABLE qtl_trait_synonym
     (
@@ -206,7 +207,7 @@ my @t3_fields = $t3->get_fields;
 is( scalar @t3_fields, 8, '8 fields in table' );
 
 my @t3_constraints = $t3->get_constraints;
-is( scalar @t3_constraints, 3, '3 constraints on table' );
+is( scalar @t3_constraints, 4, '4 constraints on table' );
 
 is( $t3->comments, 'qtl table comment', 'Comment "qtl table comment" exists' );