a6fbc56731
* contrib/hbformat/hbfmtcls.prg
+ DispOutAt
* contrib/hbnetio/utils/hbnetioq/netiosrq.prg
* contrib/gtwvg/wvgclass.prg
* contrib/gtwvg/wvgdlg.prg
* contrib/gtwvg/wvgpaint.prg
* contrib/gtwvg/wvgtoolb.prg
* contrib/gtwvg/tests/wvgtbrowser.prg
* contrib/gtwvg/tests/demoxbp.prg
* contrib/gtwvg/tests/wvgxbp.prg
* contrib/gtwvg/tests/wvgactivex.prg
* contrib/gtwvg/wvgwnd.prg
* contrib/gtwvg/wvgdatar.prg
* contrib/gtwvg/wvgsysw.prg
* contrib/gtwvg/wvgmenub.prg
* contrib/gtwvg/wvgphdlr.prg
* contrib/gtwvg/wvgbitmp.prg
* contrib/gtwvg/wvgstatc.prg
* contrib/xhb/decode.prg
* contrib/xhb/ttable.prg
* contrib/hbide/ideconsole.prg
* tests/db_brows.prg
* tests/inkeytst.prg
* tests/ifinline.prg
* tests/inifiles.prg
* tests/test_all.prg
* tests/fsplit.prg
* '<>' -> '!=' or '!( == )'
caught a few _SET_EXACT dependend code too.
27 lines
353 B
Plaintext
27 lines
353 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
|