使用 dotnet test 和 MSTest 进行 Visual Basic .NET Core 库单元测试

项目
04/08/2023

本教程介绍分步构建示例解决方案的交互式体验，以了解单元测试概念。如果希望使用预构建解决方案学习本教程，请在开始前查看或下载示例代码。有关下载说明，请参阅示例和教程。

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

创建源项目

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

/unit-testing-vb-mstest
    unit-testing-vb-mstest.sln
    /PrimeService

将 PrimeService 作为当前目录，然后运行 dotnet new classlib -lang VB 以创建源项目。将 Class1.VB 重命名为 PrimeService.VB。创建 PrimeService 类的失败实现：

Namespace Prime.Services
    Public Class PrimeService
        Public Function IsPrime(candidate As Integer) As Boolean
            Throw New NotImplementedException("Please create a test first")
        End Function
    End Class
End Namespace

将目录更改回 unit-testing-vb-using-mstest 目录。运行 dotnet sln add .\PrimeService\PrimeService.vbproj 向解决方案添加类库项目。

创建测试项目

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

/unit-testing-vb-mstest
    unit-testing-vb-mstest.sln
    /PrimeService
        Source Files
        PrimeService.vbproj
    /PrimeService.Tests

将 PrimeService.Tests 目录作为当前目录，并使用 dotnet new mstest -lang VB 创建一个新项目。此命令会创建一个将 MSTest 用作测试库的测试项目。生成的模板在 PrimeServiceTests.vbproj 中配置了测试运行程序：

<ItemGroup>
  <PackageReference Include="Microsoft.NET.Test.Sdk" Version="15.5.0" />
  <PackageReference Include="MSTest.TestAdapter" Version="1.1.18" />
  <PackageReference Include="MSTest.TestFramework" Version="1.1.18" />
</ItemGroup>

测试项目需要其他包创建和运行单元测试。 dotnet new 在前面的步骤中已添加 MSTest 和 MSTest 运行程序。现在，将 PrimeService 类库作为另一个依赖项添加到项目中。使用 dotnet add reference 命令：

dotnet add reference ../PrimeService/PrimeService.vbproj

可以在 GitHub 上的示例存储库中看到整个文件。

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

/unit-testing-vb-mstest
    unit-testing-vb-mstest.sln
    /PrimeService
        Source Files
        PrimeService.vbproj
    /PrimeService.Tests
        Test Source Files
        PrimeServiceTests.vbproj

在 unit-testing-vb-mstest 目录中执行 dotnet sln add .\PrimeService.Tests\PrimeService.Tests.vbproj。

创建第一个测试

编写一个失败测试，使其通过，然后重复此过程。从 PrimeService.Tests 目录删除 UnitTest1.vb，并创建一个名为 PrimeService_IsPrimeShould.VB 的新 Visual Basic 文件。添加以下代码：

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Namespace PrimeService.Tests
    <TestClass>
    Public Class PrimeService_IsPrimeShould
        Private _primeService As Prime.Services.PrimeService = New Prime.Services.PrimeService()

        <TestMethod>
        Sub IsPrime_InputIs1_ReturnFalse()
            Dim result As Boolean = _primeService.IsPrime(1)

            Assert.IsFalse(result, "1 should not be prime")
        End Sub

    End Class
End Namespace

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

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

Public Function IsPrime(candidate As Integer) As Boolean
    If candidate = 1 Then
        Return False
    End If
    Throw New NotImplementedException("Please create a test first.")
End Function

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

添加更多功能

你已经通过了一个测试，现在可以编写更多测试。质数有其他几种简单情况：0，-1。可以将这些情况添加为具有 <TestMethod> 属性的新测试，但这很快就会变得枯燥乏味。还有其他 MSTest 属性，使用这些属性可编写类似测试的套件。 <DataTestMethod> 属性表示执行相同代码，但具有不同输入参数一系列测试。可以使用 <DataRow> 属性来指定这些输入的值。

可以不使用这两个属性创建新测试，而用来创建单个索引。此索引是测试多个小于 2（即最小的质数）的值的方法：

<TestClass>
Public Class PrimeService_IsPrimeShould
    Private _primeService As Prime.Services.PrimeService = New Prime.Services.PrimeService()

    <DataTestMethod>
    <DataRow(-1)>
    <DataRow(0)>
    <DataRow(1)>
    Sub IsPrime_ValuesLessThan2_ReturnFalse(value As Integer)
        Dim result As Boolean = _primeService.IsPrime(value)

        Assert.IsFalse(result, $"{value} should not be prime")
    End Sub

    <DataTestMethod>
    <DataRow(2)>
    <DataRow(3)>
    <DataRow(5)>
    <DataRow(7)>
    Public Sub IsPrime_PrimesLessThan10_ReturnTrue(value As Integer)
        Dim result As Boolean = _primeService.IsPrime(value)

        Assert.IsTrue(result, $"{value} should be prime")
    End Sub

    <DataTestMethod>
    <DataRow(4)>
    <DataRow(6)>
    <DataRow(8)>
    <DataRow(9)>
    Public Sub IsPrime_NonPrimesLessThan10_ReturnFalse(value As Integer)
        Dim result As Boolean = _primeService.IsPrime(value)

        Assert.IsFalse(result, $"{value} should not be prime")
    End Sub
End Class

运行 dotnet test，两项测试均失败。若要使所有测试通过，可以更改方法开头的 if 子句：

if candidate < 2

通过在主库中添加更多测试、理论和代码继续循环访问。你将拥有已完成的测试版本和库的完整实现。

你已生成一个小型库和该库的一组单元测试。你已将解决方案结构化，使添加新包和新测试成为了正常工作流的一部分。你已将多数的时间和精力集中在解决应用程序的目标上。

使用 dotnet test 和 MSTest 进行 Visual Basic .NET Core 库单元测试

创建源项目

创建测试项目

创建第一个测试

添加更多功能

反馈

其他资源