1use strict;
2use warnings;
3use Test::More tests => 7;
4use Geo::Coder::Mapquest;
5
6new_ok('Geo::Coder::Mapquest' => ['Your API key']);
7new_ok('Geo::Coder::Mapquest' => ['Your API key', debug => 1]);
8new_ok('Geo::Coder::Mapquest' => [apikey => 'Your API key']);
9new_ok('Geo::Coder::Mapquest' => [apikey => 'Your API key', debug => 1]);
10
11{
12    local $@;
13    eval {
14        my $geocoder = Geo::Coder::Mapquest->new(debug => 1);
15    };
16    like($@, qr/^'apikey' is required/, 'apikey is required');
17
18    my $ua = LWP::UserAgent->new(protocols_forbidden => ['https']);
19    my $geocoder = eval {
20        Geo::Coder::Mapquest->new(
21            apikey => 'Your API key',
22            https  => 1,
23            ua     => $ua,
24        );
25    };
26    like($@, qr/^'https' requires/, 'https fails w/o an SSL module');
27}
28
29can_ok('Geo::Coder::Mapquest', qw(geocode batch response ua));
30