diff options
author | Mark Wells <mark@freeside.biz> | 2016-11-17 00:57:40 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2016-11-17 00:57:40 -0800 |
commit | e33b3f4ae5f63db6f734ef38049092911ea9961b (patch) | |
tree | 5e252c804741effec716759d1285af277df18f1b /t |
initial version
Diffstat (limited to 't')
-rw-r--r-- | t/00-load.t | 9 | ||||
-rw-r--r-- | t/01-lookup.t | 16 |
2 files changed, 25 insertions, 0 deletions
diff --git a/t/00-load.t b/t/00-load.t new file mode 100644 index 0000000..3fc3283 --- /dev/null +++ b/t/00-load.t @@ -0,0 +1,9 @@ +#!perl -T + +use Test::More tests => 1; + +BEGIN { + use_ok( 'Geo::USCensus::TIGERweb' ) || print "Bail out!\n"; +} + +diag( "Testing Geo::USCensus::TIGERweb $Geo::USCensus::TIGERweb, Perl $], $^X" ); diff --git a/t/01-lookup.t b/t/01-lookup.t new file mode 100644 index 0000000..937dca6 --- /dev/null +++ b/t/01-lookup.t @@ -0,0 +1,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); + |