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

updates to l4_test that make it work with port_test changes

Browse Source
This commit is contained in:
Jed Reynolds
2018-10-23 23:44:05 -07:00
parent 250e2e1b05
commit 099bf6bb7a
1 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
json/l4_test.pl
View File

@@ -38,7 +38,7 @@ my $usage = qq("$0 --host {ip or hostname} # connect to this
my $des_resource = 6; my $des_resource = 6;
#my $pat_port_type = '^eth\d[#]\d+'; #my $pat_port_type = '^eth\d[#]\d+';
my $pat_port_type = '^sta\d+'; my $pat_port_type = '^v*sta\d+';
## ##
## M A I N ## M A I N
## ##
@@ -294,10 +294,11 @@ for my $rh_p (values %{$rh_ports->{'flat_list'}}) {
print "\nRefreshing..."; print "\nRefreshing...";
$h = {"endpoint"=>"all"}; $h = {"endpoint"=>"all"};
json_request("/cli-json/nc_show_endpoints${uri_args}", $h); json_request("/cli-json/nc_show_endpoints${uri_args}", $h);
sleep 1; sleep 4;
print "\nConstructing new CX: "; print "\nConstructing new CX: ";
$num_cx = 0; $num_cx = 0;
$disp_num = $des_resource * 1000; $disp_num = $des_resource * 1000;
print Dumper($rh_ports->{'flat_list'});
for my $rh_p (values %{$rh_ports->{'flat_list'}}) { for my $rh_p (values %{$rh_ports->{'flat_list'}}) {
last if ($num_cx >= ($num_ports-1)); last if ($num_cx >= ($num_ports-1));
next if ($rh_p->{'alias'} !~ /$pat_port_type/); next if ($rh_p->{'alias'} !~ /$pat_port_type/);
@@ -314,18 +315,18 @@ for my $rh_p (values %{$rh_ports->{'flat_list'}}) {
} }
$h = {"endpoint"=>"all"}; $h = {"endpoint"=>"all"};
json_request("/cli-json/nc_show_endpoints", $h); json_request("/cli-json/nc_show_endpoints", $h);
sleep 1; sleep 4;
$h = {"test_mgr"=>"all", "cross_connect"=>"all"}; $h = {"test_mgr"=>"all", "cross_connect"=>"all"};
json_request("/cli-json/show_cxe", $h); json_request("/cli-json/show_cxe", $h);
sleep 1; sleep 4;
print "\nRefreshing..."; print "\nRefreshing...";
$h = {"endpoint"=>"all"}; $h = {"endpoint"=>"all"};
json_request("/cli-json/nc_show_endpoints", $h); json_request("/cli-json/nc_show_endpoints", $h);
sleep 1; sleep 4;
$h = {"test_mgr"=>"all", "cross_connect"=>"all"}; $h = {"test_mgr"=>"all", "cross_connect"=>"all"};
json_request("/cli-json/show_cxe", $h); json_request("/cli-json/show_cxe", $h);
sleep 1; sleep 4;
# wait for data to distribute # wait for data to distribute
@@ -333,6 +334,9 @@ my $num_unfinished = 1;
while ($num_unfinished > 0) { while ($num_unfinished > 0) {
$num_unfinished = 0; $num_unfinished = 0;
my $rh_cx = json_request("/layer4/list"); my $rh_cx = json_request("/layer4/list");
print "\n- 337 --------------------------------------------------------\n";
print Dumper($rh_cx);
print "\n- 337 --------------------------------------------------------\n";
flatten_list($rh_cx, "endpoint"); flatten_list($rh_cx, "endpoint");
@cx_names = sort keys %{$rh_cx->{'flat_list'}}; @cx_names = sort keys %{$rh_cx->{'flat_list'}};
for my $cx_alias (sort @cx_names) { for my $cx_alias (sort @cx_names) {
@@ -347,6 +351,9 @@ while ($num_unfinished > 0) {
@endp_names = (); @endp_names = ();
my $rh_endp = json_request("/layer4/list"); my $rh_endp = json_request("/layer4/list");
flatten_list($rh_endp, "endpoint"); flatten_list($rh_endp, "endpoint");
print "\n- 354 --------------------------------------------------------\n";
print Dumper($rh_endp);
print "\n- 354 --------------------------------------------------------\n";
@endp_names = sort keys %{$rh_endp->{'flat_list'}}; @endp_names = sort keys %{$rh_endp->{'flat_list'}};
@cx_names = (); @cx_names = ();
for my $endp_name (@endp_names) { for my $endp_name (@endp_names) {