|
Lines 209-220
like( $intra_text, qr|Publisher: $publisher|, );
Link Here
|
| 209 |
$agent->get_ok( "$intranet/cgi-bin/koha/catalogue/search.pl" , "got search on intranet"); |
209 |
$agent->get_ok( "$intranet/cgi-bin/koha/catalogue/search.pl" , "got search on intranet"); |
| 210 |
$agent->form_number(1); |
210 |
$agent->form_number(1); |
| 211 |
$agent->field('idx', 'kw'); |
211 |
$agent->field('idx', 'kw'); |
| 212 |
$agent->field('q', Encode::encode('UTF-8', $publisher)); |
212 |
$agent->field('q', $publisher); |
| 213 |
$agent->click(); |
213 |
$agent->click(); |
| 214 |
$intra_text = $agent->text(); |
214 |
$intra_text = $agent->text(); |
| 215 |
|
215 |
|
| 216 |
like( $intra_text, qr|Publisher: $publisher|, ); |
216 |
like( $intra_text, qr|Publisher: $publisher|, ); |
| 217 |
my $expected_base = q|search.pl\?idx=kw&q=| . uri_escape_utf8( Encode::encode('UTF-8', $publisher ) ); |
217 |
my $expected_base = q|search.pl\?idx=kw&q=| . uri_escape_utf8( $publisher ); |
| 218 |
$agent->base_like(qr|$expected_base|, ); |
218 |
$agent->base_like(qr|$expected_base|, ); |
| 219 |
|
219 |
|
| 220 |
ok ( ( length(Encode::encode('UTF-8', $intra_text)) != length($intra_text) ) , 'UTF-8 are multi-byte. Goog') ; |
220 |
ok ( ( length(Encode::encode('UTF-8', $intra_text)) != length($intra_text) ) , 'UTF-8 are multi-byte. Goog') ; |
|
Lines 237-243
$agent->click();
Link Here
|
| 237 |
$opac_text = $agent->text(); |
237 |
$opac_text = $agent->text(); |
| 238 |
|
238 |
|
| 239 |
like( $opac_text, qr|Publisher: $publisher|, ); |
239 |
like( $opac_text, qr|Publisher: $publisher|, ); |
| 240 |
$expected_base = q|opac-search.pl\?q=| . uri_escape_utf8( $publisher ); |
240 |
$expected_base = q|opac-search.pl\?idx=&q=| . uri_escape_utf8( $publisher ); |
| 241 |
$agent->base_like(qr|$expected_base|, ); |
241 |
$agent->base_like(qr|$expected_base|, ); |
| 242 |
|
242 |
|
| 243 |
ok ( ( length(Encode::encode('UTF-8', $opac_text)) != length($opac_text) ) , 'UTF-8 are multi-byte. Goog') ; |
243 |
ok ( ( length(Encode::encode('UTF-8', $opac_text)) != length($opac_text) ) , 'UTF-8 are multi-byte. Goog') ; |
| 244 |
- |
|
|