use SQL::Translator::Schema::Constants;
BEGIN {
- maybe_plan(19,
+ maybe_plan(21,
'SQL::Translator::Parser::SQLite');
}
SQL::Translator::Parser::SQLite->import('parse');
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( $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' );