anchor.diff:      |> appendIfTrue parameters.Silent "-s"
       |> appendIfTrue html "-t"
       |> appendIfTrue html htmlText
  +    |> appendIfTrue xml "-t"
  +    |> appendIfTrue xml xmlText
       |> appendIfTrue (isNotNullOrEmpty excludes) (sprintf "-x\" \"%s" excludes)
       |> appendIfTrue (isNotNullOrEmpty includes) (sprintf "-i\" \"%s" includes)
       |> appendFileNamesIfNotNull assemblies
  
positive.code: ///
  ///     !! (testDir @@ "Test.*.dll") 
  ///       |> MSpec (fun p -> {p with ExcludeTags = ["HTTP"]; HtmlOutputDir = reportDir})
  let MSpec setParams assemblies = 
      let details = separated ", " assemblies
      traceStartTask "MSpec" details
  
negative.code: let MSpecDefaults = 
      { ToolPath = findToolInSubPath "mspec-clr4.exe" (currentDirectory @@ "tools" @@ "MSpec")
        HtmlOutputDir = null
        XmlOutputPath = null
        WorkingDir = null
        Silent = false
        ExcludeTags = []
  