使用 dotnet test 和 xUnit 在 .NET Core 中进行 F# 库单元测试Unit testing F# libraries in .NET Core using dotnet test and xUnit

本文介绍如何测试 .NET Core 项目。如果要测试 ASP.NET Core 项目，请参阅 ASP.NET Core 中的集成测试。

打开 shell 窗口。创建一个名为 unit-testing-with-fsharp 的目录，以保留该解决方案。在此新目录中，运行创建新的解决方案。这样便于管理类库和单元测试项目。在解决方案库中，创建 MathService 目录。目录和文件结构目前如下所示：

将 MathService 作为当前目录，然后运行 dotnet new classlib -lang F# 以创建源项目。创建数学服务的失败实现：

module MyMath =
    let squaresOfOdds xs = raise (System.NotImplementedException("You haven't written a test yet!"))

将目录更改回 unit-testing-with-fsharp 目录。运行向解决方案添加类库项目。

接下来，创建 MathService.Tests 目录。下图显示了它的目录结构：

/unit-testing-with-fsharp
    unit-testing-with-fsharp.sln
    /MathService
        Source Files
        MathService.fsproj
    /MathService.Tests

将 MathService.Tests 目录作为当前目录，并使用 dotnet new xunit -lang F# 创建一个新项目。这会创建将 xUnit 用作测试库的测试项目。生成的模板在 MathServiceTests.fsproj 中配置测试运行程序：

<ItemGroup>
  <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.3.0-preview-20170628-02" />
  <PackageReference Include="xunit" Version="2.2.0" />
</ItemGroup>

可以在 GitHub 上的中看到整个文件。

最终的解决方案布局将如下所示：

/unit-testing-with-fsharp
    unit-testing-with-fsharp.sln
    /MathService
        Source Files
    /MathService.Tests
        Test Source Files
        MathServiceTests.fsproj

在 unit-testing-with-fsharp 目录中执行 dotnet sln add .\MathService.Tests\MathService.Tests.fsproj。

编写一个失败测试，使其通过，然后重复此过程。打开 Tests.fs 并添加以下代码：

[<Fact>]
let ``My test`` () =
    Assert.True(true)
[<Fact>]
let ``Fail every time`` () = Assert.True(false)

[<Fact>] 属性表示由测试运行程序运行的测试方法。在 unit-testing-with-fsharp 中，执行以构建测试和类库，然后运行测试。xUnit 测试运行程序包含要运行测试的程序入口点。dotnet test 使用已创建的单元测试项目启动测试运行程序。

这两个测试演示了最基本的已通过测试和未通过测试。My test 通过，而 Fail every time 未通过。现在创建针对 squaresOfOdds 方法的测试。squaresOfOdds 方法返回输入序列中所有奇整数值的平方序列。可以以迭代的方式创建可验证此功能的测试，而非尝试同时写入所有的函数。若要让每个测试都通过，意味着要针对此方法创建必要的功能。

[<Fact>]
    let expected = Seq.empty<int>
    let actual = MyMath.squaresOfOdds [2; 4; 6; 8; 10]
    Assert.Equal<Collections.Generic.IEnumerable<int>>(expected, actual)

测试失败。尚未创建实现。在起作用的类中编写最简单的代码，使此测试通过：

在 unit-testing-with-fsharp 目录中，再次运行 dotnet test。dotnet test 命令构建 MathService 项目，然后构建 MathService.Tests 项目。构建这两个项目后，该命令将运行此单项测试。测试通过。

你已经通过了一个测试，现在可以编写更多测试。下一个简单示例使用的序列包含的唯一奇数为 1。数值 1 较为简单，因为 1 的平方是 1。下一个测试如下所示：

[<Fact>]
let ``Sequences of Ones and Evens returns Ones`` () =
    let expected = [1; 1; 1; 1]
    let actual = MyMath.squaresOfOdds [2; 1; 4; 1; 6; 1; 8; 1; 10]
    Assert.Equal<Collections.Generic.IEnumerable<int>>(expected, actual)

执行 dotnet test 以运行测试，并显示新测试失败。现在更新 squaresOfOdds 方法，以处理此新测试。筛选出序列中的所有偶数值，以使此测试通过。可以编写一个小筛选器函数并使用 Seq.filter 来实现此目的：

let private isOdd x = x % 2 <> 0
let squaresOfOdds xs =
    xs
    |> Seq.filter isOdd

还要执行一个步骤：计算每个奇数的平方值。从编写新测试开始：

[<Fact>]
let ``SquaresOfOdds works`` () =
    let expected = [1; 9; 25; 49; 81]
    Assert.Equal(expected, actual)

可以通过映射操作传递经过筛选的序列来计算每个奇数的平方，以此方式来修复测试的缺陷：

使用 xUnit 进行 F# 单元测试

使用 dotnet test 和 xUnit 在 .NET Core 中进行 F# 库单元测试Unit testing F# libraries in .NET Core using dotnet test and xUnit