From f1bd3e4da9a9c5ff5f817cf8e9cd07f2cfeff16f Mon Sep 17 00:00:00 2001 From: cherierm Date: Fri, 13 Apr 2007 09:47:58 +0000 Subject: [PATCH] the script of rl test on windows git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@3415 48e7efb5-ca39-0410-a469-dd3cf9ba447f --- examples/gras/rpc/test_rl.vbs | 23 +++++++++++++++++++++++ examples/gras/timer/test_rl.vbs | 18 ++++++++++++++++++ 2 files changed, 41 insertions(+) create mode 100644 examples/gras/rpc/test_rl.vbs create mode 100644 examples/gras/timer/test_rl.vbs diff --git a/examples/gras/rpc/test_rl.vbs b/examples/gras/rpc/test_rl.vbs new file mode 100644 index 0000000000..5dac44a967 --- /dev/null +++ b/examples/gras/rpc/test_rl.vbs @@ -0,0 +1,23 @@ +Dim oShell + +Set oShell = WScript.CreateObject ("WSCript.shell") + +oShell.run "cmd /K " & "bin\rpc_server.exe 4002,1,false" +WScript.Sleep 1000 +oShell.run "cmd /K " & "bin\rpc_forwarder.exe 4003 spinnaker.loria.fr 4002,1,false" +WScript.Sleep 1000 +oShell.run "cmd /K " & "bin\rpc_client.exe spinnaker.loria.fr 4002 spinnaker.loria.fr 4003,1,false" + +Set oShell = Nothing + + + +Function GetCurrentDirectory() + + Dim sScriptFullName + + sScriptFullName = WScript.ScriptFullName + + GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\")) + +End Function diff --git a/examples/gras/timer/test_rl.vbs b/examples/gras/timer/test_rl.vbs new file mode 100644 index 0000000000..cb8387d0fc --- /dev/null +++ b/examples/gras/timer/test_rl.vbs @@ -0,0 +1,18 @@ +Dim oShell +Dim iExitCode1 + +Set oShell = WScript.CreateObject ("WSCript.shell") + +iExitCode1 = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\timer_client",1,False) + +Set oShell = Nothing + +'This function returns the current directory of the script +Function GetCurrentDirectory() + + Dim sScriptFullName + + sScriptFullName = WScript.ScriptFullName + GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\")) + +End Function -- 2.20.1