64 lines
1 KiB
Text
64 lines
1 KiB
Text
' Gambas class file
|
|
|
|
'' Tests to test UnitTest itself. Rename class to start with "_GuTest" to activate.
|
|
Inherits ATestContainer
|
|
Export
|
|
|
|
Public Sub SetupContainer()
|
|
|
|
If Me.Debug Then
|
|
Print "Setup Container"
|
|
Endif
|
|
|
|
End
|
|
|
|
Public Sub TeardownContainer()
|
|
|
|
If Me.Debug Then
|
|
Print "GuTestExample2::Teardown Container"
|
|
Endif
|
|
|
|
End
|
|
|
|
Public Sub SetupEach()
|
|
|
|
If Me.Debug Then
|
|
Print "GuTestExample2::Setup Each"
|
|
Endif
|
|
|
|
End
|
|
|
|
Public Sub TeardownEach()
|
|
|
|
If Me.Debug Then
|
|
Print "GuTestExample2::Teardown Each"
|
|
Endif
|
|
|
|
End
|
|
|
|
Public Sub TestFirstTest()
|
|
|
|
If Me.Debug Then
|
|
Print "GuTestExample2::Test First Test"
|
|
Endif
|
|
Me.Result.AssertEmpty("", "Empty")
|
|
|
|
End
|
|
|
|
Public Sub TestThirdTest()
|
|
|
|
If Me.Debug Then
|
|
Print "GuTestExample2::Test Third Test"
|
|
Endif
|
|
Me.Result.AssertEqualsLong(200, 200)
|
|
|
|
End
|
|
|
|
Public Sub TestSecondTest()
|
|
|
|
If Me.Debug Then
|
|
Print "GuTestExample2::Test Second Test"
|
|
Endif
|
|
Me.Result.AddTrace("GuTestExample2::Test Second Test Intentional Tracemessage")
|
|
|
|
End
|