0

按照指示安装。参见标准模块中的代码

Option Explicit
Option Private Module

'@TestModule
'@Folder("Tests")

Private Assert As Object
Private Fakes As Object

'@ModuleInitialize
Private Sub ModuleInitialize()
   'this method runs once per module.
   Set Assert = CreateObject("Rubberduck.AssertClass")
   Set Fakes = CreateObject("Rubberduck.FakesProvider")
   Debug.Print "ModuleInitialize"
End Sub

'@ModuleCleanup
Private Sub ModuleCleanup()
   'this method runs once per module.
   Set Assert = Nothing
   Set Fakes = Nothing
   Debug.Print "ModuleCleanup"
End Sub

'@TestInitialize
Private Sub TestInitialize()
   'This method runs before every test in the module.
   .Debug.Print "TestInitialize"
End Sub

'@TestCleanup
Private Sub TestCleanup()
   'this method runs after every test in the module.
   Debug.Print "TestCleanup"
End Sub

问题,如果我运行资源管理器,它只是转来转去

我究竟做错了什么

4

0 回答 0