Lines 19-27
use Modern::Perl;
Link Here
|
19 |
|
19 |
|
20 |
use utf8; |
20 |
use utf8; |
21 |
use Test::More; #See plan tests => \d+ below |
21 |
use Test::More; #See plan tests => \d+ below |
|
|
22 |
use Test::NoWarnings; |
22 |
use Test::WWW::Mechanize; |
23 |
use Test::WWW::Mechanize; |
23 |
use Data::Dumper; |
24 |
use Data::Dumper; |
24 |
use XML::Simple; |
|
|
25 |
use File::Basename qw(dirname ); |
25 |
use File::Basename qw(dirname ); |
26 |
use POSIX; |
26 |
use POSIX; |
27 |
use Encode; |
27 |
use Encode; |
Lines 64-70
if ( not $intranet ) {
Link Here
|
64 |
elsif ( not $opac ) { |
64 |
elsif ( not $opac ) { |
65 |
plan skip_all => "Tests skip. You must set env. variable KOHA_OPAC_URL to do tests\n"; |
65 |
plan skip_all => "Tests skip. You must set env. variable KOHA_OPAC_URL to do tests\n"; |
66 |
} else { |
66 |
} else { |
67 |
plan tests => 80; |
67 |
plan tests => 81; |
68 |
} |
68 |
} |
69 |
|
69 |
|
70 |
$intranet =~ s#/$##; |
70 |
$intranet =~ s#/$##; |
Lines 94-101
if ( not defined $mock_zebra->{indexer_pid} ) {
Link Here
|
94 |
our $agent = Test::WWW::Mechanize->new( autocheck => 1 ); |
94 |
our $agent = Test::WWW::Mechanize->new( autocheck => 1 ); |
95 |
$agent->get_ok( "$intranet/cgi-bin/koha/mainpage.pl", 'connect to intranet' ); |
95 |
$agent->get_ok( "$intranet/cgi-bin/koha/mainpage.pl", 'connect to intranet' ); |
96 |
$agent->form_name('loginform'); |
96 |
$agent->form_name('loginform'); |
97 |
$agent->field( 'login_userid', $ENV{KOHA_PASS} ); |
97 |
$agent->field( 'login_userid', $ENV{KOHA_PASS} || 'koha' ); |
98 |
$agent->field( 'login_password', $ENV{KOHA_USER} ); |
98 |
$agent->field( 'login_password', $ENV{KOHA_USER} || 'koha' ); |
99 |
$agent->field( 'branch', '' ); |
99 |
$agent->field( 'branch', '' ); |
100 |
$agent->click_ok( '', 'login to staff interface' ); |
100 |
$agent->click_ok( '', 'login to staff interface' ); |
101 |
|
101 |
|
102 |
- |
|
|