27 lines
457 B
Text
27 lines
457 B
Text
' Gambas test file
|
|
|
|
|
|
' A Test with no message, should display then method name as message
|
|
|
|
Public Sub NoMessage()
|
|
|
|
'There is no message whicht
|
|
Assert.Ok(True)
|
|
|
|
End
|
|
|
|
Public Sub NoMessageInbetween()
|
|
|
|
Assert.Ok(True, "TestNoMessageInbetween Assert 1 description defined")
|
|
Assert.Ok(True)
|
|
Assert.Ok(True, "Assert 3 description defined")
|
|
Assert.Ok(True)
|
|
|
|
End
|
|
|
|
Public Sub Note()
|
|
|
|
Test.Note("This\nis\na\nnote")
|
|
Test.SkipAll()
|
|
|
|
End
|