The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

REATMON / Net-HTTPServer-1.1.1 / t / session.t 

            

              
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

              
use lib "t/lib";
use Test::More tests=>33;
BEGIN{
    use_ok( "Net::HTTPServer" );
    use_ok( "Net::HTTPServer::Session" );
}
my $server = new Net::HTTPServer(datadir=>"./t/sessions",
                                 sessions=>1,
                                 log=>"t/access.log",
                                );
ok( defined($server), "new()");
isa_ok( $server, "Net::HTTPServer");
my $session = new Net::HTTPServer::Session(server=>$server);
ok( defined($session), "new()");
isa_ok( $session, "Net::HTTPServer::Session");
ok( !$session->Exists("test1"), "!Exists(test1)");
$session->Set("test1","test1");
ok( $session->Exists("test1"), "Exists(test1)");
is( $session->Get("test1"), "test1", "Get(test1)==test1");
isnt( $session->Get("test1"), "test2", "Get(test1)!=test2");
ok( !$session->Exists("test2"), "!Exists(test2)");
$session->Set("test2",["a","b","c"]);
ok( $session->Exists("test2"), "Exists(test2)");
is_deeply( $session->Get("test2"), ["a","b","c"], "Get(test2)==[a,b,c]");
isnt( $session->Get("test2"), "test1", "Get(test2)!=test1");
ok( !$session->Exists("test3"), "!Exists(test3)");
$session->Set("test3","test3");
ok( $session->Exists("test3"), "Exists(test3)");
is( $session->Get("test3"), "test3", "Get(test3)==test3");
$session->Delete("test3");
ok( !$session->Exists("test3"), "!Exists(test3)");
$session->_save();
ok( -f "./t/sessions/".$session->_key(), "Session file exists");
my $session2 = new Net::HTTPServer::Session(key=>$session->_key(),
                                            server=>$server);
ok( defined($session2), "new()");
isa_ok( $session2, "Net::HTTPServer::Session");
ok( $session2->Exists("test1"), "Exists(test1)");
is( $session2->Get("test1"), "test1", "Get(test1)==test1");
isnt( $session2->Get("test1"), "test2", "Get(test1)!=test2");
ok( $session2->Exists("test2"), "Exists(test2)");
is_deeply( $session2->Get("test2"), ["a","b","c"], "Get(test2)==[a,b,c]");
isnt( $session2->Get("test2"), "test1", "Get(test2)!=test1");
ok( !$session->Exists("test3"), "!Exists(test3)");
ok( -f "./t/sessions/".$session->_key(), "Session file exists");
unlink("./t/sessions/".$session->_key());
ok( !(-f "./t/sessions/".$session->_key()), "Session file doesn't exist");
ok( $session2->_valid(), "Is valid?");
$session2->Destroy();
ok( !$session2->_valid(), "Is not valid?");
$session2->_save();
ok( !(-f "./t/sessions/".$session->_key()), "Session file doesn't exist");