Lines 19-25
Link Here
|
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
|
21 |
|
22 |
use Test::More tests => 40; |
22 |
use Test::More tests => 41; |
23 |
use Test::Warn; |
23 |
use Test::Warn; |
24 |
use Test::Exception; |
24 |
use Test::Exception; |
25 |
use Test::MockModule; |
25 |
use Test::MockModule; |
Lines 88-93
subtest 'library' => sub {
Link Here
|
88 |
is( ref($retrieved_patron_1->library), 'Koha::Library', 'Koha::Patron->library should return a Koha::Library object' ); |
88 |
is( ref($retrieved_patron_1->library), 'Koha::Library', 'Koha::Patron->library should return a Koha::Library object' ); |
89 |
}; |
89 |
}; |
90 |
|
90 |
|
|
|
91 |
subtest 'sms_provider' => sub { |
92 |
plan tests => 2; |
93 |
my $sms_provider = $builder->build({source => 'SmsProvider' }); |
94 |
$retrieved_patron_1->sms_provider_id( $sms_provider->{id} )->store; |
95 |
is_deeply( $retrieved_patron_1->sms_provider->unblessed, $sms_provider, 'Koha::Patron->sms_provider returns the correct SMS provider' ); |
96 |
is( ref($retrieved_patron_1->sms_provider), 'Koha::SMS::Provider', 'Koha::Patron->sms_provider should return a Koha::SMS::Provider object' ); |
97 |
}; |
98 |
|
91 |
subtest 'guarantees' => sub { |
99 |
subtest 'guarantees' => sub { |
92 |
plan tests => 13; |
100 |
plan tests => 13; |
93 |
|
101 |
|
94 |
- |
|
|