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
|
use Test::More;
use Test::Deep;
use Test::Exception;
use File::Temp qw[tempdir];
use Cwd qw[getcwd];
#plan skip_all => "Optional module (Storable) not installed"
# unless eval {
# require Storable;
# };
plan tests => 2;
my $package = 'Apache::Session::Serialize::Storable';
use_ok $package;
my $origdir = getcwd;
my $tempdir = tempdir( DIR => '.', CLEANUP => 1 );
chdir( $tempdir );
my $serial = \&Apache::Session::Serialize::Storable::serialize;
my $unserial = \&Apache::Session::Serialize::Storable::unserialize;
my $session = {
serialized => undef,
data => undef,
};
my $simple = {
foo => 1,
bar => 2,
baz => 'quux',
quux => ['foo', 'bar'],
};
$session->{data} = $simple;
&$serial($session);
$session->{data} = undef;
&$unserial($session);
cmp_deeply($simple, $session->{data}, 'session data is correct');
chdir( $origdir );
|
