Lines 21-27
use utf8;
Link Here
|
21 |
use XML::Simple; |
21 |
use XML::Simple; |
22 |
use Encode; |
22 |
use Encode; |
23 |
|
23 |
|
24 |
use Test::More tests => 2; |
24 |
use Test::More tests => 4; |
25 |
use Test::WWW::Mechanize; |
25 |
use Test::WWW::Mechanize; |
26 |
|
26 |
|
27 |
my $koha_conf = $ENV{KOHA_CONF}; |
27 |
my $koha_conf = $ENV{KOHA_CONF}; |
Lines 48-60
$intranet =~ s#/$##;
Link Here
|
48 |
my $agent = Test::WWW::Mechanize->new( autocheck => 1 ); |
48 |
my $agent = Test::WWW::Mechanize->new( autocheck => 1 ); |
49 |
|
49 |
|
50 |
# Login |
50 |
# Login |
51 |
$agent->get( "$intranet/cgi-bin/koha/mainpage.pl", 'Load the intranet login page' ); |
51 |
$agent->get_ok( "$intranet/cgi-bin/koha/mainpage.pl", 'Load the intranet login page' ); |
52 |
$agent->form_name('loginform'); |
52 |
$agent->form_name('loginform'); |
53 |
$agent->field( 'password', $password ); |
53 |
$agent->field( 'password', $password ); |
54 |
$agent->field( 'userid', $user ); |
54 |
$agent->field( 'userid', $user ); |
55 |
$agent->field( 'branch', '' ); |
55 |
$agent->field( 'branch', '' ); |
56 |
$agent->click( '', 'Login to the intranet' ); |
56 |
$agent->click( '', 'Login to the intranet' ); |
57 |
$agent->get( "$intranet/cgi-bin/koha/about.pl", 'Load the about page' ); |
57 |
$agent->get_ok( "$intranet/cgi-bin/koha/about.pl", 'Load the about page' ); |
58 |
|
58 |
|
59 |
# Test about > timeline is correctly encoded |
59 |
# Test about > timeline is correctly encoded |
60 |
my $encoded_latin_name = Encode::encode('UTF-8', 'Frédéric Demians'); |
60 |
my $encoded_latin_name = Encode::encode('UTF-8', 'Frédéric Demians'); |
61 |
- |
|
|