From f2f0d32620c42477263856b71d5fe5c95a13d7ae Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Tue, 21 May 2024 13:56:17 +0000 Subject: [PATCH] Bug 26176: (follow-up) Prevent random failures from too long branchcode --- t/db_dependent/Auth.t | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Auth.t b/t/db_dependent/Auth.t index 633375d4718..5f50c365853 100755 --- a/t/db_dependent/Auth.t +++ b/t/db_dependent/Auth.t @@ -1342,7 +1342,11 @@ subtest 'StaffLoginBranchBasedOnIP' => sub { t::lib::Mocks::mock_preference( 'StaffLoginRestrictBranchByIP', 0 ); my $other_branch = $builder->build_object( - { class => 'Koha::Libraries', value => { branchip => "127.0.0.1", branchcode => "z" . $branch->branchcode } } ); + { + class => 'Koha::Libraries', + value => { branchip => "127.0.0.1", branchcode => substr( "z" . $branch->branchcode, 0, 10 ) } + } + ); ( $userid, $cookie, $sessionID, $flags ) = C4::Auth::checkauth( $cgi, 0, { catalogue => 1 }, 'intranet' ); is( $userid, $patron->userid, "User successfully logged in" ); $session = C4::Auth::get_session($sessionID); @@ -1434,7 +1438,7 @@ subtest 'StaffLoginRestrictBranchByIP' => sub { my $another_library = $builder->build_object( { class => 'Koha::Libraries', - value => { branchip => '129.0.0.1', branchcode => "z" . $other_library->branchcode } + value => { branchip => "129.0.0.1", branchcode => substr( "z" . $other_library->branchcode, 0, 10 ) } } ); ( $userid, $cookie, $sessionID, $flags, $template ) = -- 2.39.2