|
Lines 24-29
use Test::Warn;
Link Here
|
| 24 |
|
24 |
|
| 25 |
use t::lib::TestBuilder; |
25 |
use t::lib::TestBuilder; |
| 26 |
use t::lib::Mocks; |
26 |
use t::lib::Mocks; |
|
|
27 |
use t::lib::Dates; |
| 27 |
|
28 |
|
| 28 |
use C4::Auth; |
29 |
use C4::Auth; |
| 29 |
use Koha::Database; |
30 |
use Koha::Database; |
|
Lines 534-540
subtest 'update() tests' => sub {
Link Here
|
| 534 |
$newpatron->{patron_id} = $unauthorized_patron->to_api->{patron_id}; |
535 |
$newpatron->{patron_id} = $unauthorized_patron->to_api->{patron_id}; |
| 535 |
$newpatron->{restricted} = $unauthorized_patron->to_api->{restricted}; |
536 |
$newpatron->{restricted} = $unauthorized_patron->to_api->{restricted}; |
| 536 |
$newpatron->{anonymized} = $unauthorized_patron->to_api->{anonymized}; |
537 |
$newpatron->{anonymized} = $unauthorized_patron->to_api->{anonymized}; |
| 537 |
is_deeply($result->tx->res->json, $newpatron, 'Returned patron from update matches expected'); |
538 |
|
|
|
539 |
my $got = $result->tx->res->json; |
| 540 |
my $updated_on_got = delete $got->{updated_on}; |
| 541 |
my $updated_on_expected = delete $newpatron->{updated_on}; |
| 542 |
is_deeply($got, $newpatron, 'Returned patron from update matches expected'); |
| 543 |
t::lib::Dates::compare( $updated_on_got, $updated_on_expected, 'updated_on values matched' ); |
| 544 |
|
| 538 |
|
545 |
|
| 539 |
is(Koha::Patrons->find( $patron_2->id )->cardnumber, |
546 |
is(Koha::Patrons->find( $patron_2->id )->cardnumber, |
| 540 |
$newpatron->{ cardnumber }, 'Patron is really updated!'); |
547 |
$newpatron->{ cardnumber }, 'Patron is really updated!'); |
| 541 |
- |
|
|