X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frun%2F13oracle.tl;h=d524b9611e8d0179b7a383ec8e6ef582c744ed99;hb=c8f4b52ba7e5e8a2e5a91655bfc058a54155dcc5;hp=a5ab86150ffdbc212d81248069e110765e292896;hpb=c2074366cb27cd61f218bc6445ab25c2c6b0a3a0;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/run/13oracle.tl b/t/run/13oracle.tl
index a5ab861..d524b96 100644
--- a/t/run/13oracle.tl
+++ b/t/run/13oracle.tl
@@ -36,7 +36,7 @@ OraTest::Artist->load_components('PK::Auto::Oracle');
 
 # test primary key handling
 my $new = OraTest::Artist->create({ name => 'foo' });
-ok($new->artistid, "Oracle Auto-PK worked");
+is($new->artistid, 1, "Oracle Auto-PK worked");
 
 # test LIMIT support
 for (1..6) {