在F＃测试中模拟`printfn`

Question

我正在尝试为一个小的lib写一个测试（实际上）只是记录到控制台。

有没有办法像F＃这样模拟函数？

示例：在src / Lib / Lib.fs中

module Lib

let print msg = printfn "Your message is: %s" msg

然后，在test / LibTest / Lib.fs中

module LibTest

open NUnit.Framework
open FsUnit

[<Test>]
let ``should print what I expect``() =
  print "test" |> should equal "Your message is: test"

注意：我知道当前的print返回unit -我正在寻找一种方法来断言传递给printfn （或更理想的情况是，发送给stdout的内容，它对实现的printfn较小）。

我试图直接将模拟函数分配给Printf.printfn （显然，当我考虑时）。 是否可以将输出捕获到控制台？ 或模拟printfn函数（这是一个实现细节，但我可以接受）。

Answer 1

这是我用于测试的内容：

module StdOut =
    let stdout = System.Text.StringBuilder()
    let out (s:string) = stdout.Append s |> ignore
    let call func parm =
        stdout.Clear() |> ignore
        func parm, stdout.ToString()
    let run f p = call f p |> snd

let inline  (|>!) v f   = f v ; v
/// used to capture print outs for testing. like printfn
let printoutfn  fmt = fmt |> Printf.ksprintf (fun s -> s + "\n" |>! printf "%s"|> StdOut.out)
/// silent version of printoutfn
let printoutfns fmt = fmt |> Printf.ksprintf (fun s -> s + "\n"                |> StdOut.out)
let printout      v = printoutfn "%A" v

我正在测试的代码称为printoutfn或printoutfns ，这是静默版本。

为了测试输出，我这样做：

let print msg = printoutfn "Your message is: %s" msg

[<Test>] 
let ``should print what I expect``() =
      StdOut.run print "test" |> should equal "Your message is: test\n"

注意它如何包含换行符： \\n 。

有两个调用： StdOut.call func param和StdOut.run func param前者返回函数值和输出，后者仅返回输出