View | Details | Raw Unified | Return to bug 18773
Collapse All | Expand All

(-)a/t/db_dependent/www/history.t (-4 / +3 lines)
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
- 

Return to bug 18773