62 lines
924 B
Text
62 lines
924 B
Text
' Gambas class file
|
|
|
|
Inherits UnitTest
|
|
|
|
Public Const ThisIsAnUnitTestSelfTest As Boolean = True
|
|
|
|
Public Sub SetupContainer()
|
|
|
|
' Leads to bail out
|
|
' Dim f As Float
|
|
' f = 2 / 0
|
|
Print "# Setup Container"
|
|
|
|
End
|
|
|
|
Public Sub TeardownContainer()
|
|
|
|
' Leads to bail out
|
|
' Dim f As Float
|
|
' f = 2 / 0
|
|
Print "# Teardown Container"
|
|
|
|
End
|
|
|
|
Public Sub SetupEach()
|
|
|
|
' Leads to bail out
|
|
' Dim f As Float
|
|
' f = 2 / 0
|
|
Print "# Setup Each"
|
|
|
|
End
|
|
|
|
Public Sub TeardownEach()
|
|
|
|
' Leads to bail out
|
|
' Dim f As Float
|
|
' f = 2 / 0
|
|
Print "# Teardown Each"
|
|
|
|
End
|
|
|
|
Public Sub TestFirstTest()
|
|
|
|
Assert.Null("", "Empty")
|
|
|
|
End
|
|
|
|
Public Sub TestSecondTest()
|
|
|
|
'Debug "Debug";; "TestExample2::Test Second Test"
|
|
|
|
Assert.EqualsLong(200, 200)
|
|
|
|
End
|
|
|
|
Public Sub TestThirdTest()
|
|
|
|
'Debug "Debug";; "TestExample2::Test Second Test"
|
|
Assert.True(True, "Intentionally skipped", Null, True)
|
|
|
|
End
|