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