' 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