2 files changed, 33 insertions, 0 deletions
diff --git a/t/00-load.t b/t/00-load.t
new file mode 100644
index 0000000..89be297
--- /dev/null
+++ b/t/00-load.t
@@ -0,0 +1,9 @@
+#!perl -T
+
+use Test::More tests => 1;
+
+BEGIN {
+    use_ok( 'Geo::TomTom::Geocoding' ) || print "Bail out!\n";
+}
+
+diag( "Testing Geo::TomTom::Geocoding $Geo::TomTom::Geocoding::VERSION, Perl $], $^X" );
diff --git a/t/01-geocode.t b/t/01-geocode.t
new file mode 100644
index 0000000..a53e145
--- /dev/null
+++ b/t/01-geocode.t
@@ -0,0 +1,24 @@
+#!perl
+
+use Test::More tests => 1;
+use Geo::TomTom::Geocoding;
+
+SKIP: {
+  my $key = $ENV{TOMTOM_API_KEY};
+  skip("TOMTOM_API_KEY not set", 1) unless $key;
+
+  my $test_loc = [
+    key => $key,
+    ST  => 55,
+    T   => 'Music Concourse Drive',
+    L   => 'San Francisco',
+    AA  => 'CA',
+    CC  => 'USA',
+  ];
+  my $response = Geo::TomTom::Geocoding->query($test_loc);
+  my ($first_match) = $response->locations;
+  note "Test results:\n".explain $first_match;
+  ok( $first_match->{postcode} =~ /^94118/ );
+
+}
+