From f86be56b41d48bc7f9ddafd05fad389f3906317b Mon Sep 17 00:00:00 2001 From: cherierm Date: Fri, 13 Apr 2007 09:45:55 +0000 Subject: [PATCH] the script of the rl test on Windows git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@3413 48e7efb5-ca39-0410-a469-dd3cf9ba447f --- examples/gras/ping/test_rl.vbs | 22 ++++++++++++++++++++++ examples/gras/pmm/test_rl.vbs | 32 ++++++++++++++++++++++++++++++++ 2 files changed, 54 insertions(+) create mode 100644 examples/gras/ping/test_rl.vbs create mode 100644 examples/gras/pmm/test_rl.vbs diff --git a/examples/gras/ping/test_rl.vbs b/examples/gras/ping/test_rl.vbs new file mode 100644 index 0000000000..20bb0d1443 --- /dev/null +++ b/examples/gras/ping/test_rl.vbs @@ -0,0 +1,22 @@ +Dim oShell +Dim iExitCode1 +Dim iExitCode2 + +Set oShell = WScript.CreateObject ("WSCript.shell") + +iExitCode1 = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\ping_server 4002",1,False) +'WScript.Sleep 1000 +iExitCode2 = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\ping_client 127.0.0.1 4002",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 diff --git a/examples/gras/pmm/test_rl.vbs b/examples/gras/pmm/test_rl.vbs new file mode 100644 index 0000000000..ccfbaa5eeb --- /dev/null +++ b/examples/gras/pmm/test_rl.vbs @@ -0,0 +1,32 @@ +Dim oShell +Dim iExitCode + +Set oShell = WScript.CreateObject ("WSCript.shell") + +'run the slaves + +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) +'iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) + + +'run the master +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_master 4242",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