diff options
author | Mark Wells <mark@freeside.biz> | 2016-11-02 12:05:14 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2016-11-02 12:42:29 -0700 |
commit | a482fe6c6e43e20b934d42173078bd5a6438fd1b (patch) | |
tree | 43e2c3ece8f10b2775e893d0519588d3ad408951 | |
parent | 7df69c8d38d07327d11c009a08f8cf3fa1891cd0 (diff) |
fix detection of a successful test
-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 1f2b44b..1bd6119 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 ) { |