gambas-source-code/main/lib/test/gb.test/.src/TestMyself/TElse.test

' Gambas test file

Public Sub NoMessage()

    'There is no message
    Test.Plan(1)
    Assert.Ok(True)

End

Public Sub NoMessageInbetween()

    Test.Plan(4)
    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.Plan(0)
    Test.Note("The next note is Null and that's alright:")
    Test.Note(Null)
    Test.SkipAll("This doesn't actually assert anything")

End