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

Utils: adds test_groups()

Browse Source
This commit is contained in:
Jed Reynolds
2020-03-05 23:35:04 -08:00
parent d85fd85b59
commit bb874bc367
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
LANforge/Utils.pm
View File

@@ -409,6 +409,7 @@ sub sleep_ms {
select(undef, undef, undef, $secs); select(undef, undef, undef, $secs);
} }
} }
sub sleep_sec { sub sleep_sec {
my ($secs) = @_; my ($secs) = @_;
return if (!(defined $secs) || ($secs == 0)); return if (!(defined $secs) || ($secs == 0));
@@ -526,7 +527,17 @@ sub ports_on_radio {
return $ra_ifs; return $ra_ifs;
} }
sub cx_for_group { sub test_groups {
my ($self) = @_;
my $ra = [split(/\r?\n/, $self->doAsyncCmd("show_group all"))];
sleep_ms(50);
print Dumper($ra);
my @tg_matches = grep {/^TestGroup name:\s+${main::test_grp}\s+/} @$ra;
print Dumper(\@tg_matches);
return \@tg_matches;
}
sub list_groups {
my ($self, $testg_name) = @_; my ($self, $testg_name) = @_;
die("cx_for_group needs test group name, bye.") die("cx_for_group needs test group name, bye.")
if (!(defined $testg_name) || ("" eq $testg_name)); if (!(defined $testg_name) || ("" eq $testg_name));