X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F60core.t;h=24b001f6dafdf75dbb6a3ff31ecdd00b6d31a762;hb=52c53388b5381f9a064a9e31491ff8ce2a123990;hp=d4303982b4fc95b51433b5a3cc6160367d0158c3;hpb=465cdd3fe2a505adc044b98621b295872fde16d4;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/60core.t b/t/60core.t
index d430398..24b001f 100644
--- a/t/60core.t
+++ b/t/60core.t
@@ -104,6 +104,13 @@ is($new_again->name, 'Man With A Spoon', 'Retrieved correctly');
 
 is($new_again->ID, 'DBICTest::Artist|artist|artistid=4', 'unique object id generated correctly');
 
+# test that store_column is called once for create() for non sequence columns 
+{
+  ok(my $artist = $schema->resultset('Artist')->create({name => 'store_column test'}));
+  is($artist->name, 'X store_column test'); # used to be 'X X store...'
+  $artist->delete;
+}
+
 # Test backwards compatibility
 {
   my $warnings = '';