1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
10 my $row = DBICTest::Schema::CD->new({ title => 'foo' });
12 my @values = qw( foo bar baz );
13 for my $i ( 0 .. $#values ) {
15 local $TODO = 'This probably needs to always return 1, on virgin objects... same with get_dirty_columns'
18 ok ( $row->is_column_changed('title'), 'uninserted row properly reports "eternally changed" value' );
20 { $row->get_dirty_columns },
21 { title => $values[$i-1] },
22 'uninserted row properly reports "eternally changed" dirty_columns()'
26 $row->title( $values[$i] );
28 ok( $row->is_column_changed('title'), 'uninserted row properly reports changed value' );
29 is( $row->title, $values[$i] , 'Expected value on sourceless row' );
30 for my $meth (qw( get_columns get_inflated_columns get_dirty_columns )) {
33 { title => $values[$i] },
34 "Expected '$meth' rv",