X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F48xml-to-sqlite.t;h=c1dba06078ac6dee4b128fbc99f2921a5f5f185d;hb=f9c96971577d9e276783e98920b3c6346f24f20e;hp=7b92f76b41e17975521db23b1a505e846227d630;hpb=d0fcb05d6b4b6126e080ff90558da0cc31c06b78;p=dbsrgits%2FSQL-Translator.git diff --git a/t/48xml-to-sqlite.t b/t/48xml-to-sqlite.t index 7b92f76..c1dba06 100644 --- a/t/48xml-to-sqlite.t +++ b/t/48xml-to-sqlite.t @@ -34,6 +34,8 @@ my $sql = $sqlt->translate( ) or die $sqlt->error; eq_or_diff($sql, << "SQL"); + + BEGIN TRANSACTION; DROP TABLE Basic; @@ -65,6 +67,10 @@ DROP VIEW IF EXISTS email_list; CREATE VIEW email_list AS SELECT email FROM Basic WHERE email IS NOT NULL; +DROP TRIGGER IF EXISTS foo_trigger; + +CREATE TRIGGER foo_trigger after insert on Basic BEGIN update modified=timestamp(); END; + COMMIT; SQL @@ -75,9 +81,9 @@ my @sql = $sqlt->translate( filename => $xmlfile, ) or die $sqlt->error; -is_deeply(\@sql, +eq_or_diff(\@sql, [ - 'BEGIN TRANSACTION', + "\n\nBEGIN TRANSACTION", 'DROP TABLE Basic', 'CREATE TABLE Basic ( id INTEGER PRIMARY KEY NOT NULL, @@ -100,6 +106,8 @@ is_deeply(\@sql, 'DROP VIEW IF EXISTS email_list; CREATE VIEW email_list AS SELECT email FROM Basic WHERE email IS NOT NULL', + 'DROP TRIGGER IF EXISTS foo_trigger', + 'CREATE TRIGGER foo_trigger after insert on Basic BEGIN update modified=timestamp(); END', 'COMMIT' ], 'SQLite translate in list context matches');