From: Mark Wells <mark@freeside.biz>
Date: Wed, 2 Nov 2016 19:05:14 +0000 (-0700)
Subject: fix detection of a successful test
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=b14a3eaedbfaf0c90c359b03af2e73b2ba6916e5

fix detection of a successful test
---

diff --git a/FS/FS/Test.pm b/FS/FS/Test.pm
index 9c77417fe..3b1c0921c 100644
--- a/FS/FS/Test.pm
+++ b/FS/FS/Test.pm
@@ -211,7 +211,7 @@ and then pass the form object to L</post> to submit it.
 sub form {
   my $self = shift;
   my $name = shift;
-  my ($form) = grep { $_->attr('name') eq $name } $self->forms;
+  my ($form) = grep { ($_->attr('name') || '') eq $name } $self->forms;
   $form;
 }
 
diff --git a/FS/t/suite/03-realtime_pay.t b/FS/t/suite/03-realtime_pay.t
index 17456bb15..fb2aa5741 100755
--- a/FS/t/suite/03-realtime_pay.t
+++ b/FS/t/suite/03-realtime_pay.t
@@ -26,7 +26,7 @@ $FS->post($form);
 
 # on success, gives a redirect to the payment receipt
 my $paynum;
-if ($FS->redirect =~ m[^/view/cust_pay.html\?(\d+)]) {
+if ($FS->redirect =~ m[^/view/cust_pay.html\?paynum=(\d+)]) {
   pass('payment processed');
   $paynum = $1;
 } elsif ( $FS->error ) {