patch CDBI live object index emulation to use ->ID method, add tests for ->ID

[dbsrgits/DBIx-Class.git] / t / run / 01core.tl

diff --git a/t/run/01core.tl b/t/run/01core.tl
index 3f5eace..13b4d34 100644 (file)
--- a/t/run/01core.tl
+++ b/t/run/01core.tl
@@ -1,6 +1,6 @@
 sub run_tests {
 
-plan tests => 22; 
+plan tests => 23; 
 
 my @art = DBICTest::Artist->search({ }, { order_by => 'name DESC'});
 
@@ -70,6 +70,8 @@ $new_again = DBICTest::Artist->find(4);
 
 is($new_again->name, 'Man With A Spoon', 'Retrieved correctly');
 
+is($new_again->ID, 'DBICTest::Artist|artistid=4', 'unique object id generated correctly');
+
 is(DBICTest::Artist->count, 4, 'count ok');
 
 # insert_or_update