my $sqlt;
$sqlt = SQL::Translator->new(
no_comments => 1,
- show_warnings => 1,
+ show_warnings => 0,
add_drop_table => 1,
);
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 '',
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)
);|,
'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');