b309d108dc
Add a preliminary run of DeleteExpiredSessions to DeleteExpiredSessions.t to clean up any old, funky sessions which might just be lying around and interfering with the test.
130 lines
5.9 KiB
Perl
130 lines
5.9 KiB
Perl
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2007 Plain Black Corporation.
|
|
#-------------------------------------------------------------------
|
|
# Please read the legal notices (docs/legal.txt) and the license
|
|
# (docs/license.txt) that came with this distribution before using
|
|
# this software.
|
|
#-------------------------------------------------------------------
|
|
# http://www.plainblack.com info@plainblack.com
|
|
#-------------------------------------------------------------------
|
|
|
|
use FindBin;
|
|
use strict;
|
|
use lib "$FindBin::Bin/../lib";
|
|
|
|
use WebGUI::Test;
|
|
use WebGUI::Session;
|
|
|
|
use Test::More tests => 58; # increment this value for each test you create
|
|
use Test::Deep;
|
|
|
|
my $session = WebGUI::Test->session;
|
|
|
|
my $scratch = $session->scratch;
|
|
my $maxCount = 10;
|
|
|
|
$scratch->deleteAll();
|
|
|
|
for (my $count = 1; $count <= $maxCount; $count++){
|
|
$scratch->set("Test$count",$count);
|
|
}
|
|
|
|
for (my $count = 1; $count <= $maxCount; $count++){
|
|
is($scratch->get("Test$count"), $count, "Passed set/get $count");
|
|
}
|
|
|
|
is($scratch->delete("nonExistantVariable"), undef, 'delete returns value if deleted, otherwise undef');
|
|
is($scratch->delete("Test1"), 1, 'delete returns number deleted');
|
|
is($scratch->delete(), undef, 'delete without name of variable to delete returns undef');
|
|
is($scratch->get("Test1"), undef, "delete()");
|
|
|
|
$scratch->deleteAll;
|
|
is($scratch->get("Test2"), undef, "deleteAll()");
|
|
|
|
my $testScratchSession = $scratch->session();
|
|
|
|
is($testScratchSession, $session, "session()");
|
|
|
|
##Build some variables to test database persistency
|
|
|
|
for (my $count = 1; $count <= $maxCount; $count++){
|
|
$scratch->set("dBase$count",$count);
|
|
my ($setValue) = $session->db->quickArray("select value from userSessionScratch where sessionId=? and name=?",[$session->getId, "dBase$count"]);
|
|
is($setValue, $count, "database store for set on $count");
|
|
}
|
|
|
|
##Creating a new session with the previous session's Id should clone the scratch data
|
|
my $newSession = WebGUI::Session->open(WebGUI::Test->root, WebGUI::Test->file, undef, undef, $session->getId);
|
|
|
|
is($newSession->getId, $session->getId, "Successful session duplication");
|
|
|
|
for (my $count = 1; $count <= $maxCount; $count++){
|
|
is($newSession->scratch->get("dBase$count"), $count, "Passed set/get $count");
|
|
}
|
|
|
|
$scratch->set("dBase5", 15);
|
|
|
|
my ($changedValue) = $session->db->quickArray("select value from userSessionScratch where sessionId=? and name=?",[$session->getId, "dBase5"]);
|
|
is($changedValue, 15, "changing stored scratch value");
|
|
is($scratch->get("dBase5"), 15, "checking cached scratch value");
|
|
|
|
$newSession->scratch->deleteAll;
|
|
$newSession->close;
|
|
|
|
is($scratch->set('retVal',2), 1, 'set returns number of rows affected');
|
|
is($scratch->set(), undef, 'set returns undef unless it gets a name');
|
|
is($scratch->set('','value'), undef, 'set returns undef unless it gets a name even if there is a value');
|
|
|
|
############################################
|
|
#
|
|
# Multi-session deleting
|
|
#
|
|
############################################
|
|
|
|
my @sessionBank = map { WebGUI::Session->open(WebGUI::Test->root, WebGUI::Test->file) } 0..3;
|
|
|
|
##Set variables to be deleted by name
|
|
foreach my $i (0..3) {
|
|
$sessionBank[$i]->scratch->set('deletableName', $i);
|
|
}
|
|
##Set variables to be deleted by name and value
|
|
$sessionBank[0]->scratch->set('deletableValue', 'a');
|
|
$sessionBank[1]->scratch->set('deletableValue', 'a');
|
|
$sessionBank[2]->scratch->set('deletableValue', 'b');
|
|
$sessionBank[2]->scratch->set('falseValue', '');
|
|
$sessionBank[3]->scratch->set('deletableValue', 'c');
|
|
$sessionBank[3]->scratch->set('falseValue', '0');
|
|
|
|
is($scratch->deleteName(), undef, 'deleteName without name of variable to delete returns undef');
|
|
is($sessionBank[2]->scratch->deleteName("deletableName"), 4, 'deleteName returns number of elements deleted');
|
|
is($sessionBank[2]->scratch->get("deletableName"), undef, 'deleteName clears session cached in the object that calls it');
|
|
is($sessionBank[1]->scratch->get('deletableName'), 1, "deleteName does not change session cached vriables");
|
|
my ($entries) = $session->db->quickArray("select count(name) from userSessionScratch where name=?",['deletableName']);
|
|
is($entries, 0, "deleteName deletes entries in the database");
|
|
|
|
is($sessionBank[1]->scratch->deleteNameByValue('deletableValue', 'a'), 2, 'deleteNameByValue deleted two rows');
|
|
($entries) = $session->db->quickArray("select count(name) from userSessionScratch where name=?",['deletableValue']);
|
|
is($entries, 2, "deleteNameByValue deleted entries in the database");
|
|
is($sessionBank[1]->scratch->get('deletableValue'), undef, 'deleteNameByValue removes session cache in object that called it...');
|
|
is($sessionBank[0]->scratch->get('deletableValue'), 'a', 'but not in any other object whose database entry was cleared');
|
|
cmp_bag($session->db->buildArrayRef('select value from userSessionScratch where name=?',['deletableValue']), ['b', 'c'], 'deleteNameByValue values that were not deleted');
|
|
|
|
is($sessionBank[2]->scratch->deleteNameByValue('deletableValue', 'c'), 1, 'deleteNameByValue deleted one row');
|
|
|
|
is($sessionBank[0]->scratch->deleteNameByValue('',35), undef, 'deleteNameByValue requires a NAME');
|
|
is($sessionBank[0]->scratch->deleteNameByValue('scratch'), undef, 'deleteNameByValue requires a value');
|
|
is($sessionBank[0]->scratch->deleteNameByValue('',''), undef, 'deleteNameByValue require a NAME and a VALUE');
|
|
is($sessionBank[3]->scratch->deleteNameByValue('falseValue','0'), 1, 'deleteNameByValue will delete values that are false (0)');
|
|
is($sessionBank[2]->scratch->deleteNameByValue('falseValue',''), 1, "deleteNameByValue will delete values that are false ('')");
|
|
|
|
END {
|
|
$session->scratch->deleteAll;
|
|
foreach my $wgSess ($newSession, @sessionBank) {
|
|
if (defined $wgSess and ref $wgSess eq 'WebGUI::Session') {
|
|
diag "Closing session";
|
|
$wgSess->scratch->deleteAll;
|
|
$wgSess->var->end;
|
|
$wgSess->close;
|
|
}
|
|
}
|
|
}
|