fix detection of a successful test

diff --git a/FS/FS/Test.pm b/FS/FS/Test.pm
index 9c77417..3b1c092 100644 (file)
--- 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 17456bb..fb2aa57 100755 (executable)
--- 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 ) {