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