From 5b094d778390b2f30ad87635b8c3b76a328300b5 Mon Sep 17 00:00:00 2001
From: Jed Reynolds <jed@candelatech.com>
Date: Wed, 27 Nov 2019 14:25:58 -0800
Subject: [PATCH] LANforge/Test.pm: fixes undef self reference for Test param

---
 LANforge/Test.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/LANforge/Test.pm b/LANforge/Test.pm
index ef4b3099..9c1c4671 100644
--- a/LANforge/Test.pm
+++ b/LANforge/Test.pm
@@ -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;