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