Added failing test for update

diff --git a/t/01core.t b/t/01core.t
index 7a80931..92dbdd5 100644 (file)
--- a/t/01core.t
+++ b/t/01core.t
@@ -75,3 +75,9 @@ $new_again = DBICTest::Artist->retrieve(4);
 is($new_again->name, 'Man With A Spoon', 'Retrieved correctly');
 
 is(DBICTest::Artist->count, 4, 'count ok');
+
+# add an artist without primary key to test Auto
+my $artist = DBICTest::Artist->create( { name => 'Auto' } );
+$artist->name( 'Auto Change' );
+ok($artist->update, 'update on object created without PK ok');
+