61 lines
1.2 KiB
Text
61 lines
1.2 KiB
Text
' Gambas test file
|
|
|
|
''' Every test in this class failes, but is reverted to be reported as good
|
|
|
|
Public Sub StringFailure()
|
|
|
|
Assert.IntendedFailure()
|
|
Assert.StringEquals("Lisa", "Paul", "Intentional String failure. Ok if not ok.")
|
|
|
|
End
|
|
|
|
Public Sub LongFailure()
|
|
|
|
Assert.IntendedFailure()
|
|
Assert.Equals(2, 3, "Intentional Long failure. Ok if not ok.")
|
|
|
|
End
|
|
|
|
Public Sub LongTypeMismatchFailure()
|
|
|
|
Dim s As String = "3.0"
|
|
|
|
Assert.IntendedFailure()
|
|
Assert.Equals(s, 3, "Intentional Long type mismatch failure. Ok if not ok.")
|
|
|
|
End
|
|
|
|
Public Sub EqualsFailure()
|
|
|
|
Dim oOne, oTwo As Object
|
|
|
|
Test.Note("Equals failures")
|
|
Assert.IntendedFailure()
|
|
Assert.Equals(2, 3)
|
|
|
|
Assert.IntendedFailure()
|
|
Assert.Equals("3", 2.0)
|
|
|
|
Assert.IntendedFailure()
|
|
Assert.Equals("2", 2.1)
|
|
|
|
oOne = New Test
|
|
oTwo = New Test
|
|
Assert.IntendedFailure()
|
|
Assert.Equals(oOne, oTwo)
|
|
|
|
End
|
|
|
|
Public Sub Error()
|
|
|
|
Dim a As Long
|
|
|
|
Try a = 3 / 0
|
|
Assert.IntendedFailure()
|
|
Assert.ErrorCode(5, "Wanted error 5. Ok if not ok.")
|
|
|
|
' No Error, AssertError has to report a failure
|
|
Assert.IntendedFailure()
|
|
Assert.Error("No Error but error expected. Ok if not ok.")
|
|
|
|
End
|