scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-10-31 02:38:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jed Reynolds
2019-11-27 14:25:58 -08:00
parent b74f973251
commit 5b094d7783
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
LANforge/Test.pm
View File

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