X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=t%2F60core.t;h=8ab6129b2c847cbc78564b49112e158fed219bd0;hp=b62b82df0ddd760aa172bf094b618d88dab62b9a;hb=63bb9738dd8fdca42ad88d99a2a3861ad2b00eed;hpb=0fcfe456c1255339f94fa1c218451760e65d24bc

diff --git a/t/60core.t b/t/60core.t
index b62b82d..8ab6129 100644
--- a/t/60core.t
+++ b/t/60core.t
@@ -65,7 +65,7 @@ lives_ok (sub { $art->delete }, 'Cascading delete on Ordered has_many works' );
 
 is(@art, 2, 'And then there were two');
 
-ok(!$art->in_storage, "It knows it's dead");
+is($art->in_storage, 0, "It knows it's dead");
 
 dies_ok ( sub { $art->delete }, "Can't delete twice");
 
@@ -144,7 +144,7 @@ is($schema->resultset("Artist")->count, 4, 'count ok');
   });
 
   is($new_obj->name, 'find_or_new', 'find_or_new: instantiated a new artist');
-  ok(! $new_obj->in_storage, 'new artist is not in storage');
+  is($new_obj->in_storage, 0, 'new artist is not in storage');
 }
 
 my $cd = $schema->resultset("CD")->find(1);