TODO: {
local $TODO = 'patch Moose Native::Trait';
dies_ok( sub { my $bad_table = $schema->get_table }, 'Error on no arg to get_table' );
+}
is($schema->get_table('baz'), undef, 'Nonexistant table returns undef');
+TODO: {
+ local $TODO = 'patch Moose Native::Trait';
dies_ok( sub { my $bad_view = $schema->get_view }, 'Error on no arg to get_view' );
- is($schema->get_view('baz'), undef, 'Nonexistant view returns undef');
}
+ is($schema->get_view('baz'), undef, 'Nonexistant view returns undef');
my $good_table = $schema->get_table('foo');
isa_ok( $good_table, 'SQL::Translator::Object::Table', 'Table "foo"' );
#like( $c->error, qr/non-existent field/i,
# q[...because there's no "pet_id" field in "pet"]);
- my $pet_id = $t2->add_field({ name => 'pet_id' });
+ my $pet_id = $t2->add_column({ name => 'pet_id' });
is( $pet_id->name, 'pet_id', 'Added field "pet_id"' );
## is( $c->is_valid, 1, 'Constraint now valid' );
- 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',
on_table => 'foo',
action => 'update modified=timestamp();',
}) 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
#