Lines 73-85
$builder->build(
Link Here
|
73 |
|
73 |
|
74 |
subtest 'undef top level tests' => sub { |
74 |
subtest 'undef top level tests' => sub { |
75 |
|
75 |
|
76 |
plan tests => 2; |
76 |
plan tests => 1; |
77 |
|
77 |
|
78 |
throws_ok { my $r = haspermission( $borr1->{userid} ); } |
78 |
my $pass = haspermission( $borr2->{userid} ); |
79 |
'Koha::Exceptions::WrongParameter', |
79 |
ok($pass, "let through undef privs"); |
80 |
'Exception thrown when missing $requiredflags'; |
80 |
|
81 |
throws_ok { my $r = haspermission( $borr1->{userid}, undef ); } |
81 |
#throws_ok { my $r = haspermission( $borr1->{userid} ); } |
82 |
'Koha::Exceptions::WrongParameter', 'Exception thrown when explicit undef'; |
82 |
#'Koha::Exceptions::WrongParameter', |
|
|
83 |
# 'Exception thrown when missing $requiredflags'; |
84 |
#throws_ok { my $r = haspermission( $borr1->{userid}, undef ); } |
85 |
#'Koha::Exceptions::WrongParameter', 'Exception thrown when explicit undef'; |
83 |
}; |
86 |
}; |
84 |
|
87 |
|
85 |
subtest 'scalar top level tests' => sub { |
88 |
subtest 'scalar top level tests' => sub { |
86 |
- |
|
|