view release on metacpan or  search on metacpan

t/070_reverse_geocode.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 5;

use Test::Deep;

use Geo::Coder::GeocodeFarm;

my $ua = My::Mock::LWP::UserAgent->new;
my $geocode = new_ok 'Geo::Coder::GeocodeFarm' => [key => 'xxx', ua => $ua];

can_ok $geocode, qw(reverse_geocode);

my $expected = {
    'accuracy'          => 'EXACT_MATCH',
    'formatted_address' => '500 W Main St, Anoka, MN 55303, United States',
    'locality'          => 'Anoka',
    'latitude'          => '45.2035740615438',
    'street_name'       => 'W Main St',
    'longitude'         => '-93.3995153025847',
    'house_number'      => '500',
    'admin_2'           => 'Anoka Co.',
    'admin_1'           => 'MN',
    'postal_code'       => '55303',
    'country'           => 'United States'
};

{
    my $result = $geocode->reverse_geocode(lat => '45.2040305', lon => '-93.3995728');

    isa_ok $result, 'HASH';

    cmp_deeply $result, $expected, '$result matches deeply';

    is $ua->{url}, 'https://api.geocode.farm/reverse/?lat=45.2040305&lon=-93.3995728&key=xxx', 'url matches';
}

package My::Mock;

sub new {
    my ($class) = @_;
    return bless +{} => $class;
}

package LWP::UserAgent;

sub _placeholder { }

package HTTP::Response;

sub _placeholder { }

package My::Mock::LWP::UserAgent;

use base 'My::Mock', 'LWP::UserAgent';

sub get {
    my ($self, $url) = @_;
    $self->{url} = $url;
    return My::Mock::HTTP::Response->new;
}

package My::Mock::HTTP::Response;

use base 'My::Mock', 'HTTP::Response';

sub is_success {
    return 1;
}

sub decoded_content {
    return <<'END';
{
    "LEGAL": {
        "notice": "This system is the property of Geocode.Farm and any information contained herein is Copyright (c) Geocode.Farm. Usage is subject to the Terms of Service.",
        "terms": "https:\/\/geocode.farm\/policies\/terms-of-service\/",
        "privacy": "https:\/\/geocode.farm\/policies\/privacy-policy\/"
    },
    "STATUS": {
        "key": "VALID",
        "request": "VALID",
        "status": "SUCCESS",
        "credit_used": "1"
    },
    "USER": {
        "key": "FAKE-API-KEY",
        "name": "Fake Name",
        "email": "fake.email@example.com",
        "usage_limit": "250",
        "used_today": "1",
        "remaining_limit": 249
    },
    "RESULTS": {
        "request": {
            "point": "-93.3995728 45.2040305",
            "latitude": "45.2040305",
            "longitude": "-93.3995728"
        },
        "result": {
            "0": {
                "house_number": "500",
                "street_name": "W Main St",