gambas-source-code/comp/src/gb.test/.src/TestMyself/TestElse.test

' Gambas test file

' Signal, that this is a selftest
Public Const ThisIsAnUnitTestSelfTest As Boolean = True
Public Plan As Integer = 5

' A Test with no message, should display then method name as message

Public Sub TestNoMessage()

    'There is no message whicht
    Assert.True(True)

End

Public Sub TestNoMessageInbetween()

    Assert.True(True, "TestNoMessageInbetween Assert 1 description defined")
    Assert.True(True)
    Assert.True(True, "Assert 3 description defined")
    Assert.True(True)

End

Public Sub TestNote()

    Assert.Note("This\nis\na\nnote")

End