Lines 49-55
elsif (not defined $intranet) {
Link Here
|
49 |
plan skip_all => "Tests skip. You must set env. variable KOHA_INTRANET_URL to do tests\n"; |
49 |
plan skip_all => "Tests skip. You must set env. variable KOHA_INTRANET_URL to do tests\n"; |
50 |
} |
50 |
} |
51 |
else { |
51 |
else { |
52 |
plan tests => 33; |
52 |
plan tests => 34; |
53 |
} |
53 |
} |
54 |
|
54 |
|
55 |
my $dbh = C4::Context->dbh; |
55 |
my $dbh = C4::Context->dbh; |
Lines 71-79
$agent->field( 'branch', '' );
Link Here
|
71 |
$agent->click_ok( '', 'login to staff client' ); |
71 |
$agent->click_ok( '', 'login to staff client' ); |
72 |
$agent->get_ok( "$intranet/cgi-bin/koha/mainpage.pl", 'load main page' ); |
72 |
$agent->get_ok( "$intranet/cgi-bin/koha/mainpage.pl", 'load main page' ); |
73 |
|
73 |
|
74 |
#--------------------------------------------------- Test with corean and greek chars |
74 |
#---------------------------------------- Test with corean, greek and emoji chars |
75 |
|
75 |
|
76 |
$category = '学協会μμ'; |
76 |
$category = '学協会μμ😀'; |
77 |
$dbh->do(q|DELETE FROM authorised_values WHERE category = ?|, undef, $category); |
77 |
$dbh->do(q|DELETE FROM authorised_values WHERE category = ?|, undef, $category); |
78 |
$dbh->do(q|DELETE FROM authorised_value_categories WHERE category_name = ?|, undef, $category); |
78 |
$dbh->do(q|DELETE FROM authorised_value_categories WHERE category_name = ?|, undef, $category); |
79 |
|
79 |
|
Lines 123-128
my $text = $agent->text() ;
Link Here
|
123 |
ok ( ( length(Encode::encode('UTF-8', $text)) != length($text) ) , 'UTF-8 are multi-byte. Good') ; |
123 |
ok ( ( length(Encode::encode('UTF-8', $text)) != length($text) ) , 'UTF-8 are multi-byte. Good') ; |
124 |
ok ($text =~ m/学協会μμ/, 'UTF-8 (Asia) chars are correctly present. Good'); |
124 |
ok ($text =~ m/学協会μμ/, 'UTF-8 (Asia) chars are correctly present. Good'); |
125 |
ok ($text =~ m/επιμεq/, 'UTF-8 (Greek) chars are correctly present. Good'); |
125 |
ok ($text =~ m/επιμεq/, 'UTF-8 (Greek) chars are correctly present. Good'); |
|
|
126 |
ok ($text =~ m/😀/, 'UTF-8 (emoji) chars are correctly present. Good'); |
126 |
my @links = $agent->links; |
127 |
my @links = $agent->links; |
127 |
my $id_to_del =''; |
128 |
my $id_to_del =''; |
128 |
$delete_re = q|op=delete\&searchfield=| . uri_escape_utf8($category) . '\&id=(\d+)'; |
129 |
$delete_re = q|op=delete\&searchfield=| . uri_escape_utf8($category) . '\&id=(\d+)'; |