summaryrefslogtreecommitdiff
path: root/cleopatre/devkit/tests/validation/scripts/automate_SmartBits_latency_test/1-1/unidirectional/frame_size__128/start_latency_test_1-1_uni_128_600sX1_reverse.vbs
diff options
context:
space:
mode:
Diffstat (limited to 'cleopatre/devkit/tests/validation/scripts/automate_SmartBits_latency_test/1-1/unidirectional/frame_size__128/start_latency_test_1-1_uni_128_600sX1_reverse.vbs')
-rw-r--r--cleopatre/devkit/tests/validation/scripts/automate_SmartBits_latency_test/1-1/unidirectional/frame_size__128/start_latency_test_1-1_uni_128_600sX1_reverse.vbs43
1 files changed, 43 insertions, 0 deletions
diff --git a/cleopatre/devkit/tests/validation/scripts/automate_SmartBits_latency_test/1-1/unidirectional/frame_size__128/start_latency_test_1-1_uni_128_600sX1_reverse.vbs b/cleopatre/devkit/tests/validation/scripts/automate_SmartBits_latency_test/1-1/unidirectional/frame_size__128/start_latency_test_1-1_uni_128_600sX1_reverse.vbs
new file mode 100644
index 0000000000..d9f66af6bf
--- /dev/null
+++ b/cleopatre/devkit/tests/validation/scripts/automate_SmartBits_latency_test/1-1/unidirectional/frame_size__128/start_latency_test_1-1_uni_128_600sX1_reverse.vbs
@@ -0,0 +1,43 @@
+Set objShell = CreateObject("WScript.Shell")
+
+Set fso = CreateObject("Scripting.FileSystemObject")
+
+fso.CopyFile "..\..\..\..\..\SmartBits_test_scripts\latency\1-1\unidirectional\frame_size__128\latency_1-1_uni_128_600sX1_reverse.sig", "..\..\..\..\..\SmartBits_test_scripts\start.sig",TRUE
+
+
+objShell.Run "Smartapp.exe"
+
+
+Set oATO = WScript.CreateObject("wshAPIToolkitObject.ucATO")
+
+Set args = WScript.Arguments
+If WScript.Arguments.Count <> 1 Then
+ Wscript.Echo "Usage: start_latency_test_reverse mail<no_mail>"
+ Wscript.Quit
+End If
+
+If args.Item(0) = "mail" Then
+ WScript.Echo "If test fails email will be sent to zoran.milosavljevic@spidcom.com"
+End If
+
+WScript.Sleep 5000
+
+Do While 1
+ 'Exit the test if test was successfull
+ objShell.Sendkeys "%a"
+ objShell.Sendkeys "%n"
+ objShell.Sendkeys "%{f4}" 'Press Alt+F4 to close first window
+ objShell.Sendkeys "%{F4}" 'Press Alt+F4 to close first window
+ objShell.Sendkeys "%{f4}" 'Press Alt+F4 to close second window
+
+ Success = objShell.AppActivate("SmartApplications")
+ If Success = False Then
+ objShell.Sendkeys "%{TAB}"
+ If args.Item(0) = "mail" Then
+ objShell.Run ("%comspec% /c bmail -s smtp.spidcom.com -t zoran.milosavljevic@spidcom.com -f test@spidcom.com -a ""throughput test failed"" -b ""Throughput test failed. Reason: Error in packet learning."" "), 1, TRUE
+ End If
+ WScript.Quit(2)
+ End If
+
+ WScript.Sleep 1000
+Loop