scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-11-01 19:28:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

small updates

Browse Source
This commit is contained in:
Jed Reynolds
2019-11-25 23:24:17 -08:00
parent 392c6ca6c0
commit 182b1787ae
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
LANforge/Test.pm
View File

@@ -52,11 +52,13 @@ sub new {
} }
sub run { sub run {
plan(1);
my $self = shift; my $self = shift;
print "Run $self->{Name}\n"; print "Run $self->{Name}\n";
my $result = shift; my $result = shift;
ok($result, $self->{'Name'}) || fail($self->{'Name'}); ok($result, $self->{'Name'}) || fail($self->{'Name'});
done_testing();
} }
sub test { sub test {
@@ -71,7 +73,7 @@ sub test_err {
my $self = shift; my $self = shift;
for my $e (@_) { for my $e (@_) {
my $ref = "".(caller(1))[3].":".(caller(1))[2].""; my $ref = "".(caller(1))[3].":".(caller(1))[2]."";
push (@test_errors, "$ref: $e"); push (@::test_errors, "$ref: $e");
} }
} }
1; 1;