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
|
use encoding 'utf8';
use strict;
use File::Spec;
use Test::More ('no_plan');
BEGIN {
use_ok('CGI::Session');
use_ok("CGI::Session::Driver");
use_ok("CGI::Session::Driver::file");
}
my $id;
my $s;
{
ok($s = CGI::Session->new('driver:file;serializer:default', undef), 'Created CGI::Session object successfully');
$id = $s -> id();
}
diag("Warnings expected. Consult docs re 'utf8'");
ok($id, 'Session created successfully');
# Emulate CGI::Session::Driver::file.pm.
my $dir_name = File::Spec->tmpdir();
my $file_name = File::Spec->catfile($dir_name, "cgisess_$id");
$s = undef;
{
$s = CGI::Session->new('driver:file;serializer:default', $id);
}
if ($@) {
print STDERR $@;
ok(1, q|Warning: Failed to recreate session. Cannot "use 'utf8'; in conjunction with CGI::Session"|);
} else {
ok($s, 'Recreated session succeeded');
}
# Clean up /tmp as per RT 29969.
unlink $file_name;
|
