Lines 42-51
use Test::More tests => 20;
Link Here
|
42 |
use MARC::Record; |
42 |
use MARC::Record; |
43 |
use MARC::Field; |
43 |
use MARC::Field; |
44 |
|
44 |
|
45 |
my $dbh = C4::Context->dbh; |
45 |
my $dbh = C4::Context->dbh; |
46 |
my $login = 'koha'; |
46 |
my $login = $ENV{KOHA_USER} || 'koha'; |
47 |
my $password = 'koha'; |
47 |
my $password = $ENV{KOHA_PASS} || 'koha'; |
48 |
my $base_url= ( $ENV{KOHA_INTRANET_URL} || 'http://'.C4::Context->preference("staffClientBaseURL") ) . "/cgi-bin/koha/"; |
48 |
my $base_url |
|
|
49 |
= ( $ENV{KOHA_INTRANET_URL} || 'http://' . C4::Context->preference("staffClientBaseURL") ) |
50 |
. "/cgi-bin/koha/"; |
51 |
my $selenium_addr = $ENV{SELENIUM_ADDR} || 'localhost'; |
52 |
my $selenium_port = $ENV{SELENIUM_PORT} || 4444; |
53 |
|
49 |
|
54 |
|
50 |
|
55 |
|
51 |
my $number_of_biblios_to_insert = 3; |
56 |
my $number_of_biblios_to_insert = 3; |
Lines 89-95
SKIP: {
Link Here
|
89 |
|
94 |
|
90 |
open my $fh, '>>', '/tmp/output.txt'; |
95 |
open my $fh, '>>', '/tmp/output.txt'; |
91 |
|
96 |
|
92 |
my $driver = Selenium::Remote::Driver->new; |
97 |
my $driver = Selenium::Remote::Driver->new( |
|
|
98 |
port => $selenium_port, |
99 |
remote_server_addr => $selenium_addr |
100 |
); |
101 |
|
93 |
$start = gettimeofday; |
102 |
$start = gettimeofday; |
94 |
$prev_time = $start; |
103 |
$prev_time = $start; |
95 |
$driver->get($base_url."mainpage.pl"); |
104 |
$driver->get($base_url."mainpage.pl"); |
Lines 202-208
END {
Link Here
|
202 |
|
211 |
|
203 |
sub auth { |
212 |
sub auth { |
204 |
my ( $driver, $login, $password) = @_; |
213 |
my ( $driver, $login, $password) = @_; |
205 |
fill_form( $driver, { userid => 'koha', password => 'koha' } ); |
214 |
fill_form( $driver, { userid => $login, password => $password } ); |
206 |
my $login_button = $driver->find_element('//input[@id="submit"]'); |
215 |
my $login_button = $driver->find_element('//input[@id="submit"]'); |
207 |
$login_button->submit(); |
216 |
$login_button->submit(); |
208 |
} |
217 |
} |
209 |
- |
|
|