X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F27sqlite-parser.t;h=ae99f19063957016851de3aec744358a42b1812a;hb=281c5d177d55d94b5667c2702279c4202e568fbe;hp=198d8c3e4ea8bec765490a048dfbd7aa2d218646;hpb=7179cb094a6f8ef0c4471a2c329090a9a53fa3a5;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/27sqlite-parser.t b/t/27sqlite-parser.t
index 198d8c3..ae99f19 100644
--- a/t/27sqlite-parser.t
+++ b/t/27sqlite-parser.t
@@ -10,7 +10,7 @@ use SQL::Translator;
 use SQL::Translator::Schema::Constants;
 
 BEGIN {
-    maybe_plan(19,
+    maybe_plan(21,
         'SQL::Translator::Parser::SQLite');
 }
 SQL::Translator::Parser::SQLite->import('parse');
@@ -47,7 +47,7 @@ my $file = "$Bin/data/sqlite/create.sql";
     my $c1 = pop @constraints;
     is( $c1->type, 'FOREIGN KEY', 'FK constraint' );
     is( $c1->reference_table, 'person', 'References person table' );
-    is( join(',', $c1->reference_fields), 'person_id', 
+    is( join(',', $c1->reference_fields), 'person_id',
         'References person_id field' );
 
     my @views = $schema->get_views;
@@ -80,7 +80,9 @@ $file = "$Bin/data/sqlite/named.sql";
     is( $c1->type, 'FOREIGN KEY', 'FK constraint' );
     is( $c1->reference_table, 'person', 'References person table' );
     is( $c1->name, 'fk_person_id', 'Constraint name fk_person_id' );
-    is( join(',', $c1->reference_fields), 'person_id', 
+    is( $c1->on_delete, 'RESTRICT', 'On delete restrict' );
+    is( $c1->on_update, 'CASCADE', 'On update cascade' );
+    is( join(',', $c1->reference_fields), 'person_id',
         'References person_id field' );
 
 }