X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F86sqlt.t;h=095a8785658715190fce45fccc75ebdf1509fb75;hb=f90375dd325063c09f0c07c80239d3b8e9f756f1;hp=778a0002da5c27ea0ec8b2e2a7790e9a52f92a75;hpb=c75b18e91341a751e5bc9b076b63dfae3423e73f;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/86sqlt.t b/t/86sqlt.t
index 778a000..095a878 100644
--- a/t/86sqlt.t
+++ b/t/86sqlt.t
@@ -10,7 +10,7 @@ plan skip_all => 'SQL::Translator required' if $@;
 
 my $schema = DBICTest->init_schema;
 
-plan tests => 53;
+plan tests => 54;
 
 my $translator = SQL::Translator->new( 
   parser_args => {
@@ -24,6 +24,10 @@ $translator->producer('SQLite');
 
 my $output = $translator->translate();
 
+
+ok($output, "SQLT produced someoutput")
+  or diag($translator->error);
+
 # Note that the constraints listed here are the only ones that are tested -- if
 # more exist in the Schema than are listed here and all listed constraints are
 # correct, the test will still pass. If you add a class with UNIQUE or FOREIGN
@@ -139,7 +143,7 @@ my %fk_constraints = (
       'display' => 'treelike->treelike for parent',
       'selftable' => 'treelike', 'foreigntable' => 'treelike', 
       'selfcols'  => ['parent'], 'foreigncols' => ['id'],
-      on_delete => '', on_update => '',
+      on_delete => 'CASCADE', on_update => 'CASCADE',
     },
   ],