Patches from Andreas Hartmeier applied to PK::Auto

[dbsrgits/DBIx-Class.git] / t / run / 13oracle.tl

diff --git a/t/run/13oracle.tl b/t/run/13oracle.tl
index a5ab861..d524b96 100644 (file)
--- 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) {