From 287842020d5d5eae1e15815d70658af453230e05 Mon Sep 17 00:00:00 2001 From: gray Date: Mon, 21 Mar 2011 12:09:18 -0700 Subject: [PATCH] update test to use working address --- xt/live.t | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/xt/live.t b/xt/live.t index da54fb8..9ed3632 100644 --- a/xt/live.t +++ b/xt/live.t @@ -38,14 +38,13 @@ my $geocoder = Geo::Coder::TomTom->new( ok($location, 'UTF-8 bytes'); is($location->{country}, 'Germany', 'UTF-8 bytes'); is($location->{houseNumber}, 6, 'UTF-8 bytes: parsed street address'); -} -{ - my $city = decode('latin1', qq(Schm\xF6ckwitz)); - my $location = $geocoder->geocode("$city, Berlin, Germany"); + + my $city = decode('latin1', qq(M\xFCnster)); is( - $location->{district}, $city, + $location->{city}, $city, 'decoded character encoding of response' ); + } done_testing;