t/01-lookup.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!perl

use Test::More tests => 1;
use Data::Dumper;
use Geo::USCensus::TIGERweb;

diag( "Testing lookup of a census block" );
my $result = Geo::USCensus::TIGERweb->census_block_at_point(
  lat => 38.578793,
  lon => -121.48778,
  debug => 1,
);

ok( $result, 'Found a census block');
diag($result);