1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
use strict;
use Test::More;
#use Test::Exception;
use File::Temp qw[tempdir];
use Cwd qw[getcwd];
use Config;
#plan skip_all => "Only for perl 5.8 or later"
# unless eval {
# require 5.008;
#perl 5.6 does not likes this test. See RT#16539.
# };
#use Module::Mask;my $mask = new Module::Mask ('Storable');
plan skip_all => "Optional modules (Fcntl, Digest::MD5) not installed"
unless eval {
require Fcntl;
require Digest::MD5;
};
plan tests => 7;
my $package = 'Apache::Session::Flex';
use_ok $package;
#$Apache::Session::Lock::File::LockDirectory=$tempdir;
my $tempdir = tempdir( DIR => '.', CLEANUP => 1 );
#my $origdir = getcwd;
#chdir( $tempdir );
{
my $session = tie my %session, $package, undef, {
Store => 'File',
Lock => 'File',
Generate => 'MD5',
Serialize => 'Storable',
Directory => $tempdir,
LockDirectory => $tempdir,
};
isa_ok $session->{object_store}, 'Apache::Session::Store::File';
isa_ok $session->{lock_manager}, 'Apache::Session::Lock::File';
is ref($session->{generate}), 'CODE', 'generate is CODE';
is ref($session->{serialize}), 'CODE', 'serialize is CODE';
is ref($session->{unserialize}), 'CODE', 'unserialize is CODE';
tied(%session)->delete;
#untie %session;
}
=for cmt
SKIP: { #Flex that uses IPC
skip "semget not implemented",5 unless $Config{d_semget};
skip "semctl not implemented",5 unless $Config{d_semctl};
skip "Cygserver is not running",5
if $^O eq 'cygwin' && (!exists $ENV{'CYGWIN'} || $ENV{'CYGWIN'} !~ /server/i);
skip "*BSD & Solaris do not like anonymous semaphores",5
if $^O =~ /bsd|solaris/i;
skip "Optional modules (IPC::Semaphore, IPC::SysV, MIME::Base64, DB_File) not installed",5
unless eval {
require IPC::Semaphore;
require IPC::SysV;
require MIME::Base64;
require DB_File;
};
diag( "Using IPC::Semaphore $IPC::Semaphore::VERSION, IPC::SysV $IPC::SysV::VERSION, DB_File $DB_File::VERSION" );
require Apache::Session::Lock::Semaphore;
$Apache::Session::Lock::Semaphore::sem_key=undef;
$Apache::Session::Lock::Semaphore::sem_key=$Apache::Session::Lock::Semaphore::sem_key;
my $session = tie my %session, $package, undef, {
Store => 'DB_File',
Lock => 'Semaphore',
Generate => 'MD5',
Serialize => 'Base64',
# SemaphoreKey => undef,
# SemaphoreKey => 31817,
}; #Apache::Session::save in TIEHASH does acquire_write_lock
isa_ok $session->{object_store}, 'Apache::Session::Store::DB_File';
isa_ok $session->{lock_manager}, 'Apache::Session::Lock::Semaphore';
is ref($session->{generate}), 'CODE', 'generate is CODE';
is ref($session->{serialize}), 'CODE', 'serialize is CODE';
is ref($session->{unserialize}), 'CODE', 'unserialize is CODE';
$session->{lock_manager}->remove();
}
=cut
{
{
package Apache::Session::Store::Test;
use base 'Apache::Session::Store::File';
}
{
package Apache::Session::Lock::Test;
use base 'Apache::Session::Lock::File';
}
{
package Apache::Session::Generate::Test;
# This wack double assignment prevents "... used only once"
# warnings.
*Apache::Session::Generate::Test::generate =
*Apache::Session::Generate::Test::generate =
\&Apache::Session::Generate::MD5::generate;
*Apache::Session::Generate::Test::validate =
*Apache::Session::Generate::Test::validate =
\&Apache::Session::Generate::MD5::validate;
}
{
package Apache::Session::Serialize::Test;
*Apache::Session::Serialize::Test::serialize =
*Apache::Session::Serialize::Test::serialize =
\&Apache::Session::Serialize::Storable::serialize;
*Apache::Session::Serialize::Test::unserialize =
*Apache::Session::Serialize::Test::unserialize =
\&Apache::Session::Serialize::Storable::unserialize;
}
my $session = tie my %session, $package, undef, {
Store => 'Test',
Lock => 'Test',
Generate => 'Test',
Serialize => 'Test',
Directory => $tempdir,
LockDirectory => $tempdir,
};
isa_ok $session->{object_store}, 'Apache::Session::Store::Test';
tied(%session)->delete;
$session->{lock_manager}->clean('.', 0);
}
#chdir( $origdir );
|
