|
Lines 20-26
Link Here
|
| 20 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
20 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
| 21 |
|
21 |
|
| 22 |
use Modern::Perl; |
22 |
use Modern::Perl; |
| 23 |
use Test::More tests => 3; |
23 |
use Test::More tests => 4; |
|
|
24 |
use Test::Exception; |
| 24 |
|
25 |
|
| 25 |
use Koha::Database; |
26 |
use Koha::Database; |
| 26 |
use t::lib::TestBuilder; |
27 |
use t::lib::TestBuilder; |
|
Lines 70-75
$builder->build(
Link Here
|
| 70 |
} |
71 |
} |
| 71 |
); |
72 |
); |
| 72 |
|
73 |
|
|
|
74 |
subtest 'undef top level tests' => sub { |
| 75 |
|
| 76 |
plan tests => 2; |
| 77 |
|
| 78 |
throws_ok { my $r = haspermission( $borr1->{userid} ); } |
| 79 |
'Koha::Exceptions::WrongParameter', |
| 80 |
'Exception thrown when missing $requiredflags'; |
| 81 |
throws_ok { my $r = haspermission( $borr1->{userid}, undef ); } |
| 82 |
'Koha::Exceptions::WrongParameter', 'Exception thrown when explicit undef'; |
| 83 |
}; |
| 84 |
|
| 73 |
subtest 'scalar top level tests' => sub { |
85 |
subtest 'scalar top level tests' => sub { |
| 74 |
|
86 |
|
| 75 |
plan tests => 3; |
87 |
plan tests => 3; |
| 76 |
- |
|
|