41 lines
1.5 KiB
Perl
Executable File
41 lines
1.5 KiB
Perl
Executable File
#====================================================================
|
|
# Test script for Apache::Session::Memorycached
|
|
#
|
|
# 2006 (c) Eric German
|
|
#====================================================================
|
|
|
|
#====================================================================
|
|
# Perl test modules
|
|
#====================================================================
|
|
use Test::More tests => 3;
|
|
|
|
#====================================================================
|
|
# Module loading
|
|
#====================================================================
|
|
BEGIN{ use_ok( Apache::Session::Memorycached ); }
|
|
BEGIN{ print "--> Version : ".$Apache::Session::Memorycached::VERSION."\n"; }
|
|
|
|
#====================================================================
|
|
# Object creation
|
|
#====================================================================
|
|
my $id;
|
|
my %session;
|
|
tie %session, 'Apache::Session::Memorycached', $id,
|
|
{
|
|
'servers' => ["localhost:11211"],
|
|
};
|
|
|
|
$id= $session{"_session_id"};
|
|
ok( $id,"session ID : $id" );
|
|
$session{'test'}='memcached daemon running' ;
|
|
$session{'test2'}='ericgerman' ;
|
|
untie %session ;
|
|
tie %session, 'Apache::Session::Memorycached', $id,
|
|
{
|
|
'servers' => ["localhost:11211"],
|
|
};
|
|
$session{test} = 'memcached daemon not running' unless $session{test};
|
|
is($session{test},'memcached daemon running',"memcached ready");
|
|
untie %session;
|
|
|