15 lines
275 B
Text
15 lines
275 B
Text
|
#APPTYPE CONSOLE
|
||
|
|
|
||
|
|
DECLARE asserter
|
||
|
|
|
||
|
|
FUNCTION Assert(expression)
|
||
|
|
DIM cmd AS STRING = "DIM asserter AS INTEGER = (" & expression & ")"
|
||
|
|
EXECLINE(cmd, 1)
|
||
|
|
IF asserter = 0 THEN PRINT "Assertion: ", expression, " failed"
|
||
|
|
END FUNCTION
|
||
|
|
|
||
|
|
Assert("1<2")
|
||
|
|
Assert("1>2")
|
||
|
|
|
||
|
|
PAUSE
|