X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F13schema.t;h=c5c76352f0cdeb9253b5217b0dbf49e40ebffe11;hb=2f85151f62d7269c8e4763f41672468591dff962;hp=497ea751930c126fb08e7df2f290b8a133e780c0;hpb=f24e48939a15ba970f17440b616c078b093db945;p=dbsrgits%2FSQL-Translator-2.0-ish.git diff --git a/t/13schema.t b/t/13schema.t index 497ea75..c5c7635 100644 --- a/t/13schema.t +++ b/t/13schema.t @@ -625,8 +625,6 @@ TODO: { action => $action, }) or die $s->error; - $t->add_database_event('insert'); - isa_ok( $t, 'SQL::Translator::Object::Trigger', 'Trigger' ); isa_ok( $t->schema, 'SQL::Translator::Object::Schema', 'Schema' ); is( $t->schema->name, 'TrigTest', qq[Schema name is "'TrigTest'"] ); @@ -648,7 +646,7 @@ TODO: { - my $s2 = SQL::Translator::Object::Schema->new(name => 'TrigTest2'); + my $s2 = SQL::Translator::Object::Schema->new(name => 'TrigTest2'); $s2->add_table({ name => 'foo' }) or die "Couldn't create table: ", $s2->error; my $t2 = $s2->add_trigger({ name => 'foo_trigger', @@ -659,36 +657,36 @@ TODO: { }) or die $s2->error; $t2->add_database_event('insert'); $t2->add_database_event('update'); - isa_ok( $t2, 'SQL::Translator::Object::Trigger', 'Trigger' ); + isa_ok( $t2, 'SQL::Translator::Object::Trigger', 'Trigger' ); isa_ok( $t2->schema, 'SQL::Translator::Object::Schema', 'Schema' ); is( $t2->schema->name, 'TrigTest2', qq[Schema name is "'TrigTest2'"] ); is( $t2->name, 'foo_trigger', qq[Name is "foo_trigger"] ); - is_deeply( + is_deeply( [$t2->database_events], [qw/insert update/], "Database events are [qw/insert update/] " ); - #isa_ok($t2->database_events,'ARRAY','Database events'); - - # - # Trigger equal tests - # -# isnt( + #isa_ok($t2->database_events,'ARRAY','Database events'); + + # + # Trigger equal tests + # +# isnt( # $t1->equals($t2), # 1, # 'Compare two Triggers with database_event and database_events' # ); - $t1->database_events($database_events); - $t2->database_events($database_events); -# is($t1->equals($t2),1,'Compare two Triggers with database_event'); + $t1->database_events($database_events); + $t2->database_events($database_events); +# is($t1->equals($t2),1,'Compare two Triggers with database_event'); - $t2->database_events(''); - $t1->database_events([qw/update insert/]); - $t2->database_events([qw/insert update/]); -# is($t1->equals($t2),1,'Compare two Triggers with database_events'); - + $t2->database_events(''); + $t1->database_events([qw/update insert/]); + $t2->database_events([qw/insert update/]); +# is($t1->equals($t2),1,'Compare two Triggers with database_events'); + # # $schema-> drop_trigger #