007f42f3b1
- contrib/hbmysql/utils
- contrib/hbmysql/utils/dbf2mysq.prg
- contrib/hbmysql/utils/hbmk.hbm
+ contrib/hbmysql/tests/dbf2mysq.prg
* moved to tests (in sync with hbpgsql)
* src/rtl/hbi18n2.prg
! fixed to use HB_ASCAN() instead of ASCAN() when 5th
extension parameter is used.
* src/debug/debugger.prg
* contrib/hbfbird/tfirebrd.prg
* contrib/hbnf/clrsel.prg
* contrib/hbmysql/tmysql.prg
* contrib/hbmysql/tests/dbf2mysq.prg
* contrib/hbtip/ftpcli.prg
* extras/hbdoc/hbdoc.prg
* extras/hbdoc/tmplates.prg
! use HB_ASCAN( x, y,,, .T. ) to avoid relying on _SET_EXACT
% use ASCAN() instead of HB_ASCAN() if Harbour extension are not used (hbdoc)
* contrib/gtwvg/tests/modal.prg
! use HB_ASCAN( x, y,,, .T. ) to avoid relying on _SET_EXACT
! use HB_KEYCHAR() instead of CHR() on key codes
* contrib/xhb/tedit.prg
* contrib/xhb/thtm.prg
* contrib/xhb/xhbole.prg
* tests/fortest.prg
* tests/initexit.prg
* tests/statinit.prg
* tests/vidtest.prg
* tests/rddtest/rddtst.prg
* extras/hbdoc/hbdoc.prg
* renamed STATIC vars to start with 's_'
* renamed PUBLIC/PRIVATE vars to start with 'p_'
* renamed STATIC "const" vars to start with 'sc_'
* contrib/hbsqlit3/hdbcsqlt.prg
* contrib/xhb/tedit.prg
* hbformatted
* contrib/sddmy/tests/test1.prg
* contrib/xhb/tcgi.prg
* contrib/xhb/thtm.prg
* tests/brwpos.prg
* formatting
68 lines
1.0 KiB
Plaintext
68 lines
1.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Testing Harbour For Next loops for Clipper compatibility
|
|
|
|
// ; Donated to the public domain by
|
|
// Viktor Szakats (harbour syenar.net)
|
|
|
|
// TODO: add test for "step 0"
|
|
|
|
STATIC s_nFrom
|
|
STATIC s_nTo
|
|
STATIC s_nStep
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL array
|
|
LOCAL tmp, n
|
|
|
|
? "Testing Harbour For Next loops."
|
|
|
|
array := { ;
|
|
{ 1, 10, 1 }, ;
|
|
{ 10, 1, -1 }, ;
|
|
{ 1, 10, -1 }, ;
|
|
{ 10, 1, 1 }, ;
|
|
{ 1, 10, 4 }, ;
|
|
{ 10, 1, -4 }, ;
|
|
{ 1, 10, -4 }, ;
|
|
{ 10, 1, 4 } }
|
|
|
|
FOR tmp := 1 TO Len( array )
|
|
|
|
s_nFrom := array[ tmp ][ 1 ]
|
|
s_nTo := array[ tmp ][ 2 ]
|
|
s_nStep := array[ tmp ][ 3 ]
|
|
|
|
? " From:", s_nFrom,;
|
|
" To:", s_nTo,;
|
|
" Step:", s_nStep
|
|
|
|
FOR n := Eval( {|| ValFrom() } ) TO Eval( {|| ValTo() } ) STEP Eval( {|| ValStep() } )
|
|
? "Exec", n
|
|
NEXT
|
|
|
|
NEXT
|
|
|
|
RETURN
|
|
|
|
STATIC FUNCTION ValFrom()
|
|
|
|
? "From"
|
|
|
|
RETURN s_nFrom
|
|
|
|
STATIC FUNCTION ValTo()
|
|
|
|
? "To"
|
|
|
|
RETURN s_nTo
|
|
|
|
STATIC FUNCTION ValStep()
|
|
|
|
? "Step"
|
|
|
|
RETURN s_nStep
|