232f180695
* tests/arrayidx.prg
* tests/brwpos.prg
* tests/clasinit.prg
* tests/clsicast.prg
* tests/clsscast.prg
* tests/clsscope.prg
* tests/codebl.prg
* tests/codebloc.prg
* tests/cpinfo.prg
* tests/db_brows.prg
* tests/destruct.prg
* tests/dynobj.prg
* tests/flink.prg
* tests/fortest.prg
* tests/fsplit.prg
* tests/inherit.prg
* tests/keywords.prg
* tests/multiarg.prg
* tests/newrdd.prg
* tests/onidle.prg
* tests/overload.prg
* tests/rto_get.prg
* tests/setkeys.prg
* tests/speedtst.prg
* tests/stripem.prg
* tests/tb1.prg
* tests/testbrw.prg
* tests/testdbf.prg
* tests/testhtml.prg
* tests/testwarn.prg
* tests/tstblock.prg
* tests/tstmacro.prg
* tests/wvtext.prg
* more cleanups
32 lines
554 B
Plaintext
32 lines
554 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
//
|
|
// Array Index tests
|
|
//
|
|
// Written by Eddie Runia <eddie@runia.com>
|
|
// www - http://harbour-project.org
|
|
//
|
|
// Placed in the public domain
|
|
//
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL aList := { 1, 2, 3, 4, 5, 6 }
|
|
|
|
QOut( aList[ 1 ] += 5 )
|
|
QOut( aList[ 1 ] )
|
|
QOut( aList[ 2 ] -= 5 )
|
|
QOut( aList[ 2 ] )
|
|
QOut( aList[ 3 ] *= 5 )
|
|
QOut( aList[ 3 ] )
|
|
QOut( aList[ 4 ] /= 5 )
|
|
QOut( aList[ 4 ] )
|
|
QOut( aList[ 5 ] ^= 5 )
|
|
QOut( aList[ 5 ] )
|
|
QOut( aList[ 6 ] %= 5 )
|
|
QOut( aList[ 6 ] )
|
|
|
|
RETURN
|