View | Details | Raw Unified | Return to bug 14111
Collapse All | Expand All

(-)a/t/Auth_with_shibboleth.t (-2 / +6 lines)
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
- 

Return to bug 14111