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
|
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Lemonldap-NG-Manager.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More tests => 5;
BEGIN { use_ok('Lemonldap::NG::Common::Session') }
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
use File::Temp;
my $dir = File::Temp::tempdir();
my $sessionModule = "Apache::Session::File";
my $sessionOptions = {
Directory => $dir,
LockDirectory => $dir,
};
my $session = Lemonldap::NG::Common::Session->new(
{
storageModule => $sessionModule,
storageModuleOptions => $sessionOptions,
kind => "TEST",
}
);
ok( defined $session->id, "Creation of session" );
ok( $session->kind eq "TEST", "Store session kind" );
use_ok('Lemonldap::NG::Common::Apache::Session::Generate::SHA256');
$sessionOptions->{generateModule} =
"Lemonldap::NG::Common::Apache::Session::Generate::SHA256";
my $session2 = Lemonldap::NG::Common::Session->new(
{
storageModule => $sessionModule,
storageModuleOptions => $sessionOptions,
kind => "TEST",
}
);
ok( length $session2->id == 64, "Use SHA256 generate module" );
|
