f4d02db8f1
* tests/ac_test.prg
* tests/ac_test2.prg
* tests/begin.prg
* tests/box.prg
* tests/byref.prg
* tests/codebl.prg
* tests/codebloc.prg
* tests/db_brows.prg
* tests/ddate.prg
* tests/ifinline.prg
* tests/memvar.prg
* tests/menutest.prg
* tests/readhrb.prg
* tests/speed.prg
* tests/speedtst.prg
* tests/stripem.prg
* tests/switch.prg
* tests/testbrw.prg
* tests/testcdx.prg
* tests/testdecl.prg
* tests/testhrb.prg
* tests/testpre.prg
* tests/testwarn.prg
* tests/tstalias.prg
* tests/tstmacro.prg
* tests/varparam.prg
* more cleanups. (assignment operator and string quote usage)
27 lines
354 B
Plaintext
27 lines
354 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/* Testing Harbour If inline */
|
|
|
|
PROCEDURE Main()
|
|
LOCAL n := 1
|
|
|
|
QOut( "Testing Harbour If inline" )
|
|
|
|
if( n == 1, QOut( 1 ), QOut( 2 ) )
|
|
|
|
iif( n != NIL, QOut( "not NIL" ), )
|
|
|
|
QOut( "Now changing n to 2" )
|
|
|
|
n := 2
|
|
|
|
if( n == 1, QOut( 1 ), QOut( 2 ) )
|
|
|
|
iif( n != NIL, QOut( "not NIL" ), )
|
|
|
|
QOut( "ok!" )
|
|
|
|
RETURN
|