Geo-Coder-GeocodeFarm

 view release on metacpan or  search on metacpan

t/050_geocode.t  view on Meta::CPAN

37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
    cmp_deeply $result, $expected, '$result matches deeply';
 
    is $ua->{url}, 'https://api.geocode.farm/forward/?addr=530+W+Main+St+Anoka+MN+55303+US&key=xxx',
        'url matches';
}
 
package My::Mock;
 
sub new {
    my ($class) = @_;
    return bless +{} => $class;
}
 
package My::Mock::HTTP::Tiny;
 
use base 'https://metacpan.org/pod/My::Mock">My::Mock';
 
sub get {
    my ($self, $url) = @_;
    $self->{url} = $url;
    my $content = <<'END';

t/060_geocode_failure.t  view on Meta::CPAN

46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
        'result is undef';
 
    is $ua->{url}, 'https://api.geocode.farm/forward/?addr=non-existing+address&key=xxx',
        'url matches';
}
 
package My::Mock;
 
sub new {
    my ($class) = @_;
    return bless +{} => $class;
}
 
package My::Mock::HTTP::Tiny;
 
use base 'https://metacpan.org/pod/My::Mock">My::Mock';
 
sub get {
    my ($self, $url) = @_;
    $self->{url} = $url;
    my $res = {

t/065_geocode_utf8.t  view on Meta::CPAN

26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
    is $result->{address}{full_address}, 'Łask, Poland', '$result full_address';
 
    is $ua->{url}, 'https://api.geocode.farm/forward/?addr=%C5%81ask%2C+Poland&key=xxx',
        'url matches';
}
 
package My::Mock;
 
sub new {
    my ($class) = @_;
    return bless +{} => $class;
}
 
package My::Mock::HTTP::Tiny;
 
use base 'https://metacpan.org/pod/My::Mock">My::Mock';
 
sub get {
    my ($self, $url) = @_;
    $self->{url} = $url;
    my $content = <<'END';

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

35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
    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 { }

t/080_reverse_geocode_failure.t  view on Meta::CPAN

46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
        'result is undef';
 
    is $ua->{url}, 'https://api.geocode.farm/reverse/?lat=0.00&lon=0.00&key=xxx',
        'url matches';
}
 
package My::Mock;
 
sub new {
    my ($class) = @_;
    return bless +{} => $class;
}
 
package LWP::UserAgent;
 
sub _placeholder { }
 
package HTTP::Response;
 
sub _placeholder { }