From 5d8ede926c3e6a309407bf4ba535f7a19f763a9d Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 10 Feb 2009 20:24:34 +0000
Subject: [PATCH] use PseudoRequest to stop some test warnings

---
 t/Asset/AssetPackage.t | 17 +----------------
 1 file changed, 1 insertion(+), 16 deletions(-)

diff --git a/t/Asset/AssetPackage.t b/t/Asset/AssetPackage.t
index d52c27905..5b6b91283 100644
--- a/t/Asset/AssetPackage.t
+++ b/t/Asset/AssetPackage.t
@@ -55,7 +55,7 @@ my $snippet = $folder->addChild({
 });
 
 my $packageAssetId = $folder->getId;
-hack_session_request($session, $packageAssetId);
+$session->request->setup_body({ assetId => $packageAssetId });
 
 my $targetFolderChildren;
 $targetFolderChildren = $targetFolder->getLineage(["children"], {returnObjects => 1,});
@@ -85,21 +85,6 @@ TODO: {
     ok(0, 'Check package deployment with 2-level package and look for new style templates propagating down the tree');
 }
 
-
-##This allows us to place an arbitrary assetId inside the form processor.
-##This is required for deploying a package.
-sub hack_session_request {
-    my ($session, $id) = @_;
-    my $request = Test::MockObject->new();
-    $request->mock('body',
-        sub {
-            return $id
-        },
-    );
-    $request->mock('param', sub { shift->body(@_) });
-    $session->{_request} = $request;
-}
-
 END {
     foreach my $tag($versionTag, $newVersionTag) {
         if (defined $tag and ref $tag eq 'WebGUI::VersionTag') {