2020-04-09 08:13:09 +02:00
|
|
|
' 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
|
|
|
|
|
|
2020-05-26 20:45:18 +02:00
|
|
|
Public Sub ErrorTwo()
|
2020-04-09 08:13:09 +02:00
|
|
|
|
|
|
|
|
Error.Raise("I shot the sheriff.")
|
|
|
|
|
|
|
|
|
|
End
|
|
|
|
|
|
2020-05-26 20:45:18 +02:00
|
|
|
Public Sub DoACrash()
|
2020-04-09 08:13:09 +02:00
|
|
|
|
|
|
|
|
Dim a As Long
|
|
|
|
|
|
|
|
|
|
'This is a crash
|
|
|
|
|
a = 3 / 0
|
|
|
|
|
|
2020-05-26 20:45:18 +02:00
|
|
|
End
|
