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

updates cx_test to use parameter for resource

Browse Source
This commit is contained in:
Jed Reynolds
2018-10-11 18:18:17 -07:00
parent 9ddf80dfdb
commit c1e1460d57
1 changed files with 19 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
json/cx_test.pl
View File

@@ -41,10 +41,13 @@ my $usage = qq("$0 --host {ip or hostname} # connect to this
## M A I N
##
my $des_resource = 6;
GetOptions
(
'host=s' => \$::Host,
'port=i' => \$::Port
'port=i' => \$::Port,
'resource=i' => \$des_resource
) || (print($usage) && exit(1));
$::HostUri = "http://$Host:$Port";
@@ -55,17 +58,21 @@ my $ra_links = get_links_from($rh, 'resources');
my @ports_up= ();
# TODO: make this a JsonUtils::list_ports()
$uri = "/port/1/3/list?fields=alias,device,down,phantom,port";
#logg("requesting $uri");
$uri = "/port/1/${des_resource}/list?fields=alias,device,down,phantom,port";
logg("requesting $uri");
$rh = json_request($uri);
#print Dumper($rh);
flatten_list($rh, 'interfaces');
#print Dumper($rh->{'flat_list'});
for my $rh_p (keys %{$rh->{'flat_list'}}) {
if (!$rh->{'flat_list'}->{$rh_p}->{'down'}) {
print " $rh_p ".$rh->{'flat_list'}->{$rh_p}->{'down'};
if ("false" eq $rh->{'flat_list'}->{$rh_p}->{'down'}) {
push(@ports_up, $rh_p);
}
}
# find first station
my $rh_sta;
print Dumper(\@ports_up);
for my $rh_up (@ports_up) {
my $eid = $rh->{'flat_list'}->{$rh_up}->{'port'};
my @hunks = split(/[.]/, $eid);
@@ -144,7 +151,7 @@ json_request("/cli-json/show_cxe", $h);
# -A and -B are expected convention for endpoint names
# create 10 endpoints
my $rh_ports = json_request("/port/1/3/list");
my $rh_ports = json_request("/port/1/$des_resource/list");
flatten_list($rh_ports, 'interfaces');
my $rh_endp_A = {
@@ -155,7 +162,7 @@ my $rh_endp_A = {
'type' => 'lf_udp',
'ip_port' => -1,
'is_rate_bursty' => 'NO',
'min_rate' => 1000000,
'min_rate' => 100000,
'min_pkt' => -1,
'max_pkt' => -1,
'payload_pattern' => 'increasing',
@@ -165,7 +172,7 @@ my $rh_endp_A = {
my $rh_endp_B = {
'alias' => 'udp_json',
'shelf' => 1,
'resource' => 3,
'resource' => $des_resource,
'port' => 'unset',
'type' => 'lf_udp',
'ip_port' => -1,
@@ -273,7 +280,7 @@ for my $cxname (@cx_names) {
$set_state->{'cx_name'} = $cxname;
json_post("/cli-json/set_cx_state", $set_state);
}
sleep 10;
sleep 1;
$set_state = {
'test_mgr' => 'default_tm',