diff options
-rw-r--r-- | FS/FS/Test.pm | 2 | ||||
-rwxr-xr-x | FS/t/suite/03-realtime_pay.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/Test.pm b/FS/FS/Test.pm index 9c77417..3b1c092 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 17456bb..fb2aa57 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 ) { |