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 |
- |
|
|