Utils: getting test group items

This commit is contained in:
Jed Reynolds
2020-03-09 14:42:35 -07:00
parent 688cc9325f
commit 7a65069b30

View File

@@ -547,12 +547,20 @@ sub list_groups {
print Dumper($ra); print Dumper($ra);
die("testing"); die("testing");
} }
1; # So the require or use succeeds (perl stuff) sub group_items {
my ($self, $tg_name) = @_;
die("Utils::group_items wants a test group name, bye.")
if (!(defined $tg_name) || ("" eq $tg_name));
my @lines = split(/\r?\n/, $self->doAsyncCmd( $self->fmt_cmd("show_group", $tg_name)));
$self->sleep_ms(100);
print Dumper(\@lines);
die("testing");
}
####
1;
__END__ __END__
# Plain Old Documentation (POD)
=head1 NAME =head1 NAME
Port - class to implement various LANforge utility and helper functions. Port - class to implement various LANforge utility and helper functions.
@@ -583,19 +591,13 @@ __END__
$ob->doAsyncCmd("$Some Asynchronous CLI command\n"); $ob->doAsyncCmd("$Some Asynchronous CLI command\n");
=head1 DESCRIPTION =head1 DESCRIPTION
The Utils class gives you some powerful and packaged access to various The Utils class gives you some powerful and packaged access to various
LANforge CLI objects. LANforge CLI objects.
=head1 AUTHOR =head1 AUTHOR
Ben Greear (greearb@candelatech.com) Ben Greear (greearb@candelatech.com)
Copyright (c) 2020 Candela Technologies. All rights reserved.
Copyright (c) 2001 Candela Technologies. All rights reserved.
This program is free software; you can redistribute it and/or This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. modify it under the same terms as Perl itself.
=head1 VERSION
Version 0.0.1 May 26, 2001
=end =end