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
|
# First test with SQLite: Basic Apache::Session usage
#!/usr/bin/perl
use strict;
use Test::More;
use File::Temp qw(mktemp);
my $dbfile = mktemp('tmp.db_XXXX');
plan skip_all => "DBD::SQLite is needed for this test"
unless eval {
require DBI;
require DBD::SQLite;
1;
};
plan skip_all => "DBD::SQLite error : $@"
unless eval {
my $dbh;
$dbh = DBI->connect( "dbi:SQLite:dbname=$dbfile", "", "" )
or die $dbh->errstr;
$dbh->do(
'CREATE TABLE sessions(id char(32) not null primary key,a_session text);'
) or die $dbh->errstr;
$dbh->disconnect() or die $dbh->errstr;
};
plan tests => 5;
use_ok('Apache::Session::Browseable::SQLite');
my %session;
ok(
tie %session, 'Apache::Session::Browseable::SQLite',
undef, { DataSource => "dbi:SQLite:$dbfile", Index => '' }
);
ok( $session{a} = 'foo' );
my $id = $session{_session_id};
untie %session;
ok(
tie %session, 'Apache::Session::Browseable::SQLite',
$id, { DataSource => "dbi:SQLite:$dbfile" }
);
ok( $session{a} eq 'foo' );
unlink $dbfile if ( -e $dbfile );
|
