File: remote_addr.t

package info (click to toggle)
libcgi-session-perl 4.48-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 616 kB
  • sloc: perl: 1,920; makefile: 5
file content (18 lines) | stat: -r--r--r-- 450 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#$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;