fix detection of a successful test

[freeside.git] / FS / FS / Test.pm

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;
 }