gallio.fs

(* Simple Gallio test runner, usable from FSI *)

#r "Gallio.dll"
open Gallio.Runner
open Gallio.Runtime.Logging

let launcher = new TestLauncher()
let setup = new Gallio.Runtime.RuntimeSetup()
setup.AddPluginDirectory @"C:\Program Files\Gallio\bin"
setup.RuntimePath <- @"C:\Program Files\Gallio\bin"
launcher.RuntimeSetup <- setup
launcher.TestProject.TestPackage.ShadowCopy <- true
launcher.AddFilePattern @"Temp\DTC.*.dll"

let dump =
  { new ILogger with
        member x.Log(s:LogSeverity,m:string) = printfn "%A: %s" s m
        member x.Log(s:LogSeverity,m:string,e:System.Exception) = printfn "%A: %s\n%A" s m e
        member x.Log(s:LogSeverity,m:string,e:Gallio.Common.Diagnostics.ExceptionData) = printfn "%A: %s\n%A" s m e
  }

let silent =
  { new ILogger with
        member x.Log(s:LogSeverity,m:string) = ()
        member x.Log(s:LogSeverity,m:string,e:System.Exception) = ()
        member x.Log(s:LogSeverity,m:string,e:Gallio.Common.Diagnostics.ExceptionData) = ()
  }

launcher.Logger <- silent

launcher.ProgressMonitorProvider <- Gallio.Runtime.ProgressMonitoring.NullProgressMonitorProvider.Instance

let result = launcher.Run()