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
|
use 5.008001;
use strict;
use warnings;
use Test::More 0.96;
use Test::Fatal;
use Test::Deep qw/!blessed/;
use Session::Storage::Secure;
my $data = {
foo => 'bar',
baz => 'bam',
};
my $secret = "serenade viscount secretary frail";
my $old_secret = "tornados hypocrisy overhang exegesis";
sub _gen_store {
my ($config) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
my $store = Session::Storage::Secure->new(
secret_key => $secret,
%{ $config || {} },
);
ok( $store, "created a storage object" );
return $store;
}
subtest "pv2 object reads pv1 session" => sub {
my $pv1_store = _gen_store( { protocol_version => 1 } );
my $pv2_store = _gen_store;
my $pv1_session = $pv1_store->encode($data);
my $decoded = $pv2_store->decode($pv1_session);
cmp_deeply( $decoded, $data, "roundtrip" );
};
subtest "pv1 object reads pv2 session" => sub {
my $pv1_store = _gen_store( { protocol_version => 1 } );
my $pv2_store = _gen_store;
my $pv2_session = $pv2_store->encode($data);
my $decoded = $pv1_store->decode($pv2_session);
cmp_deeply( $decoded, $data, "roundtrip" );
};
subtest "pv2 object reads pv1 old secrets" => sub {
my $pv1_store = _gen_store(
{
secret_key => $old_secret,
protocol_version => 1
}
);
my $pv2_store = _gen_store(
{
old_secrets => [ $old_secret ]
}
);
my $pv1_session = $pv1_store->encode($data);
my $decoded = $pv2_store->decode($pv1_session);
cmp_deeply( $decoded, $data, "roundtrip" );
};
done_testing;
#
# This file is part of Session-Storage-Secure
#
# This software is Copyright (c) 2013 by David Golden.
#
# This is free software, licensed under:
#
# The Apache License, Version 2.0, January 2004
#
|
