#$Id$
#
# Re: [cpan #14414] method remote_addr() was removed in version 4.01
#
use strict;
use Test::More ( tests=>5 );
use_ok("CGI::Session");
$ENV{REMOTE_ADDR} = '127.0.0.1';
ok(my $session = CGI::Session->new);
ok($session->can("remote_addr"), "remote_addr() exists");
ok(eval{$session->remote_addr}, "remote_addr() passes eval");
ok($session->remote_addr eq $ENV{REMOTE_ADDR}, "remote_addr() is " . $session->remote_addr);
$session->delete;