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