From: Andy Grundman <andy@hybridized.org>
Date: Tue, 2 Aug 2005 17:20:39 +0000 (+0000)
Subject: Added failing test for update
X-Git-Tag: v0.03001~90
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b978d0ef5ef75a0bac2c4a54a3887c768123b9fc;p=dbsrgits%2FDBIx-Class.git

Added failing test for update
---

diff --git a/t/01core.t b/t/01core.t
index 7a80931..92dbdd5 100644
--- 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');
+