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

(-)a/t/db_dependent/Auth.t (-5 / +25 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
#
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
5
2
6
use Modern::Perl;
3
use Modern::Perl;
7
4
Lines 10-16 use CGI qw ( -utf8 ); Link Here
10
use Test::MockObject;
7
use Test::MockObject;
11
use Test::MockModule;
8
use Test::MockModule;
12
use List::MoreUtils qw/all any none/;
9
use List::MoreUtils qw/all any none/;
13
use Test::More tests => 17;
10
use Test::More tests => 18;
14
use Test::Warn;
11
use Test::Warn;
15
use t::lib::Mocks;
12
use t::lib::Mocks;
16
use t::lib::TestBuilder;
13
use t::lib::TestBuilder;
Lines 981-984 subtest 'create_basic_session tests' => sub { Link Here
981
    is( $session->param('interface'), 'intranet', 'Staff interface gets converted to intranet' );
978
    is( $session->param('interface'), 'intranet', 'Staff interface gets converted to intranet' );
982
};
979
};
983
980
981
subtest 'check_cookie_auth overwriting interface already set' => sub {
982
    plan tests => 2;
983
984
    t::lib::Mocks::mock_preference( 'SessionRestrictionByIP', 0 );
985
986
    my $patron = $builder->build_object({ class => 'Koha::Patrons' });
987
    my $session = C4::Auth::get_session();
988
    $session->param( 'number',       $patron->id );
989
    $session->param( 'id',           $patron->userid );
990
    $session->param( 'ip',           '1.2.3.4' );
991
    $session->param( 'lasttime',     time() );
992
    $session->param( 'interface',    'opac' );
993
    $session->flush;
994
995
    C4::Context->interface('intranet');
996
    C4::Auth::check_cookie_auth( $session->id );
997
    is( C4::Context->interface, 'intranet', 'check_cookie_auth did not overwrite' );
998
    delete $C4::Context::context->{interface}; # clear context interface
999
    C4::Auth::check_cookie_auth( $session->id );
1000
    is( C4::Context->interface, 'opac', 'check_cookie_auth used interface from session when context interface was empty' );
1001
1002
    t::lib::Mocks::mock_preference( 'SessionRestrictionByIP', 1 );
1003
};
1004
984
$schema->storage->txn_rollback;
1005
$schema->storage->txn_rollback;
985
- 

Return to bug 33879