From f193f2536abaa54f0591ba4f9ab407da830a2cb7 Mon Sep 17 00:00:00 2001 From: cherierm Date: Fri, 13 Apr 2007 09:32:23 +0000 Subject: [PATCH 1/1] a script of the rl test on windows git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@3407 48e7efb5-ca39-0410-a469-dd3cf9ba447f --- .../mutual_exclusion/simple_token/test_rl.vbs | 23 +++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 examples/gras/mutual_exclusion/simple_token/test_rl.vbs diff --git a/examples/gras/mutual_exclusion/simple_token/test_rl.vbs b/examples/gras/mutual_exclusion/simple_token/test_rl.vbs new file mode 100644 index 0000000000..d1f96fc0cd --- /dev/null +++ b/examples/gras/mutual_exclusion/simple_token/test_rl.vbs @@ -0,0 +1,23 @@ +Dim oShell +Dim iExitCode + +Set oShell = WScript.CreateObject ("WSCript.shell") + +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\simple_token_node 4000 127.0.0.1 4010 --create-token",1,False) +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\simple_token_node 4010 127.0.0.1 4020",1,False) +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\simple_token_node 4020 127.0.0.1 4030",1,False) +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\simple_token_node 4030 127.0.0.1 4040",1,False) +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\simple_token_node 4040 127.0.0.1 4050",1,False) +iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\simple_token_node 4050 127.0.0.1 4000",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