|
Lines 2-8
Link Here
|
| 2 |
|
2 |
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
|
4 |
|
| 5 |
use Test::More tests => 12; |
5 |
use Test::More tests => 13; |
| 6 |
use Test::MockModule; |
6 |
use Test::MockModule; |
| 7 |
use DBD::Mock; |
7 |
use DBD::Mock; |
| 8 |
|
8 |
|
|
Lines 55-61
$koha->mock(
Link Here
|
| 55 |
|
55 |
|
| 56 |
SKIP: { |
56 |
SKIP: { |
| 57 |
|
57 |
|
| 58 |
skip "DBD::Mock is too old", 7 |
58 |
skip "DBD::Mock is too old", 8 |
| 59 |
unless $DBD::Mock::VERSION >= 1.45; |
59 |
unless $DBD::Mock::VERSION >= 1.45; |
| 60 |
|
60 |
|
| 61 |
ok( IsAuthorisedValueValid('LOC'), |
61 |
ok( IsAuthorisedValueValid('LOC'), |
| 62 |
- |
|
|