From 5591997af5dd920c50e357e36e4d0feacd94c14a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 21 Jul 2007 21:26:58 +0000
Subject: [PATCH] finish addEditLabel test, needed to Mock the request to that
 it could check $session->form for func=add

---
 t/Asset/Asset.t | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/t/Asset/Asset.t b/t/Asset/Asset.t
index 65397198d..5e2c006b8 100644
--- a/t/Asset/Asset.t
+++ b/t/Asset/Asset.t
@@ -17,7 +17,8 @@ use WebGUI::Session;
 use WebGUI::Asset;
 use WebGUI::Asset::Wobject::Navigation;
 
-use Test::More tests => 27; # increment this value for each test you create
+use Test::More tests => 28; # increment this value for each test you create
+use Test::MockObject;
 
 my $session = WebGUI::Test->session;
 
@@ -123,3 +124,12 @@ ok(  WebGUI::Asset->urlExists($session, $importUrl,     {assetId => 'notAnWebGUI
 
 my $i18n = WebGUI::International->new($session, 'Asset_Wobject');
 is($importNode->addEditLabel, $i18n->get('edit').' '.$importNode->getName, 'addEditLabel, default mode is edit mode');
+
+my $origRequest = $session->{_request};
+my $newRequest = Test::MockObject->new();
+my $func;
+$newRequest->set_bound('body', \$func);
+$session->{_request} = $newRequest;
+$func = 'add';
+is($importNode->addEditLabel, $i18n->get('add').' '.$importNode->getName, 'addEditLabel, use add mode');
+$session->{_request} = $origRequest;