t/01-lookup.t

   1 #!perl -T
   2
   3 use Test::More tests => 2;
   4 use Data::Dumper;
   5 use Geo::USCensus::Geocoding;
   6
   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
  10   city    => 'Sacramento',
  11   state   => 'CA',
  12   zip     => '95814',
  13 );
  14
  15 is( $result->message, '', 'error status' );
  16 is( $result->matches, 1, 'number of matches' );
  17 diag($result->match(0)->matchedAddress);
  18 diag('Census tract '.$result->match(0)->censustract);
  19