From d0228ddbb428a6839ca4fa990f01eecf76542c62 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 24 Dec 2007 01:25:10 +0000
Subject: [PATCH] add some more users for testing canAdd and canEdit

---
 t/Asset/Asset.t | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/t/Asset/Asset.t b/t/Asset/Asset.t
index 1c543bad2..0ed9ae6b7 100644
--- a/t/Asset/Asset.t
+++ b/t/Asset/Asset.t
@@ -16,6 +16,7 @@ use WebGUI::Test;
 use WebGUI::Test::Maker::Permission;
 use WebGUI::Session;
 use WebGUI::Asset;
+use WebGUI::User;
 use WebGUI::Asset::Wobject::Navigation;
 use WebGUI::Asset::Wobject::Folder;
 use WebGUI::AssetVersioning;
@@ -31,13 +32,20 @@ my @fixTitleTests = getFixTitleTests($session);
 
 my $rootAsset = WebGUI::Asset->getRoot($session);
 
+my %testUsers = ();
+##Just a regular user
+$testUsers{'regular user'} = WebGUI::User->new($session, 'new');
+##Users in group 12 can add Assets
+$testUsers{'canAdd turnOnAdmin'} = WebGUI::User->new($session, 'new');
+$testUsers{'canAdd turnOnAdmin'}->addToGroups(['12']);
+
 my $canAddMaker = WebGUI::Test::Maker::Permission->new();
 $canAddMaker->prepare({
     'className' => 'WebGUI::Asset',
     'session'   => $session,
     'method'    => 'canAdd',
-    'pass'      => [3],
-    'fail'      => [1],
+    'pass'      => [3, $testUsers{'canAdd turnOnAdmin'}, ],
+    'fail'      => [1, $testUsers{'regular user'}, ],
 });
 
 my $properties;
@@ -54,13 +62,14 @@ my $versionTag2 = WebGUI::VersionTag->getWorking($session);
 my $canEditAsset = $rootAsset->addChild($properties, $properties->{id});
 
 $versionTag2->commit;
+$properties = {};  ##Clear out the hash so that it doesn't leak later by accident.
 
 my $canEditMaker = WebGUI::Test::Maker::Permission->new();
 $canEditMaker->prepare({
     'object' => $canEditAsset,
     'method' => 'canEdit',
-    'pass'   => [3],
-    'fail'   => [1],
+    'pass'   => [3, ],
+    'fail'   => [1, $testUsers{'regular user'}, ],
 });
 
 plan tests => 56
@@ -377,6 +386,9 @@ END: {
     foreach my $vTag ($versionTag, $versionTag2) {
         $vTag->rollback;
     }
+    foreach my $user (values %testUsers) {
+        $user->delete;
+    }
 }
 
 ##Return an array of hashrefs.  Each hashref describes a test