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
|
use Test::More import => ['!pass'];
use Dancer ':syntax';
use Dancer::Session::Abstract;
plan tests => 8;
eval {
Dancer::Session::Abstract->retrieve
};
like $@, qr{not implemented},
"retrieve is a virtual method";
eval {
Dancer::Session::Abstract->create
};
like $@, qr{not implemented},
"create is a virtual method";
eval {
Dancer::Session::Abstract->flush
};
like $@, qr{not implemented},
"flush is a virtual method";
eval {
Dancer::Session::Abstract->destroy
};
like $@, qr{not implemented},
"destroy is a virtual method";
my $s = Dancer::Session::Abstract->new;
isa_ok $s, 'Dancer::Session::Abstract';
ok(defined($s->id), "id is defined");
is $s->session_name, 'dancer.session', "default name is dancer.session";
setting session_name => "foo_session";
$s = Dancer::Session::Abstract->new;
is $s->session_name, 'foo_session', 'setting session_name is used';
|
