view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

    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;