22 lines
317 B
Text
22 lines
317 B
Text
|
' Gambas test file
|
||
|
|
|
||
|
|
' Gambas test module file
|
||
|
|
|
||
|
|
''' Every test in this class crashes.
|
||
|
|
''' But the test system has to report it
|
||
|
|
''' and shall not crash itself
|
||
|
|
|
||
|
|
Public Sub TestErrorTwo()
|
||
|
|
|
||
|
|
Error.Raise("I shot the sheriff.")
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub TestDoACrash()
|
||
|
|
|
||
|
|
Dim a As Long
|
||
|
|
|
||
|
|
'This is a crash
|
||
|
|
a = 3 / 0
|
||
|
|
|
||
|
|
End
|