[Bast-commits] r3910 - DBIx-Class/0.08/trunk/t

[nothingmuch at dev.catalyst.perl.org]

Author: nothingmuch
Date: 2008-01-03 13:18:36 +0000 (Thu, 03 Jan 2008)
New Revision: 3910

Modified:
   DBIx-Class/0.08/trunk/t/68inflate.t
Log:
failing test for inflate not being triggerred with copy()

Modified: DBIx-Class/0.08/trunk/t/68inflate.t
===================================================================
--- DBIx-Class/0.08/trunk/t/68inflate.t	2008-01-02 22:24:23 UTC (rev 3909)
+++ DBIx-Class/0.08/trunk/t/68inflate.t	2008-01-03 13:18:36 UTC (rev 3910)
@@ -99,6 +99,10 @@
 $cd->discard_changes;
 
 is($cd->year->year, $before_year + 1, 'discard_changes clears the inflated value');
+
+my $copy = $cd->copy({ year => $now, title => "zemoose" });
+
+isnt( $copy->year->year, $before_year, "copy" );
  
 # eval { $cd->store_inflated_column('year', \'year + 1') };
 # print STDERR "ERROR: $@" if($@);