|
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 |
- |
|
|