summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorMark Wells <mark@freeside.biz>2016-11-17 00:57:40 -0800
committerMark Wells <mark@freeside.biz>2016-11-17 00:57:40 -0800
commite33b3f4ae5f63db6f734ef38049092911ea9961b (patch)
tree5e252c804741effec716759d1285af277df18f1b /t
initial version
Diffstat (limited to 't')
-rw-r--r--t/00-load.t9
-rw-r--r--t/01-lookup.t16
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);
+