按照指示安装。参见标准模块中的代码
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
问题,如果我运行资源管理器,它只是转来转去
我究竟做错了什么