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

gui-cmd: Retry starting automated test if system is currently busy.

Browse Source
This commit is contained in:
Ben Greear
2020-05-06 08:00:45 -07:00
parent 03b180b610
commit 060ccf1051
1 changed files with 19 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lf_gui_cmd.pl
View File

@@ -125,20 +125,36 @@ if ($scenario ne "") {
} }
if ($ttype ne "") { if ($ttype ne "") {
print doCmd("cv create '$ttype' '$tname'"); # Try several times in case system is currently busy cleaning up or similar.
my $i;
my $rslt;
for ($i = 0; $i<60; $i++) {
$rslt = doCmd("cv create '$ttype' '$tname'");
print $rslt;
if ($rslt =~ /BUSY/) {
sleep(1);
}
else {
last;
}
}
if ($tconfig ne "") { if ($tconfig ne "") {
print doCmd("cv load '$tname' '$tconfig'"); print doCmd("cv load '$tname' '$tconfig'");
} }
print doCmd("cv click '$tname' 'Auto Save Report'"); print doCmd("cv click '$tname' 'Auto Save Report'");
my $i;
for ($i = 0; $i<@modifiers_key; $i++) { for ($i = 0; $i<@modifiers_key; $i++) {
my $k = $modifiers_key[$i]; my $k = $modifiers_key[$i];
my $v = $modifiers_val[$i]; my $v = $modifiers_val[$i];
print doCmd("cv set '$tname' '$k' '$v'"); print doCmd("cv set '$tname' '$k' '$v'");
} }
print doCmd("cv click '$tname' 'Start'"); $rslt = doCmd("cv click '$tname' 'Start'");
print $rslt;
if ($rslt =~ /Could not find instance/) {
exit(1);
}
while (1) { while (1) {
my $rslt = doCmd("cv get '$tname' 'Report Location:'"); my $rslt = doCmd("cv get '$tname' 'Report Location:'");
#print "Result-:$rslt:-\n"; #print "Result-:$rslt:-\n";