@@ -, +, @@ randomly 1/ apply patch 2/ run test 3/ observe PASS --- t/db_dependent/www/search_utf8.t | 28 +++++++++++++++++----------- 1 file changed, 17 insertions(+), 11 deletions(-) --- a/t/db_dependent/www/search_utf8.t +++ a/t/db_dependent/www/search_utf8.t @@ -234,7 +234,6 @@ sub test_search{ $agent->follow_link_ok( { text => 'Manage staged records' }, 'view batch' ); - $agent->form_number(6); $agent->field( 'framework', '' ); $agent->click_ok( 'mainformsubmit', "imported records into catalog" ); @@ -249,8 +248,9 @@ sub test_search{ # --------------------------------- TEST INTRANET SEARCH - $agent->get_ok( "$intranet/cgi-bin/koha/catalogue/search.pl" , "got search on intranet"); + sleep 1; + $agent->form_number(5); $agent->field('idx', 'kw'); $agent->field('q', $search_key); @@ -262,48 +262,55 @@ sub test_search{ my $xslt_filepath = C4::XSLT::_get_best_default_xslt_filename( C4::Context->config('intrahtdocs'), C4::Context->preference("template"), 'en', $xslt_file ); return sprintf( "===DIAG===\n%s is %s\n%s %s\n==========", $pref, C4::Context->preference($pref), $xslt_filepath, ( -f $xslt_filepath ? 'exists' : 'does not exist' )); }; + sleep 1; + like( $intra_text, qr|Publication details: $publisher|, "test staff 'kw' search" ) or diag($diag->()); - like( $intra_text, qr|Publication details: $publisher|, ) or diag($diag->()); - - $agent->get_ok( "$intranet/cgi-bin/koha/catalogue/search.pl" , "got search on intranet"); + $agent->get_ok( "$intranet/cgi-bin/koha/catalogue/search.pl" , "got search on intranet2"); $agent->form_number(5); $agent->field('idx', 'kw'); $agent->field('q', $publisher); $agent->click(); $intra_text = $agent->text(); - like( $intra_text, qr|Publication details: $publisher|, ); + sleep 1; + like( $intra_text, qr|Publication details: $publisher|, "test staff 'kw' search 2" ); my $expected_base = q|search.pl\?advsearch=1&idx=kw&q=| . uri_escape_utf8( $publisher ); $agent->base_like(qr|$expected_base|, ); + sleep 1; ok ( ( length(Encode::encode('UTF-8', $intra_text)) != length($intra_text) ) , 'UTF-8 are multi-byte. Good') ; + sleep 1; ok ($intra_text =~ $utf8_reg, 'UTF-8 chars are correctly present. Good'); # -------------------------------------------------- TEST ON OPAC + sleep 1; $agent->get_ok( "$opac" , "got opac"); $agent->form_name('searchform'); $agent->field( 'q', $search_key ); $agent->field( 'idx', '' ); $agent->click( ); my $opac_text = $agent->text() ; - like( $opac_text, qr|Publication details: $publisher|, ); + like( $opac_text, qr|Publication details: $publisher|, 'test opac default search' ); - $agent->get_ok( "$opac" , "got opac"); + sleep 1; + $agent->get_ok( "$opac" , "got opac2"); $agent->form_name('searchform'); $agent->field('q', $publisher); $agent->field( 'idx', '' ); $agent->click(); $opac_text = $agent->text(); - like( $opac_text, qr|Publication details: $publisher|, ); + sleep 1; + like( $opac_text, qr|Publication details: $publisher|, 'test opac default search 2' ); $expected_base = q|opac-search.pl\?(idx=&)?q=| . uri_escape_utf8( $publisher ); $agent->base_like(qr|$expected_base|, ); # Test added on BZ 14909 in addition to making the empty idx= optional # in the previous regex $agent->base_unlike( qr|idx=\w+|, 'Base does not contain an idx' ); - + sleep 1; ok ( ( length(Encode::encode('UTF-8', $opac_text)) != length($opac_text) ) , 'UTF-8 are multi-byte. Good') ; + sleep 1; ok ($opac_text =~ $utf8_reg, 'UTF-8 chars are correctly present. Good'); #-------------------------------------------------- REVERT @@ -318,7 +325,6 @@ sub test_search{ cleanup(); } - # function that launches the zebra daemon sub launch_zebra { --