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

(-)a/t/db_dependent/api/v1/two_factor_auth.t (-3 / +26 lines)
Lines 90-96 subtest 'registration and verification' => sub { Link Here
90
    $tx = $t->ua->build_tx( POST => "/api/v1/auth/two-factor/registration" );
90
    $tx = $t->ua->build_tx( POST => "/api/v1/auth/two-factor/registration" );
91
    $tx->req->cookies( { name => 'CGISESSID', value => $session->id } );
91
    $tx->req->cookies( { name => 'CGISESSID', value => $session->id } );
92
    $tx->req->env( { REMOTE_ADDR => $remote_address } );
92
    $tx->req->env( { REMOTE_ADDR => $remote_address } );
93
    $t->request_ok($tx)->status_is(201);
93
    {
94
        # Ignore the following warning
95
        # Use of uninitialized value $aMask[1383] in bitwise xor (^) at /usr/local/share/perl/5.36.0/GD/Barcode/QRcode.pm line 217.
96
        # We do not want to expect it (using Test::Warn): it is a bug from GD::Barcode
97
        local $SIG{__WARN__} = sub { };
98
        my $dup_err;
99
        local *STDERR;
100
        open STDERR, ">>", \$dup_err;
101
102
        $t->request_ok($tx)->status_is(201);
103
104
        close STDERR;
105
    }
94
    my $secret32 = $t->tx->res->json->{secret32};
106
    my $secret32 = $t->tx->res->json->{secret32};
95
107
96
    $tx = $t->ua->build_tx( POST => "/api/v1/auth/two-factor/registration/verification" );
108
    $tx = $t->ua->build_tx( POST => "/api/v1/auth/two-factor/registration/verification" );
Lines 120-126 subtest 'registration and verification' => sub { Link Here
120
    $tx = $t->ua->build_tx( POST => "/api/v1/auth/two-factor/registration" );
132
    $tx = $t->ua->build_tx( POST => "/api/v1/auth/two-factor/registration" );
121
    $tx->req->cookies( { name => 'CGISESSID', value => $session->id } );
133
    $tx->req->cookies( { name => 'CGISESSID', value => $session->id } );
122
    $tx->req->env( { REMOTE_ADDR => $remote_address } );
134
    $tx->req->env( { REMOTE_ADDR => $remote_address } );
123
    $t->request_ok($tx)->status_is(201);
135
    {
136
        # Ignore the following warning
137
        # Use of uninitialized value $aMask[1383] in bitwise xor (^) at /usr/local/share/perl/5.36.0/GD/Barcode/QRcode.pm line 217.
138
        # We do not want to expect it (using Test::Warn): it is a bug from GD::Barcode
139
        local $SIG{__WARN__} = sub { };
140
        my $dup_err;
141
        local *STDERR;
142
        open STDERR, ">>", \$dup_err;
143
144
        $t->request_ok($tx)->status_is(201);
145
146
        close STDERR;
147
    }
124
    $secret32 = $t->tx->res->json->{secret32};
148
    $secret32 = $t->tx->res->json->{secret32};
125
149
126
    $auth     = Koha::Auth::TwoFactorAuth->new( { patron => $patron, secret32 => $secret32 } );
150
    $auth     = Koha::Auth::TwoFactorAuth->new( { patron => $patron, secret32 => $secret32 } );
127
- 

Return to bug 40490