testWithEnvironment.fsx

  let paramsToEnvironment (o: DotNet.Options) =
    o.CustomParams
    |> Option.map (fun x -> let bits = x.Split ("/p:", StringSplitOptions.RemoveEmptyEntries)
                            bits
                            |> Array.fold (fun (o2: DotNet.Options) flag -> let line = flag.TrimEnd([| ' '; '"' |])
                                                                            let split = if line.Contains "=\""
                                                                                        then "=\""
                                                                                        else "="
                                                                            let parts = line.Split (split, StringSplitOptions.RemoveEmptyEntries)
                                                                            { o2 with Environment = o2.Environment |> Map.add parts[0] parts[1] }) o)
    |> Option.defaultValue o

  let testWithEnvironment (o: Fake.DotNet.DotNet.TestOptions) =
    {o with Common = {paramsToEnvironment o.Common with CustomParams = None }}