From a5f4b5f73a0a23a4b9fbfc9b172b9d251289ef3d Mon Sep 17 00:00:00 2001 From: Zeno Tajoli Date: Sun, 28 Dec 2014 23:14:56 +0100 Subject: [PATCH 11/14] [Bug 13264] add a test in auth_values_input_www to check chars that could be Latin-1 or UTF-8 --- t/db_dependent/www/auth_values_input_www.t | 70 +++++++++++++++++++++++++--- 1 file changed, 64 insertions(+), 6 deletions(-) diff --git a/t/db_dependent/www/auth_values_input_www.t b/t/db_dependent/www/auth_values_input_www.t index b9aeea7..0844fc3 100644 --- a/t/db_dependent/www/auth_values_input_www.t +++ b/t/db_dependent/www/auth_values_input_www.t @@ -18,7 +18,7 @@ use Modern::Perl; use utf8; -use Test::More tests => 15; +use Test::More tests => 28; use Test::WWW::Mechanize; use XML::Simple; use JSON; @@ -53,10 +53,11 @@ $intranet =~ s#/$##; my $agent = Test::WWW::Mechanize->new( autocheck => 1 ); my $jsonresponse; +my ($category, $expected_base, $add_form_link_exists, $delete_form_link_exists); + +# -------------------------------------------------- LOGIN -# -------------------------------------------------- LOAD RECORD -my $category = '学協会μμ'; $agent->get_ok( "$intranet/cgi-bin/koha/mainpage.pl", 'connect to intranet' ); $agent->form_name('loginform'); $agent->field( 'password', $password ); @@ -65,6 +66,10 @@ $agent->field( 'branch', '' ); $agent->click_ok( '', 'login to staff client' ); $agent->get_ok( "$intranet/cgi-bin/koha/mainpage.pl", 'load main page' ); +#--------------------------------------------------- Test with corean and greek chars + +$category = '学協会μμ'; + $agent->get_ok( "$intranet/cgi-bin/koha/admin/authorised_values.pl", 'Connect to Authorized values page' ); $agent->get_ok( "$intranet/cgi-bin/koha/admin/authorised_values.pl?op=add_form", 'Open to create a new category' ); $agent->form_name('Aform'); @@ -75,10 +80,10 @@ $agent->field('category', $category); $agent->field('branches', ''); $agent->click_ok( '', "Create new auth category and value" ); -my $expected_base = q|authorised_values.pl\?searchfield=| . uri_escape_utf8( $category ); +$expected_base = q|authorised_values.pl\?searchfield=| . uri_escape_utf8( $category ); $agent->base_like(qr|$expected_base|, "check base"); -my $add_form_link_exists = 0; -my $delete_form_link_exists = 0; +$add_form_link_exists = 0; +$delete_form_link_exists = 0; for my $link ( $agent->links() ) { if ( $link->url =~ m|authorised_values.pl\?op=add_form&category=$category| ) { $add_form_link_exists = 1; @@ -112,4 +117,57 @@ if ($id_to_del) { ok($id_to_del ne undef, "error, link to delete nor working"); } +#---------------------------------------- Test with only latin utf-8 (could be taken as Latin-1/ISO 8859-1) + +$category = 'tòmas'; + +$agent->get_ok( "$intranet/cgi-bin/koha/admin/authorised_values.pl", 'Connect to Authorized values page' ); +$agent->get_ok( "$intranet/cgi-bin/koha/admin/authorised_values.pl?op=add_form", 'Open to create a new category' ); +$agent->form_name('Aform'); +$agent->field('authorised_value', 'ràmen'); +$agent->field('lib_opac', 'autdesc2'); +$agent->field('lib', 'desc1'); +$agent->field('category', $category); +$agent->field('branches', ''); +$agent->click_ok( '', "Create new auth category and value" ); +$agent->get_ok( "$intranet/cgi-bin/koha/admin/authorised_values.pl?searchfield=tòmas&offset=0", 'Search the values inserted' ); + +$expected_base = q|authorised_values.pl\?searchfield=| . uri_escape_utf8( $category ); +#$expected_base = q|authorised_values.pl\?searchfield=| . $category; +$agent->base_like(qr|$expected_base|, "check base"); +$add_form_link_exists = 0; +$delete_form_link_exists = 0; +for my $link ( $agent->links() ) { + if ( $link->url =~ m|authorised_values.pl\?op=add_form&category=$category| ) { + $add_form_link_exists = 1; + }elsif( $link->url =~ m|authorised_values.pl\?op=delete_confirm&searchfield=$category| ) { + $delete_form_link_exists = 1; + } +} +is( $add_form_link_exists, 1, ); +is( $delete_form_link_exists, 1, ); + +$agent->get_ok( "$intranet/cgi-bin/koha/admin/authorised_values.pl", 'Return to Authorized values page' ); +$agent->get_ok( "$intranet/cgi-bin/koha/admin/authorised_values.pl?searchfield=tòmas&offset=0", 'Search the values inserted' ); +my $text2 = $agent->text() ; +#Tests on UTF-8 +ok ( ( length(Encode::encode('UTF-8', $text)) != length($text) ) , 'UTF-8 are multi-byte. Good') ; +ok ($text2 =~ m/tòmas/, 'UTF-8 not Latin-1 first test is OK. Good'); +ok ($text2=~ m/ràmen/, 'UTF-8 not Latin-1 second test is OK. Good'); +my @links2 = $agent->links; +my $id_to_del2 =''; +foreach my $dato (@links2){ + my $link = $dato->url; + if ($link =~ m/op=delete_confirm\&searchfield=tòmas/){ + $link =~ m/(.*&id=?)(\d{1,})(&.*)/; + $id_to_del2 = $2; + last; + }; +} +if ($id_to_del2) { + $agent->get_ok( "$intranet/cgi-bin/koha/admin/authorised_values.pl?op=delete_confirmed&searchfield=tòmas&id=$id_to_del2", 'UTF_8 auth. value deleted' ); +}else{ + ok($id_to_del ne undef, "error, link to delete nor working"); +} + 1; -- 1.7.10.4