more robust testing platform, #37340

[freeside.git] / FS / FS / Mason / StandaloneRequest.pm

diff --git a/FS/FS/Mason/StandaloneRequest.pm b/FS/FS/Mason/StandaloneRequest.pm
index a5e4dcb..e34a353 100644 (file)
--- a/FS/FS/Mason/StandaloneRequest.pm
+++ b/FS/FS/Mason/StandaloneRequest.pm
@@ -20,4 +20,13 @@ sub new {
 
 }
 
+# fake this up for UI testing
+sub redirect {
+  my $self = shift;
+  if (scalar(@_)) {
+    $self->{_redirect} = shift;
+  }
+  return $self->{_redirect};
+}
+
 1;