' 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