3 use Test::More tests => 2;
5 use Geo::USCensus::Geocoding;
7 diag( "Testing lookup of a known good address" );
8 my $result = Geo::USCensus::Geocoding->query(
9 street => '1400 J St', # the Sacramento Convention Center
15 ok( $result->is_match );
16 is( $result->error_message, '', 'error status' );
17 diag($result->address);
18 diag('Census tract '.$result->censustract);
19 diag('Latitude '.$result->latitude.', Longitude '.$result->longitude);