48 lines
1.3 KiB
Text
48 lines
1.3 KiB
Text
|
Index: t/11-new.t
|
||
|
|
--- t/11-new.t.orig
|
||
|
|
+++ t/11-new.t
|
||
|
|
@@ -1,10 +1,9 @@
|
||
|
|
#!perl
|
||
|
|
|
||
|
|
-use Test::More no_plan => 1;
|
||
|
|
+use Test::More 'no_plan';
|
||
|
|
|
||
|
|
use Test::Deep;
|
||
|
|
use Test::Exception;
|
||
|
|
-use Test::Group;
|
||
|
|
|
||
|
|
use File::Temp qw[tempdir];
|
||
|
|
use Cwd qw[getcwd];
|
||
|
|
@@ -13,14 +12,14 @@ use Cwd qw[getcwd];
|
||
|
|
# my $tempdir = tempdir( DIR => '.', CLEANUP => 1 );
|
||
|
|
# chdir( $tempdir );
|
||
|
|
|
||
|
|
-test 'use ok' => sub {
|
||
|
|
+{
|
||
|
|
use_ok 'Apache::Session::Generate::UUID';
|
||
|
|
};
|
||
|
|
|
||
|
|
my $session = {};
|
||
|
|
my $id;
|
||
|
|
|
||
|
|
-test 'session creation' => sub {
|
||
|
|
+{
|
||
|
|
ok Apache::Session::Generate::UUID::generate($session), 'generate called ok';
|
||
|
|
ok exists $session->{'data'}->{'_session_id'}, 'session id created';
|
||
|
|
is keys %{ $session->{'data'} } , 1, 'just one key in the data hashref';
|
||
|
|
@@ -28,12 +27,12 @@ test 'session creation' => sub {
|
||
|
|
$id = $session->{'data'}->{'_session_id'};
|
||
|
|
};
|
||
|
|
|
||
|
|
-test 'session uniqueness' => sub {
|
||
|
|
+{
|
||
|
|
Apache::Session::Generate::UUID::generate($session);
|
||
|
|
isnt $id, $session->{'data'}->{'_session_id'}, 'old session id does not match new one';
|
||
|
|
};
|
||
|
|
|
||
|
|
-test 'session validation' => sub {
|
||
|
|
+{
|
||
|
|
Apache::Session::Generate::UUID::generate($session);
|
||
|
|
ok Apache::Session::Generate::UUID::validate($session), 'session id validates';
|
||
|
|
$session->{'data'}->{'_session_id'} = 'asdasd' . time;
|