|
Lines 19-28
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 4; |
22 |
use Test::More tests => 5; |
| 23 |
|
23 |
|
| 24 |
use Test::MockModule; |
24 |
use Test::MockModule; |
| 25 |
use Test::MockObject; |
25 |
use Test::MockObject; |
|
|
26 |
use Test::NoWarnings; |
| 26 |
use Test::Exception; |
27 |
use Test::Exception; |
| 27 |
|
28 |
|
| 28 |
use JSON qw(encode_json); |
29 |
use JSON qw(encode_json); |
|
Lines 56-62
subtest 'get_user() tests' => sub {
Link Here
|
| 56 |
} |
57 |
} |
| 57 |
} |
58 |
} |
| 58 |
); |
59 |
); |
| 59 |
my $patron = $builder->build_object( { class => 'Koha::Patrons', value => { email => 'patron@test.com' } } ); |
60 |
my $patron = $builder->build_object( { class => 'Koha::Patrons', value => { email => 'patron@test.com' } } ); |
|
|
61 |
t::lib::Mocks::mock_userenv( { patron => $patron } ); |
| 60 |
my $mapping = { |
62 |
my $mapping = { |
| 61 |
email => 'electronic_mail', |
63 |
email => 'electronic_mail', |
| 62 |
firstname => 'given_name', |
64 |
firstname => 'given_name', |
| 63 |
- |
|
|