t/02-fail.t

   1 #!perl -T
   2
   3 use Test::More tests => 1;
   4 use Data::Dumper;
   5 use Geo::USCensus::Geocoding;
   6
   7 diag( "Testing lookup of a known nonexistent address" );
   8 my $result = Geo::USCensus::Geocoding->query(
   9   street  => '1000 Z St', # there is no Z street
  10   city    => 'Sacramento',
  11   state   => 'CA',
  12   zip     => '95814',
  13 );
  14
  15 ok( !$result->is_match );
  16 diag( $result->content );
  17