当 InternalsVisibleToAttribute 不是一个选项时，如何使用反射对程序集中的内部（VB 中的 Friend）类进行单元测试？

Question

我有一个包含两个项目的解决方案：

Company.Project.vbproj
Company.Project.Tests.vbproj

在 Company.Project.vbproj 程序集中，我有一个类 FriendClass.vb ，其范围是 Friend （C# 中的内部） ）。

现在我希望在 Company.Project.Tests.vbproj 程序集中测试这个 FriendClass.vb。我知道 InternalsVisibleToAttribute ，但这不是 Visual Basic .NET 2.0 中的一个选项，因为它仅适用于 .NET 2.0 中的 C# (请参阅此处）。

我想在我的测试程序集中使用这个内部 FriendClass 为自己创建一个代理类，以便我可以实例化它并相应地进行测试。

有任何想法或已知的做法吗？

提前致谢！ =)

Answer 1

我发现的唯一解决方法是 .NET Framework 1.1 中使用的方法。

由于 InternalsVisibleToAttribute 在 .NET 2.0 Visual Basic 中不可用，我发现的唯一解决方法是将我的测试包含在与我的库本身相同的项目中。此外，还需要完成一些进一步的工作。

1. 为自己创建一个名为“测试”的新编译配置（您可以在其中选择“发布”/“调试”）；
2. 在项目中创建一个名为“Tests”的新文件夹；
3. 添加一个新类，用于测试您的 Friend（C# 内部）成员；
4. 此类中的第一行代码应为：#if CONFIG = "Tests" then ... #end if;
5. 将您的代码放置在该编译器 IF 指令之间。

例如，如果我有以下 Friend 类：

Friend Class MyFactory
    Friend Property Property1 As Object
        Get
            Return _field1
        End Get
        Set (ByVal value As Object)
            _field1 = value
        End Set
    End Property

    Friend Sub SomeSub(ByVal param1 As Object)
        ' Processing here...
    End Sub
End Class

那么，如果您想在 .NET 2.0 Visual Basic 中测试该类，则需要在 MyFactory 类所在的同一项目中创建一个测试类坐着。此类应如下所示：

#If CONFIG = "Tests" Then

    Imports NUnit.Framework

    <TestFixture()> _
    Public Class MyFactoryTests
        <Test()> _
        Public Sub SettingProperty1Test
            ' Doing test here...
        End Sub
    End Class

#End If

由于您有一个编译器指令告诉编译器仅在选择“测试”配置时才编译并包含此类，因此您不会在“调试”或“发布”模式下获得此类。这个类甚至不会成为库的一部分，这样不会不必要地污染您的库，并且这允许您无论如何测试您的 Friend 类。

这是我发现在 Visual Basic .NET 2.0 中解决此问题的最明智的方法。