From 1b2765abdeb47ab6d4daa58a2f6b4470aded20f5 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 25 Jan 2024 09:36:01 +0100 Subject: [PATCH] Bug 35890: Add tests for AutoLocation Signed-off-by: Matt Blenkinsop --- t/db_dependent/Auth.t | 53 ++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 52 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Auth.t b/t/db_dependent/Auth.t index 55e8aaaa199..dace642faf9 100755 --- a/t/db_dependent/Auth.t +++ b/t/db_dependent/Auth.t @@ -7,7 +7,7 @@ use CGI qw ( -utf8 ); use Test::MockObject; use Test::MockModule; use List::MoreUtils qw/all any none/; -use Test::More tests => 19; +use Test::More tests => 20; use Test::Warn; use t::lib::Mocks; use t::lib::TestBuilder; @@ -1240,6 +1240,57 @@ subtest 'checkpw() return values tests' => sub { }; }; +subtest 'AutoLocation' => sub { + + plan tests => 6; + + $schema->storage->txn_begin; + + t::lib::Mocks::mock_preference( 'AutoLocation', 0 ); + + my $patron = $builder->build_object( { class => 'Koha::Patrons', value => { flags => 1 } } ); + my $password = 'password'; + t::lib::Mocks::mock_preference( 'RequireStrongPassword', 0 ); + $patron->set_password( { password => $password } ); + + my $cgi_mock = Test::MockModule->new('CGI'); + $cgi_mock->mock( 'request_method', sub { return 'POST' } ); + my $cgi = CGI->new; + my $auth = Test::MockModule->new('C4::Auth'); + + # Simulating the login form submission + $cgi->param( 'userid', $patron->userid ); + $cgi->param( 'password', $password ); + + $ENV{REMOTE_ADDR} = '127.0.0.1'; + my ( $userid, $cookie, $sessionID, $flags ) = C4::Auth::checkauth( $cgi, 0, { catalogue => 1 }, 'intranet' ); + is( $userid, $patron->userid ); + + my $template; + t::lib::Mocks::mock_preference( 'AutoLocation', 1 ); + + # AutoLocation: "Require staff to log in from a computer in the IP address range specified by their library (if any)" + $patron->library->branchip('')->store; # There is none, allow access from anywhere + ( $userid, $cookie, $sessionID, $flags, $template ) = + C4::Auth::checkauth( $cgi, 0, { catalogue => 1 }, 'intranet' ); + is( $userid, $patron->userid ); + is( $template, undef ); + + $patron->library->branchip('1.2.3.4')->store; + ( $userid, $cookie, $sessionID, $flags, $template ) = + C4::Auth::checkauth( $cgi, 0, { catalogue => 1 }, 'intranet', undef, undef, { do_not_print => 1 } ); + is( $template->{VARS}->{wrongip}, 1 ); + + $patron->library->branchip('127.0.0.1')->store; + ( $userid, $cookie, $sessionID, $flags, $template ) = + C4::Auth::checkauth( $cgi, 0, { catalogue => 1 }, 'intranet' ); + is( $userid, $patron->userid ); + is( $template, undef ); + + $schema->storage->txn_rollback; + +}; + sub set_weak_password { my ($patron) = @_; my $password = 'password'; -- 2.34.1