' 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