LANforge/Test.pm: fixes undef self reference for Test param

This commit is contained in:
Jed Reynolds
2019-11-27 14:25:58 -08:00
parent b74f973251
commit 5b094d7783

View File

@@ -42,6 +42,7 @@ sub new {
$self->{'ExpectedNumber'} = 1;
$self->{'Test'} = undef;
if (defined $parm{'Test'}) {
#print "new: Creating Test $self->{'Name'}\n";
$self->{'Test'} = $parm{'Test'};
}
if (defined $parm{'ExpectedNumber'}) {
@@ -67,7 +68,7 @@ sub test {
print "LANforge::test lacks self->Test, please rewrite your script.\n";
return $::FAIL;
}
return $self->{'Test'}();
return $self->{'Test'}($self, @_);
}
sub test_err {
my $self = shift;