[Bast-commits] r9148 - DBIx-Class/0.08/branches/filter_column/t/row

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-04-14 19:10:57 +0100 (Wed, 14 Apr 2010)
New Revision: 9148

Modified:
   DBIx-Class/0.08/branches/filter_column/t/row/filter_column.t
Log:
MultiCreate test

Modified: DBIx-Class/0.08/branches/filter_column/t/row/filter_column.t
===================================================================
--- DBIx-Class/0.08/branches/filter_column/t/row/filter_column.t	2010-04-14 17:31:18 UTC (rev 9147)
+++ DBIx-Class/0.08/branches/filter_column/t/row/filter_column.t	2010-04-14 18:10:57 UTC (rev 9148)
@@ -49,4 +49,13 @@
 $artist->rank(40);
 ok( !$artist->is_column_changed('rank'), 'column is not dirty after setting the same value' );
 
+MC: {
+   my $cd = $schema->resultset('CD')->create({
+      artist => { rank => 20 },
+      title => 'fun time city!',
+      year => 'forevertime',
+   });
+   is $cd->artist->rank, 20, 'artist rank gets correctly unfiltered then filtered on MC';
+}
+
 done_testing;