gambas-source-code/.src/TestSuite/FMain.class

' Gambas class file

Public Sub _new()

    Dim testco As New TestSuite
    Dim singletest As TestCase

End

Public Sub Form_Open()

    Dim f As New TestResult
    Dim blub As Variant
    Dim test As New TestCase

    f.AssertEqualsFloat(1.23, 1, 0, "Test Float equals")
    f.AssertNotEmpty(blub)
    test.Run(f)

    Debug f.Errors.Count
    f.EndTest

End