@@ -, +, @@ --- t/db_dependent/Koha/Patrons.t | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) --- a/t/db_dependent/Koha/Patrons.t +++ a/t/db_dependent/Koha/Patrons.t @@ -318,18 +318,20 @@ subtest 'renew_account' => sub { }; subtest "move_to_deleted" => sub { - plan tests => 3; + plan tests => 5; my $originally_updated_on = '2016-01-01 12:12:12'; my $patron = $builder->build( { source => 'Borrower',value => { updated_on => $originally_updated_on } } ); my $retrieved_patron = Koha::Patrons->find( $patron->{borrowernumber} ); - is( ref( $retrieved_patron->move_to_deleted ), 'Koha::Schema::Result::Deletedborrower', 'Koha::Patron->move_to_deleted should return the Deleted patron' ) + my $deleted_patron = $retrieved_patron->move_to_deleted; + is( ref( $deleted_patron ), 'Koha::Schema::Result::Deletedborrower', 'Koha::Patron->move_to_deleted should return the Deleted patron' ) ; # FIXME This should be Koha::Deleted::Patron - my $deleted_patron = $schema->resultset('Deletedborrower') - ->search( { borrowernumber => $patron->{borrowernumber} }, { result_class => 'DBIx::Class::ResultClass::HashRefInflator' } ) - ->next; - isnt( $deleted_patron->{updated_on}, $retrieved_patron->{updated_on}, 'Koha::Patron->move_to_deleted should have correctly updated the updated_on column'); - $deleted_patron->{updated_on} = $originally_updated_on; #reset for simplicity in comparing all other fields - is_deeply( $deleted_patron, $patron, 'Koha::Patron->move_to_deleted should have correctly moved the patron to the deleted table' ); + + #$deleted_patron->discard_changes; # This does not work + ok( $deleted_patron->updated_on, 'The ->updated_on method should return something' ); + is( dt_from_string($deleted_patron->updated_on)->truncate( to => 'day' ), dt_from_string->truncate( to => 'day' ), 'The updated_on value for the deleted patron should be today' ); + isnt( $deleted_patron->updated_on, $retrieved_patron->updated_on, 'Koha::Patron->move_to_deleted should have correctly updated the updated_on column'); + $deleted_patron->updated_on($originally_updated_on); #reset for simplicity in comparing all other fields + is_deeply( { $deleted_patron->get_columns }, $patron, 'Koha::Patron->move_to_deleted should have correctly moved the patron to the deleted table' ); $retrieved_patron->delete( $patron->{borrowernumber} ); # Cleanup }; --