From bb874bc367117b47213dedf7e4760eb5901ee7f4 Mon Sep 17 00:00:00 2001
From: Jed Reynolds <jed@candelatech.com>
Date: Thu, 5 Mar 2020 23:35:04 -0800
Subject: [PATCH] Utils: adds test_groups()

---
 LANforge/Utils.pm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/LANforge/Utils.pm b/LANforge/Utils.pm
index 1055f76b..fcc2dce5 100644
--- a/LANforge/Utils.pm
+++ b/LANforge/Utils.pm
@@ -409,6 +409,7 @@ sub sleep_ms {
     select(undef, undef, undef, $secs);
   }
 }
+
 sub sleep_sec {
   my ($secs) = @_;
   return if (!(defined $secs) || ($secs == 0));
@@ -526,7 +527,17 @@ sub ports_on_radio {
   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) = @_;
   die("cx_for_group needs test group name, bye.")
     if (!(defined $testg_name) || ("" eq $testg_name));