Lines 266-272
sub test_search{
Link Here
|
266 |
$intra_text = $agent->text(); |
266 |
$intra_text = $agent->text(); |
267 |
|
267 |
|
268 |
like( $intra_text, qr|Publisher: $publisher|, ); |
268 |
like( $intra_text, qr|Publisher: $publisher|, ); |
269 |
my $expected_base = q|search.pl\?idx=kw&q=| . uri_escape_utf8( $publisher ); |
269 |
my $expected_base = q|search.pl\?advsearch=1&idx=kw&q=| . uri_escape_utf8( $publisher ); |
270 |
$agent->base_like(qr|$expected_base|, ); |
270 |
$agent->base_like(qr|$expected_base|, ); |
271 |
|
271 |
|
272 |
ok ( ( length(Encode::encode('UTF-8', $intra_text)) != length($intra_text) ) , 'UTF-8 are multi-byte. Good') ; |
272 |
ok ( ( length(Encode::encode('UTF-8', $intra_text)) != length($intra_text) ) , 'UTF-8 are multi-byte. Good') ; |
273 |
- |
|
|