DB2 producer tests

diff --git a/t/43xml-to-db2.t b/t/43xml-to-db2.t
new file mode 100644 (file)
index 0000000..c4bff92
--- /dev/null
+++ b/t/43xml-to-db2.t
@@ -0,0 +1,57 @@
+#!/usr/bin/perl
+use strict;
+
+use FindBin qw/$Bin/;
+use Test::More;
+use Test::SQL::Translator;
+use Test::Exception;
+use Data::Dumper;
+use SQL::Translator;
+use SQL::Translator::Schema::Constants;
+
+
+BEGIN {
+    maybe_plan(1, 'SQL::Translator::Parser::XML::SQLFairy',
+              'SQL::Translator::Producer::DB2');
+}
+
+my $xmlfile = "$Bin/data/xml/schema.xml";
+
+my $sqlt;
+$sqlt = SQL::Translator->new(
+    no_comments => 1,
+    show_warnings  => 1,
+    add_drop_table => 1,
+);
+
+die "Can't find test schema $xmlfile" unless -e $xmlfile;
+
+my $sql = $sqlt->translate(
+    from     => 'XML-SQLFairy',
+    to       => 'DB2',
+    filename => $xmlfile,
+) or die $sqlt->error;
+
+is($sql, << "SQL");
+DROP TABLE Basic;
+
+
+CREATE TABLE Basic                                                                                                                       (
+id                        INTEGER GENERATED BY DEFAULT AS IDENTITY NOT NULL,
+title                     VARCHAR(100) NOT NULL DEFAULT 'hello',
+description               VARCHAR(0) DEFAULT '',
+email                     VARCHAR(255),
+explicitnulldef           VARCHAR(0),
+explicitemptystring       VARCHAR(0) DEFAULT '',
+emptytagdef               VARCHAR(0) DEFAULT '',
+CONSTRAINT emailuniqueindex UNIQUE (email)   ,
+ PRIMARY KEY(id)
+);
+
+CREATE INDEX titleindex ON Basic ( title );
+
+CREATE VIEW email_list AS
+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();
+SQL