|
Lines 17-22
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
|
|
20 |
$| = 1; |
| 20 |
use Module::Load::Conditional qw/check_install/; |
21 |
use Module::Load::Conditional qw/check_install/; |
| 21 |
use Test::More; |
22 |
use Test::More; |
| 22 |
use Test::MockModule; |
23 |
use Test::MockModule; |
|
Lines 215-221
subtest "checkpw_shib tests" => sub {
Link Here
|
| 215 |
warnings_exist { |
216 |
warnings_exist { |
| 216 |
( $retval, $retcard, $retuserid ) = checkpw_shib( $shib_login ); |
217 |
( $retval, $retcard, $retuserid ) = checkpw_shib( $shib_login ); |
| 217 |
} |
218 |
} |
| 218 |
[ qr/checkpw_shib/, qr/User Shibboleth-authenticated as:/ ], |
219 |
[ qr/checkpw_shib/, qr/koha borrower field to match: userid/, |
|
|
220 |
qr/shibboleth attribute to match: uid/, |
| 221 |
qr/User Shibboleth-authenticated as:/ ], |
| 219 |
"good user with debug enabled"; |
222 |
"good user with debug enabled"; |
| 220 |
is( $retval, "1", "user authenticated" ); |
223 |
is( $retval, "1", "user authenticated" ); |
| 221 |
is( $retcard, "testcardnumber", "expected cardnumber returned" ); |
224 |
is( $retcard, "testcardnumber", "expected cardnumber returned" ); |
|
Lines 228-233
subtest "checkpw_shib tests" => sub {
Link Here
|
| 228 |
} |
231 |
} |
| 229 |
[ |
232 |
[ |
| 230 |
qr/checkpw_shib/, |
233 |
qr/checkpw_shib/, |
|
|
234 |
qr/koha borrower field to match: userid/, |
| 235 |
qr/shibboleth attribute to match: uid/, |
| 231 |
qr/User Shibboleth-authenticated as:/, |
236 |
qr/User Shibboleth-authenticated as:/, |
| 232 |
qr/not a valid Koha user/ |
237 |
qr/not a valid Koha user/ |
| 233 |
], |
238 |
], |
| 234 |
- |
|
|