request->body and request->param should be the same in tests

t/Asset/Asset.t

@@ -283,6 +283,7 @@ my $origRequest = $session->{_request};
 my $newRequest = Test::MockObject->new();
 my $func;
 $newRequest->set_bound('body', \$func);
+$newRequest->set_bound('param', \$func);
 $session->{_request} = $newRequest;
 $func = 'add';
 is($importNode->addEditLabel, $i18n->get('add').' '.$importNode->getName, 'addEditLabel, use add mode');

t/Asset/AssetPackage.t

@@ -97,6 +97,7 @@ sub hack_session_request {
             return $id
         },
     );
+    $request->mock('param', sub { shift->body(@_) });
     $session->{_request} = $request;
 }
 

t/Macro/FormParam.t

@@ -99,6 +99,7 @@ sub auto_check {
 			}
 		}
 	);
+    $request->mock('param', sub {shift->body(@_)});
 
 	$session->{_request} = $request;
 

t/Macro/PageTitle.t

@@ -80,6 +80,7 @@ $request->mock('body',
 		return 0;
 	}
 );
+$request->mock('param', sub {shift->body(@_)});
 
 $session->{_request} = $request;
 

t/lib/WebGUI/Form_Checking.pm

@@ -26,6 +26,7 @@ sub auto_check {
 			}
 		}
 	);
+    $request->mock('param', sub {shift->body(@_)});
 
 	$session->{_request} = $request;
 

t/lib/WebGUI/PseudoRequest.pm

@@ -310,27 +310,7 @@ Compatibility method.  Works exactly like the body method.
 
 sub param {
 	my $self = shift;
-	my $value = shift;
-	return keys %{ $self->{param} } unless defined $value;
-	if ($self->{param}->{$value}) {
-        if (wantarray && ref $self->{param}->{$value} eq "ARRAY") {
-            return @{$self->{param}->{$value}};
-        }
-        elsif (ref $self->{param}->{$value} eq "ARRAY") {
-            return $self->{param}->{$value}->[0];
-        }
-        else {
-            return $self->{param}->{$value};
-        }
-    }
-    else {
-        if (wantarray) {
-            return ();
-        }
-        else {
-            return undef;
-        }
-    }
+    $self->body(@_);
 }
 
 #----------------------------------------------------------------------------
@@ -344,8 +324,7 @@ form variables and values.
 
 sub setup_param {
 	my $self = shift;
-	my $value = shift;
-	$self->{param} = $value;
+    $self->setup_body(@_);
 }
 
 #----------------------------------------------------------------------------