Option Explicit
Option Private Module
'@TestModule
Private Assert As New Rubberduck.AssertClass
Private globalVar As String
Private Const HELLO_WORLD As String = "Hello, World!"
Public Sub HelloWorld()
globalVar = HELLO_WORLD
End Sub
'@TestMethod
Public Sub TestHelloWorld()
globalVar = "GoodBye, World!"
Assert.AreEqual "GoodBye, World!", globalVar, "Initialization"
Dim thunk As Delegate
Set thunk = Delegate.Create(AddressOf HelloWorld)
thunk.Run
Assert.AreEqual HELLO_WORLD, globalVar, "Value changed"