|
Lines 318-324
subtest 'renew_account' => sub {
Link Here
|
| 318 |
}; |
318 |
}; |
| 319 |
|
319 |
|
| 320 |
subtest "move_to_deleted" => sub { |
320 |
subtest "move_to_deleted" => sub { |
| 321 |
plan tests => 3; |
321 |
plan tests => 5; |
| 322 |
my $originally_updated_on = '2016-01-01 12:12:12'; |
322 |
my $originally_updated_on = '2016-01-01 12:12:12'; |
| 323 |
my $patron = $builder->build( { source => 'Borrower',value => { updated_on => $originally_updated_on } } ); |
323 |
my $patron = $builder->build( { source => 'Borrower',value => { updated_on => $originally_updated_on } } ); |
| 324 |
my $retrieved_patron = Koha::Patrons->find( $patron->{borrowernumber} ); |
324 |
my $retrieved_patron = Koha::Patrons->find( $patron->{borrowernumber} ); |
|
Lines 327-333
subtest "move_to_deleted" => sub {
Link Here
|
| 327 |
my $deleted_patron = $schema->resultset('Deletedborrower') |
327 |
my $deleted_patron = $schema->resultset('Deletedborrower') |
| 328 |
->search( { borrowernumber => $patron->{borrowernumber} }, { result_class => 'DBIx::Class::ResultClass::HashRefInflator' } ) |
328 |
->search( { borrowernumber => $patron->{borrowernumber} }, { result_class => 'DBIx::Class::ResultClass::HashRefInflator' } ) |
| 329 |
->next; |
329 |
->next; |
| 330 |
isnt( $deleted_patron->{updated_on}, $retrieved_patron->{updated_on}, 'Koha::Patron->move_to_deleted should have correctly updated the updated_on column'); |
330 |
ok( $retrieved_patron->updated_on, 'updated_on should be set for borrowers table' ); |
|
|
331 |
ok( $deleted_patron->{updated_on}, 'updated_on should be set for deleted_borrowers table' ); |
| 332 |
isnt( $deleted_patron->{updated_on}, $retrieved_patron->updated_on, 'Koha::Patron->move_to_deleted should have correctly updated the updated_on column'); |
| 331 |
$deleted_patron->{updated_on} = $originally_updated_on; #reset for simplicity in comparing all other fields |
333 |
$deleted_patron->{updated_on} = $originally_updated_on; #reset for simplicity in comparing all other fields |
| 332 |
is_deeply( $deleted_patron, $patron, 'Koha::Patron->move_to_deleted should have correctly moved the patron to the deleted table' ); |
334 |
is_deeply( $deleted_patron, $patron, 'Koha::Patron->move_to_deleted should have correctly moved the patron to the deleted table' ); |
| 333 |
$retrieved_patron->delete( $patron->{borrowernumber} ); # Cleanup |
335 |
$retrieved_patron->delete( $patron->{borrowernumber} ); # Cleanup |
| 334 |
- |
|
|