VB6 有什么好的 TDD 工具或资源吗？

Question

是的，我知道我已经落后于时代，但我这里有一个古老的 VB6 编辑器应用程序，我相信没有人会很快升级到 .NET。它使用了几个第三方 DLL 工具，并且由于它仍在使用旧的 RichEdit 控件，因此我基本上可以仅使用这个工具来建立自己的 Bug 农场。

足够了，我正在尝试看看我是否可以使用 TDD，这样我就可以开始为我需要修复的每个行为/功能编写单元测试，所以迟早我可以拥有一个完整的回归测试套件这个工具。即使将来我们升级到 .NET，我认为我编写的大多数测试都应该有助于验证正确的行为，并且应该也可以升级到 .NET 版本，我猜。

一些基本的谷歌搜索将我发送到此工具电话simplyVBunit，但我找不到足够的指南等来帮助我入门，是的，我也不是那么精通 VB6 :(

1. 那么有谁知道有什么好处 我使用 TDD 的工具/资源 对于这个 VB6 应用程序？ [最好以后升级到 .NET，以防万一。]
2. 或者我可以实际使用这些单元 .NET 的测试框架，即 NUnit， 等通过解决方法？
3. 或者有没有更厉害的 如何完成这项工作？

谢谢:)

编辑：

我尝试过使用 vbunit，但我发现没有简单的方法可以将其添加到现有应用程序中，或者至少我不知道如何添加。因此我发现这个也可以玩，vb-lite-unit 和这个comunit。另外，有人说我们可以使用NUnit with vb6，但是这方面的资源更少。

Answer 1

我使用 SimplyVBUnit 获得了非常流畅的 TDD 体验。我认为代码附带的示例非常不言自明。

您在启动时最初加载的表单包含该控件。然后在 Form_Load 子中你：

 AddTest New TestDifferentAsserts

TestDifferentAsserts 是一个 vb 类。 它看起来像这样：

Public Sub TestFloatCompareTolerance()
   ' we will use the default tolerance of 0.00001
   Assert.AreEqual 9#, 9.000001, "Should be equal!"

   ' The Expected value must be a Double or Single
   ' for the tolerance to be used in the comparison.
   Assert.AreEqual 9, 9.000001, "This will fail because we didn't use a float for the expected value."
End Sub

事实上，明天我将在我的计算机上重新加载 vb6，以便在我的计算机上使用 simplevbunit。

[添加编辑]

这是我在 VB6 中的项目资源管理器：

Form1 是 simplevbunit 控件所在的位置。

此项目的source code。

如果您有第三方控制，谁在乎。用门面包裹它们。然后从外观创建一个存根。

如果您需要进一步的帮助，请发表评论。

Answer 2

VBUnit 在我的前客户的 VB6 项目中工作得很好。

Answer 3

我的情况是，我们有一个巨大的 VB6 应用程序正在迁移到 .NET。迁移后的版本已经过全面单元测试。

我们采用的方法是通过 COM 互操作从 .NET 对 VB6 应用程序进行单元测试。到目前为止，我们发现的主要优势是 VB6 开发人员最终会学习 TDD（以及它所暗示的所有内容）：

• 方法：先测试，后编码..
• 架构：SoC、凝聚力、DRY、...
• 技术：测试和模拟框架、IoC 容器...

此解决方案极大地提高了迁移版本的代码质量，因为他们了解如何以使测试更容易的方式构建事物。此外，还有可能在 VB6 和 .NET 版本上使用相同的测试。

不确定此解决方案是否针对您的问题过度架构。您应该评估是否适用或适合您的情况。

问候。