zeroclickinfo-goodies/t/WhereAmI.t

36 lines
749 B
Perl

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Deep;
use DDG::Test::Goodie;
zci answer_type => 'where_am_i';
zci is_cached => 0;
my @test_loc = (
'',
structured_answer => {
id => 'where_am_i',
name => 'Answer',
data => {
lat => 40.1246,
lon => -75.5385,
display=> "Phoenixville, PA, United States"
},
templates => {
group => 'places'
}
});
ddg_goodie_test(
[qw(DDG::Goodie::WhereAmI)],
'where am I' => test_zci(@test_loc),
'where am I?' => test_zci(@test_loc),
'my location' => test_zci(@test_loc),
'my location is nowhere!' => undef,
);
done_testing;