view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
    my $ip_address = $c->param('ip_address');
    my $location   = $c->geolocation($ip_address);
 
    $c->render(json => $location);
};
 
local $ENV{MOJO_REVERSE_PROXY} = 1;
 
my $t = Test::Mojo->new;
 
$t->get_ok('/', {'X-Forwarded-For' => '176.9.54.163'})
    ->status_is(200)
    ->json_is('/city/names/en'    => 'Falkenstein')
    ->json_is('/country/names/en' => 'Germany');
 
$t->get_ok('/176.9.54.163')
    ->status_is(200)
    ->json_is('/city/names/lv'    => 'FalkenÅ¡teina')
    ->json_is('/country/names/lv' => 'Vācija');
 
done_testing;