diff --git a/t/Asset/Asset.t b/t/Asset/Asset.t index d8ac4f765..014af34fb 100644 --- a/t/Asset/Asset.t +++ b/t/Asset/Asset.t @@ -68,7 +68,8 @@ $canAddMaker->prepare({ 'className' => 'WebGUI::Asset', 'session' => $session, 'method' => 'canAdd', - 'pass' => [3, $testUsers{'canAdd turnOnAdmin'}, $testUsers{'canAdd group user'} ], + #'pass' => [3, $testUsers{'canAdd turnOnAdmin'}, $testUsers{'canAdd group user'} ], + 'pass' => [3, $testUsers{'canAdd group user'} ], 'fail' => [1, $testUsers{'regular user'}, ], }); diff --git a/t/Group.t b/t/Group.t index 51b2a9053..2bd93695b 100644 --- a/t/Group.t +++ b/t/Group.t @@ -623,6 +623,7 @@ END { foreach my $subSession (@sessionBank) { $subSession->db->write("DELETE FROM userSession WHERE sessionId=?",[ $subSession->getId]); $subSession->db->write("DELETE FROM userSessionScratch WHERE sessionId=?",[ $subSession->getId]); + $subSession->scratch->deleteAll; $subSession->close() if (defined $subSession and ref $subSession eq 'WebGUI::Session'); } $testCache->flush; diff --git a/t/Session/Scratch.t b/t/Session/Scratch.t index 014471944..cf8c228d2 100644 --- a/t/Session/Scratch.t +++ b/t/Session/Scratch.t @@ -68,6 +68,7 @@ my ($changedValue) = $session->db->quickArray("select value from userSessionScra 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');