23 lines
360 B
Text
23 lines
360 B
Text
' 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
|