X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F79aliasing.t;h=00e5e930abf42a5363229b5027b8076662ec32ab;hb=574dd7c9e960fd2fa6ad083454776adf3cd967e9;hp=94ae02b08384e77c76672bb4fb7cbbce05ced6b1;hpb=af7029b7beb0dc5b5dbdd9f626cca7d7c236c147;p=dbsrgits%2FDBIx-Class.git diff --git a/t/79aliasing.t b/t/79aliasing.t index 94ae02b..00e5e93 100644 --- a/t/79aliasing.t +++ b/t/79aliasing.t @@ -1,5 +1,5 @@ use strict; -use warnings; +use warnings; use Test::More; use lib qw(t/lib); @@ -52,7 +52,7 @@ plan tests => 11; my $cd_rs = $schema->resultset('CD')->search({ 'artist.name' => 'Caterwauler McCrae' }, { join => 'artist' }); my $cd = $cd_rs->find_or_new({ title => 'Huh?', year => 2006 }); - ok(! $cd->in_storage, 'new CD not in storage yet'); + is($cd->in_storage, 0, 'new CD not in storage yet'); is($cd->title, 'Huh?', 'new CD title is correct'); is($cd->year, 2006, 'new CD year is correct'); }