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
|
use strict;
use Test;
use Apache::Session::Flex;
BEGIN { plan tests => 4 }
require 't/testlib.pl';
my %config = read_config('t/CONFIG','Generate Serialize Servers');
ok(1);
my $session;
tie %{$session}, 'Apache::Session::Flex', undef, {
Store => 'Memcached',
Lock => 'Null',
Generate => $config{Generate},
Serialize => $config{Serialize},
Servers => $config{Servers},
};
my $sid = $session->{_session_id};
ok( $session->{foo} = 'bar' );
untie %{$session};
tie %{$session}, 'Apache::Session::Flex', $sid, {
Store => 'Memcached',
Lock => 'Null',
Generate => $config{Generate},
Serialize => $config{Serialize},
Servers => $config{Servers},
};
ok($session->{foo},'bar');
tied(%{$session})->delete;
ok(1);
|
