Skip to content
Browse files

Update t/get-w3-latin1-utf8.t

Simpler, less confusing, test code.  Fancy buf decoding did nothing useful.
  • Loading branch information...
1 parent 2b40128 commit 7d798b755b0fca945b92998e3a81eb328d4c3f69 @ronaldxs ronaldxs committed
Showing with 1 addition and 2 deletions.
  1. +1 −2 t/get-w3-latin1-utf8.t
3 t/get-w3-latin1-utf8.t
@@ -5,14 +5,13 @@ use LWP::Simple;
my $html = LWP::Simple.get('');
-my $find_char ='iso-8859-1');
+my $find_char = chr(233); # small e with acute
$html.match('</html>') && $html.match($find_char),
'Got latin-1 page'
$html = LWP::Simple.get('');
-$find_char =, 0xA9).decode('utf-8');
$html.match('</html>') && $html.match($find_char),
'Got utf-8 page'

0 comments on commit 7d798b7

Please sign in to comment.
Something went wrong with that request. Please try again.