gistfile1.txt

Usage basics eg:
multinode remote
Will run any tests in the remote multinode test dll (.

The script finds any Tests.Multinode.dll file that also includes the arg passed in the command line.

multinode.cmd

@echo off

"c:\Program Files (x86)\Microsoft SDKs\F#\3.1\Framework\v4.0\Fsi.exe" --exec multinode.fsx %*

multinode.fsx

#I @"src/packages/FAKE/tools"
#r "FakeLib.dll"
#r "System.Xml.Linq"

open System
open System.IO
open System.Text
open Fake
open Fake.FileUtils
open Fake.TaskRunnerHelper
open Fake.ProcessHelper

let first = fsi.CommandLineArgs.[1] 

let multiNodeTestPath = findToolInSubPath "Akka.MultiNodeTestRunner.exe" "bin/core/Akka.MultiNodeTestRunner*"
printfn "Using MultiNodeTestRunner: %s" multiNodeTestPath

let targetFilter = sprintf "src/**/bin/Release/*%s*.Tests.MultiNode.dll" first
printfn "Using target filter: %s" targetFilter

let multiNodeTestAssemblies = !! targetFilter

let runMultiNodeSpec assembly =
    let spec = getBuildParam "spec"

    let args = new StringBuilder()
            |> append assembly
            |> append "-Dmultinode.enable-filesink=on"
            |> appendIfNotNullOrEmpty spec "-Dmultinode.test-spec="
            |> toText

    let result = ExecProcess(fun info -> 
        info.FileName <- multiNodeTestPath
        info.WorkingDirectory <- (Path.GetDirectoryName (FullName multiNodeTestPath))
        info.Arguments <- args) (System.TimeSpan.FromMinutes 60.0) (* This is a VERY long running task. *)
    if result <> 0 then failwithf "MultiNodeTestRunner failed. %s %s" multiNodeTestPath args
    
multiNodeTestAssemblies |> Seq.iter (runMultiNodeSpec)