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
|
# $Id$
use strict;
# Some unit tests for CGI::Session::Driver::DBI
BEGIN{
use Test::More;
eval { require DBI; };
if ($@) {
plan skip_all => 'DBI module not found';
}
else {
plan qw/no_plan/;
}
use_ok('CGI::Session::Driver::DBI');
}
eval { CGI::Session::Driver::DBI->retrieve(undef); };
like($@,qr/\Qretrieve(): usage error/,'retrieve returns expected failure message when no session id is given');
eval { CGI::Session::Driver::DBI->traverse(undef); };
like($@,qr/\Qtraverse(): usage error/,'traverse returns expected failure message when no session id is given');
|
