构造函数中的 fsunit.xunit 测试异常

Question

拥有

type Category(name : string, categoryType : CategoryType) = 
        do
            if (name.Length = 0) then
                invalidArg "name" "name is empty"

我正在尝试使用 FsUnit + xUnit 测试此异常：

[<Fact>]
let ``name should not be empty``() =
    (fun () -> Category(String.Empty, CategoryType.Terminal)) |> should throw typeof<ArgumentException>

但是当它运行时我看到XUnit.MatchException。 我做错了什么？

1. Test source code
2. Category type source code

Answer 1

虽然我不是 FsUnit 专家，但我认为 MatchException 类型是预期的，因为 FsUnit 使用自定义匹配器，并且匹配不成功。

但是，所写的测试似乎不正确，因为

(fun () -> Category(String.Empty, CategoryType.Terminal)

是一个签名为unit -> Category的函数，但你并不真正关心返回的Category。

相反，你可以写成

[<Fact>]
let ``name should not be empty``() =
    (fun () -> Category(String.Empty, CategoryType.Terminal) |> ignore)
    |> should throw typeof<ArgumentException>

注意添加的ignore 关键字，它忽略了Category 返回值。此测试通过，如果您删除 Guard Clause，则测试失败。