view release on metacpan or  search on metacpan

t/get_id.t  view on Meta::CPAN

print "ok 1\n";

use CGI::Cookie;
$cookie = 1;
print "ok 2\n";

########################################################
# Test Apache::Recorder::get_id()
########################################################

use lib "t/";
use Mock::Apache::Request;
my $cookie_id = '123456';
my $mock_r = new Mock::Apache::Request( 'cookie_id' => $cookie_id );

my $id = Apache::Recorder::get_id( $mock_r );
if ( $id eq $cookie_id ) { print "ok 3\n" }
else { print "not ok 3\n" }