From 452dfcfbf6d64a2eeb8b76517db3a25aeaa1404e Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Mon, 30 Oct 2017 04:58:32 +0000 Subject: [PATCH] Bug 19243: Patch t/lib/Selenium to use ENV and fix login. --- t/lib/Selenium.pm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/t/lib/Selenium.pm b/t/lib/Selenium.pm index c993fd5..e6d57c4 100644 --- a/t/lib/Selenium.pm +++ b/t/lib/Selenium.pm @@ -12,13 +12,16 @@ use Selenium::Waiter qw/wait_until/; use Try::Tiny; my $dbh = C4::Context->dbh; -my $login = 'koha'; -my $password = 'koha'; -my $base_url= 'http://'.C4::Context->preference("staffClientBaseURL")."/cgi-bin/koha/"; +my $login = $ENV{KOHA_USER} || 'koha'; +my $password = $ENV{KOHA_PASS} || 'koha'; +my $staff_client_base_url = + $ENV{KOHA_INTRANET_URL} || C4::Context->preference("staffClientBaseUrl") || q{}; +my $base_url= $staff_client_base_url . "/cgi-bin/koha/"; +my $opac_url = $ENV{KOHA_OPAC_URL} || C4::Context->preference("OPACBaseURL") || q{}; sub auth { my ( $driver, $login, $password) = @_; - fill_form( $driver, { userid => 'koha', password => 'koha' } ); + fill_form( $driver, { userid => $login, password => $password } ); my $login_button = $driver->find_element('//input[@id="submit"]'); $login_button->submit(); } -- 2.1.4