16 lines
188 B
Plaintext
16 lines
188 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
// Testing Harbour Error system
|
|
|
|
function Main()
|
|
|
|
local n
|
|
|
|
QOut( "We are running and now an error will raise" )
|
|
|
|
n++ // an error should raise here
|
|
|
|
return nil
|