' Gambas test file

''' This test can be executed to test a summary. Will fail.

'' Will succeed
Public Sub DoSomeAsserts()

  Assert.Pass("Bla 1")
  Assert.Pass("Bla 2")
  Assert.Pass("Bla 3")

End

'' Will succeed
Public Sub DoSkip()

  Assert.Skip("Report that a test is skipped.")

End

'' Will succeed
Public Sub DoTodo()

  Assert.Todo("Because not ok yet.")
  Assert.Ok(False, "Must be ok.")

  Assert.Todo("This Todo seems not to be removed yet.")
  Assert.Ok(True, "Must be ok.")

End

'' Will fail
Public Sub DoOneFailure()

  Assert.Ok(False, "Intentional failure")

End