X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F44-xml-to-db2-array.t;h=6a872ca12f283bce448be6b55a6506c8c2478b6f;hb=a14ab50e885e610c35e84a4294e876764a44c46d;hp=fa73159eea55a4ff238fa956027497d29e3d2de6;hpb=9768b204bf349afdbcf278f5fc06eb5077eb4aef;p=dbsrgits%2FSQL-Translator.git diff --git a/t/44-xml-to-db2-array.t b/t/44-xml-to-db2-array.t index fa73159..6a872ca 100644 --- a/t/44-xml-to-db2-array.t +++ b/t/44-xml-to-db2-array.t @@ -37,20 +37,22 @@ 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 '', another_id INTEGER DEFAULT 2, timest TIMESTAMP, PRIMARY KEY (id), - CONSTRAINT emailuniqueindex UNIQUE (email) + CONSTRAINT emailuniqueindex UNIQUE (email), + CONSTRAINT very_long_index_name_on_title_field_which_should_be_truncated_for_various_rdbms UNIQUE (title) );|, 'DROP TABLE Another;', q|CREATE TABLE Another ( id INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 1, INCREMENT BY 1) NOT NULL, + num NUMERIC(10,2), PRIMARY KEY (id) );|, @@ -59,9 +61,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');