X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F44-xml-to-db2-array.t;h=c09d85066c596c23f2e5cb394d1484591c867c09;hb=f59b2c0e0d3cad2e98ed0eb440720f85a8f33a6f;hp=37c69cc522696e509e0d176c0ef5dfb34266f721;hpb=b08b5416f45bfbe381637ee3091202524c78ecab;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/44-xml-to-db2-array.t b/t/44-xml-to-db2-array.t
index 37c69cc..c09d850 100644
--- a/t/44-xml-to-db2-array.t
+++ b/t/44-xml-to-db2-array.t
@@ -20,7 +20,7 @@ my $xmlfile = "$Bin/data/xml/schema.xml";
 my $sqlt;
 $sqlt = SQL::Translator->new(
     no_comments => 1,
-    show_warnings  => 1,
+    show_warnings  => 0,
     add_drop_table => 1,
 );
 
@@ -37,7 +37,7 @@ q|CREATE TABLE Basic (
   id INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 1, INCREMENT BY 1) NOT NULL,
   title VARCHAR(100) NOT NULL DEFAULT 'hello',
   description VARCHAR(0) DEFAULT '',
-  email VARCHAR(255),
+  email VARCHAR(500),
   explicitnulldef VARCHAR(0),
   explicitemptystring VARCHAR(0) DEFAULT '',
   emptytagdef VARCHAR(0) DEFAULT '',
@@ -59,9 +59,11 @@ q|CREATE TABLE Another (
 'CREATE INDEX titleindex ON Basic ( title );',
 
 'CREATE VIEW email_list AS
-SELECT email FROM Basic WHERE email IS NOT NULL;',
+SELECT email FROM Basic WHERE (email IS NOT NULL);',
 
-'CREATE TRIGGER foo_trigger after insert ON Basic REFERENCING OLD AS oldrow NEW AS newrow FOR EACH ROW MODE DB2SQL update modified=timestamp();'
+'CREATE TRIGGER foo_trigger after insert ON Basic REFERENCING OLD AS oldrow NEW AS newrow FOR EACH ROW MODE DB2SQL update modified=timestamp();',
+
+'CREATE TRIGGER bar_trigger before insert, update ON Basic REFERENCING OLD AS oldrow NEW AS newrow FOR EACH ROW MODE DB2SQL update modified2=timestamp();',
 ];
 
 is_deeply(\@sql, $want, 'Got correct DB2 statements in list context');