53 lines
1.1 KiB
Text
53 lines
1.1 KiB
Text
' Gambas test file
|
|
|
|
'Plan is one more because Test in _TeardownEach is counted twice!
|
|
|
|
Private $SetupIsDone As Boolean
|
|
Private $EachSetupIsDone As Boolean
|
|
|
|
Public Sub _Setup()
|
|
|
|
$SetupIsDone = True
|
|
Test.Note("_Setup TestModule")
|
|
|
|
End
|
|
|
|
Public Sub _Teardown()
|
|
|
|
If Not $SetupIsDone Then
|
|
' will bail out if Test_Setup failed
|
|
Error.Raise("Test_Setup failed: _Setup was not executed correctly.")
|
|
Endif
|
|
Test.Note("Teardown TestModule")
|
|
|
|
End
|
|
|
|
Public Sub _SetupEach()
|
|
|
|
Assert.NotOk($EachSetupIsDone, "Check if each was not setup.")
|
|
$EachSetupIsDone = True
|
|
Test.Note("_Setup Each")
|
|
|
|
End
|
|
|
|
Public Sub _TeardownEach()
|
|
|
|
Assert.Ok($EachSetupIsDone, "Each setup done")
|
|
Test.Note("Teardown Each")
|
|
$EachSetupIsDone = False
|
|
|
|
End
|
|
|
|
Public Sub TestFirst()
|
|
|
|
Assert.Ok($SetupIsDone, "Check if setup was successful.")
|
|
Assert.Ok($EachSetupIsDone, "Check if setup each was successful.")
|
|
Assert.StringEquals("ja", "ja", "Fake test")
|
|
|
|
End
|
|
|
|
Public Sub NameOfMethodDoesNotStartWithTest()
|
|
|
|
Assert.StringEquals("no", "no", "Fake test")
|
|
|
|
End
|