t/01-lookup.t

   1 #!perl
   2
   3 use Test::More tests => 1;
   4 use Data::Dumper;
   5 use Geo::USCensus::TIGERweb;
   6
   7 diag( "Testing lookup of a census block" );
   8 my $result = Geo::USCensus::TIGERweb->census_block_at_point(
   9   lat => 38.578793,
  10   lon => -121.48778,
  11   debug => 1,
  12 );
  13
  14 ok( $result, 'Found a census block');
  15 diag($result);
  16