From: Peter Rabbitson Date: Wed, 20 May 2015 14:11:39 +0000 (+0200) Subject: Add extra (passing) test for operations on sourceless results X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=05e201a9ddf9039e39d928581a407ca209536df7;p=dbsrgits%2FDBIx-Class-Historic.git Add extra (passing) test for operations on sourceless results This should have been committed with 84b1ec108, reevaluated while reading through cb909f39c of GH#78 --- diff --git a/t/row/sourceless.t b/t/row/sourceless.t new file mode 100644 index 0000000..85ae3ee --- /dev/null +++ b/t/row/sourceless.t @@ -0,0 +1,37 @@ +use strict; +use warnings; + +use Test::More; +use lib qw(t/lib); +use DBICTest; + +my $row = DBICTest::Schema::CD->new({ title => 'foo' }); + +my @values = qw( foo bar baz ); +for my $i ( 0 .. $#values ) { + { + local $TODO = 'This probably needs to always return 1, on virgin objects... same with get_dirty_columns' + unless $i; + + ok ( $row->is_column_changed('title'), 'uninserted row properly reports "eternally changed" value' ); + is_deeply ( + { $row->get_dirty_columns }, + { title => $values[$i-1] }, + 'uninserted row properly reports "eternally changed" dirty_columns()' + ); + } + + $row->title( $values[$i] ); + + ok( $row->is_column_changed('title'), 'uninserted row properly reports changed value' ); + is( $row->title, $values[$i] , 'Expected value on sourceless row' ); + for my $meth (qw( get_columns get_inflated_columns get_dirty_columns )) { + is_deeply( + { $row->$meth }, + { title => $values[$i] }, + "Expected '$meth' rv", + ) + } +} + +done_testing;