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

Json: includes use of usleep; increases number of stations created during test to clobber radio limit

Browse Source
This commit is contained in:
Jed Reynolds
2018-09-10 19:12:30 -07:00
parent d36fcb5fa3
commit 3cd278fd81
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
json/port_test.pl
View File

@@ -3,6 +3,7 @@ use strict;
use warnings; use warnings;
use diagnostics; use diagnostics;
use Carp; use Carp;
use Time::HiRes qw(usleep);
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) }; $SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
$SIG{ __WARN__ } = sub { Carp::confess( @_ ) }; $SIG{ __WARN__ } = sub { Carp::confess( @_ ) };
@@ -87,7 +88,7 @@ for my $rh_target (@destroy_me) {
}; };
logg(" $alias"); logg(" $alias");
json_post("/cli-json/rm_vlan", $rh_data); json_post("/cli-json/rm_vlan", $rh_data);
sleep 0.015; usleep (15000);
} }
# this really should poll for ports to wait for them to disappear # this really should poll for ports to wait for them to disappear
@@ -100,6 +101,7 @@ my $rh_radio;
my $radio_name; my $radio_name;
my $resource; my $resource;
my $range; my $range;
my $num_sta = 129;
my $radio_num; my $radio_num;
for $rh_radio (@radios) { for $rh_radio (@radios) {
$radio_name = $rh_radio->{'alias'}; $radio_name = $rh_radio->{'alias'};
@@ -108,7 +110,7 @@ for $rh_radio (@radios) {
$resource = $hunks[3]; $resource = $hunks[3];
$range = ($resource * 1000) + ($radio_num * 100); $range = ($resource * 1000) + ($radio_num * 100);
logg("\n/cli-json/add_sta = "); logg("\n/cli-json/add_sta = ");
for (my $i = $range; $i < ($range+20); $i++) { for (my $i = $range; $i < ($range+$num_sta); $i++) {
# TODO: create JsonUtils::add_sta($eid, $alias...) # TODO: create JsonUtils::add_sta($eid, $alias...)
my $rh_data = { my $rh_data = {
'shelf'=>1, 'shelf'=>1,
@@ -123,9 +125,9 @@ for $rh_radio (@radios) {
'rate'=>'DEFAULT' 'rate'=>'DEFAULT'
}; };
#print Dumper($rh_data); #print Dumper($rh_data);
logg(" $radio_name/sta$i "); logg("1/$resource/$radio_name -> sta$i ");
json_post("/cli-json/add_sta", $rh_data); json_post("/cli-json/add_sta", $rh_data);
sleep 0.021; usleep(15000);
} }
} }
sleep 1; sleep 1;
@@ -134,7 +136,7 @@ for $rh_radio (@radios) {
my @hunks = split(/[\/]/, $rh_radio->{'uri'}); my @hunks = split(/[\/]/, $rh_radio->{'uri'});
$resource = $hunks[3]; $resource = $hunks[3];
$range = ($resource * 1000) + ($radio_num * 100); $range = ($resource * 1000) + ($radio_num * 100);
for (my $i = $range; $i < ($range+20); $i++) { for (my $i = $range; $i < ($range+$num_sta); $i++) {
my $rh_data = { my $rh_data = {
'shelf'=>1, 'shelf'=>1,
'resource'=>$resource, 'resource'=>$resource,
@@ -145,7 +147,7 @@ for $rh_radio (@radios) {
}; };
# TODO: create JsonUtils::set_dhcp($eid, $alias, $on_off) # TODO: create JsonUtils::set_dhcp($eid, $alias, $on_off)
json_post("/cli-json/set_port", $rh_data); json_post("/cli-json/set_port", $rh_data);
sleep 0.021; usleep(21000);
} }
} }
sleep 1; sleep 1;