unit-testing - 如何在 f# 中为模式匹配创建 fsunit 测试？

Question

我是 f# 和 fsUnit 的新手，我想知道如何使用 fsUnit 测试模式匹配语句。例如，如果我有以下代码，您将如何为其编写 fsunit 测试？

let Menu () = 
    let Choice = Console.ReadLine()

        match Choice with
        | "A" | "a" -> Function1()
        | "B" | "b" -> Function2()
        | "C" | "c" -> Function3()
        | _ ->  Printfn"Error"

Answer 1

首先，您需要将实现匹配逻辑的代码与读取输入的代码分开，因为您只能测试某个调用的结果是否正确：

let handleInput choice = 
    match choice with
    | "A" | "a" -> Function1()
    | "B" | "b" -> Function2()
    | "C" | "c" -> Function3()
    | _ ->  "Error"

let menu () = 
    let choice = Console.ReadLine()
    let output = handleInput choice
    printfn "%s" output

现在您可以编写一系列测试来检查返回handleInput的字符串是否是您期望每个输入的字符串：

handleInput "A" |> should equal "whatever Function 1 returns"
handleInput "b" |> should equal "whatever Function 2 returns"
handleInput "D" |> should equal "Error"