From 3ec4e0b1eedddd6a69b0c78a1976a6e2eec21dc8 Mon Sep 17 00:00:00 2001 From: Olli-Antti Kivilahti Date: Mon, 7 Sep 2015 18:15:22 +0300 Subject: [PATCH] Bug 14540 - Followup regression test for bad login --- t/db_dependent/Koha/Auth.t | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/t/db_dependent/Koha/Auth.t b/t/db_dependent/Koha/Auth.t index 51d3af2..ce50469 100644 --- a/t/db_dependent/Koha/Auth.t +++ b/t/db_dependent/Koha/Auth.t @@ -29,6 +29,9 @@ use t::lib::Page::Opac::OpacMain; use t::lib::TestObjects::BorrowerFactory; +##Enable debug mode for PageObject tests. +#$ENV{KOHA_PAGEOBJECT_DEBUG} = 1; + ##Setting up the test context my $testContext = {}; @@ -59,12 +62,14 @@ $permissionManager->grantPermission($borrowers->{'maxi_admin'}, 'superlibrarian' eval { #run in a eval-block so we don't die without tearing down the test context my $mainpage = t::lib::Page::Mainpage->new(); + testBadPasswordLogin($mainpage); testPasswordLoginLogout($mainpage); testSuperuserPasswordLoginLogout($mainpage); testSuperlibrarianPasswordLoginLogout($mainpage); $mainpage->quit(); my $opacmain = t::lib::Page::Opac::OpacMain->new(); + testBadPasswordLogin($opacmain); testOpacPasswordLoginLogout($opacmain); testSuperuserPasswordLoginLogout($opacmain); testOpacSuperlibrarianPasswordLoginLogout($opacmain); @@ -88,6 +93,12 @@ sub tearDown { ### STARTING TEST IMPLEMENTATIONS ### ###################################################### +sub testBadPasswordLogin { + my ($mainpage) = @_; + $mainpage->isPasswordLoginAvailable()->failPasswordLogin($borrowers->{'1A01'}->userid(), 'a truly bad password') + ->refresh() #Refresh is important in bringing out certain bugs with cookies and misset Userid. + ->isPasswordLoginAvailable(); +} sub testPasswordLoginLogout { my ($mainpage) = @_; $mainpage->isPasswordLoginAvailable()->doPasswordLogin($borrowers->{'1A01'}->userid(), $password) -- 1.9.1