22 lines
310 B
Text
22 lines
310 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 ErrorTwo()
|
|
|
|
Error.Raise("I shot the sheriff.")
|
|
|
|
End
|
|
|
|
Public Sub DoACrash()
|
|
|
|
Dim a As Long
|
|
|
|
'This is a crash
|
|
a = 3 / 0
|
|
|
|
End
|