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