From: Yuval Kogman Date: Thu, 3 Jan 2008 13:18:36 +0000 (+0000) Subject: failing test for inflate not being triggerred with copy() X-Git-Tag: v0.08010~21 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=07d4fb20767e8115583a9537bf6a46531919442e;p=dbsrgits%2FDBIx-Class.git failing test for inflate not being triggerred with copy() --- diff --git a/t/68inflate.t b/t/68inflate.t index ea917f8..23b81af 100644 --- a/t/68inflate.t +++ b/t/68inflate.t @@ -99,6 +99,10 @@ $cd->update({ year => \'year + 1'}); $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($@);