X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F51-xml-to-oracle.t;h=2486246c49d8a5493c246df3078eab9c09129d33;hb=aee4b66eb2152b7066ced4def46e0223eb1649b1;hp=c72ea4c7a60eaad9451676f2eeb85c80d9792b16;hpb=bdf60588bb1e35e284bdc02c43d0ffe691994465;p=dbsrgits%2FSQL-Translator.git diff --git a/t/51-xml-to-oracle.t b/t/51-xml-to-oracle.t index c72ea4c..2486246 100644 --- a/t/51-xml-to-oracle.t +++ b/t/51-xml-to-oracle.t @@ -40,7 +40,7 @@ my $sql_string = $sqlt->translate( filename => $xmlfile, ) or die $sqlt->error; -my $want = [ +my $want = [ 'DROP TABLE Basic CASCADE CONSTRAINTS', 'DROP SEQUENCE sq_Basic_id', 'CREATE SEQUENCE sq_Basic_id', @@ -84,7 +84,7 @@ END; 'CREATE OR REPLACE TRIGGER ts_Basic_timest BEFORE INSERT OR UPDATE ON Basic FOR EACH ROW WHEN (new.timest IS NULL) -BEGIN +BEGIN SELECT sysdate INTO :new.timest FROM dual; END; ', @@ -160,7 +160,7 @@ END; CREATE OR REPLACE TRIGGER ts_Basic_timest01 BEFORE INSERT OR UPDATE ON Basic FOR EACH ROW WHEN (new.timest IS NULL) -BEGIN +BEGIN SELECT sysdate INTO :new.timest FROM dual; END; /