[Bast-commits] r4823 - DBIx-Class-DynamicDefault/1.000/trunk/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-09-19 12:32:11 +0100 (Fri, 19 Sep 2008)
New Revision: 4823

Modified:
   DBIx-Class-DynamicDefault/1.000/trunk/t/basic.t
Log:
Failing tests for changing depending columns when the reference column is set explicitly.

Modified: DBIx-Class-DynamicDefault/1.000/trunk/t/basic.t
===================================================================
--- DBIx-Class-DynamicDefault/1.000/trunk/t/basic.t	2008-09-18 17:13:48 UTC (rev 4822)
+++ DBIx-Class-DynamicDefault/1.000/trunk/t/basic.t	2008-09-19 11:32:11 UTC (rev 4823)
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 18;
+use Test::More tests => 26;
 use DBICx::TestDatabase;
 
 BEGIN { use_ok('DBIx::Class::DynamicDefault') }
@@ -49,3 +49,17 @@
 is($row->kooh, 'zomtec', 'on update default without always_update if another col is changed due to always_update');
 is($row->baz, 1, 'baz set according to moo');
 is($row->bar, 1, 'bar set according to moo');
+
+$row->update({ moo => 5 });
+
+is($TestSchema::Affe::moo_default_called, 2);
+is($row->moo, 5);
+is($row->baz, 2);
+is($row->bar, 2);
+
+$row->update({ baz => 5 });
+
+is($TestSchema::Affe::moo_default_called, 3);
+is($row->moo, 3);
+is($row->baz, 5);
+is($row->bar, 3);