5a2a287752
* *
* partial sync with the 3.4 fork codebase. These are the things
synces for the most part:
- copyright headers
- grammar/typos in comments and some readmes
- comment/whitespace/decorations
- variable scoping in C files
- DO CASE/SWITCH and some other alternate syntax usage
- minimal amount of human readable text in strings
- minor code updates
- HB_TRACE() void * casts for pointers and few other changes to
avoid C compiler warnings
- various other, minor code cleanups
- only Harbour/C code/headers were touched in src, utils, contrib,
include. No 3rd party code, no make files, and with just a few
exceptions, no 'tests' code was touched.
- certain components were not touched were 3.4 diverged too much
already, like f.e. hbmk2, hbssl, hbcurl, hbexpat
- the goal was that no actual program logic should be altered by
these changes. Except some possible minor exceptions, any such
change is probably a bug in this patch.
It's a massive patch, if you find anything broken after it, please
open an Issue with the details. Build test was done on macOS.
The goal is make it easier to see what actual code/logic was changed
in 3.4 compared to 3.2 and to make patches easier to apply in both
ways.
641 lines
37 KiB
Plaintext
641 lines
37 KiB
Plaintext
/*
|
|
* Regression tests for the runtime library (HVM)
|
|
*
|
|
* Copyright 1999-2001 Viktor Szakats (vszakats.net/harbour)
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; see the file LICENSE.txt. If not, write to
|
|
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
#include "rt_main.ch"
|
|
|
|
/* Don't change the position of this #include. */
|
|
#include "rt_vars.ch"
|
|
|
|
PROCEDURE Main_HVMA()
|
|
|
|
LOCAL nA, nB, nC
|
|
|
|
// NOTE: These are compiler tests.
|
|
// The expressions have to be written with no separators!
|
|
HBTEST mnIntP==10.OR.mnIntP==0 IS .T.
|
|
HBTEST mnIntP==10.AND.mnLongP==0 IS .F.
|
|
|
|
#ifdef __HARBOUR__
|
|
/* disable Harbour extended optimizations to test correct RTE message */
|
|
#pragma -ko-
|
|
#endif
|
|
HBTEST NIL + 1 IS "E 1 BASE 1081 Argument error (+) OS:0 #:0 A:2:U:NIL;N:1 F:S"
|
|
HBTEST NIL - 1 IS "E 1 BASE 1082 Argument error (-) OS:0 #:0 A:2:U:NIL;N:1 F:S"
|
|
|
|
#ifdef __HARBOUR__
|
|
#pragma -ko+
|
|
#endif
|
|
|
|
HBTEST scString + NIL IS "E 1 BASE 1081 Argument error (+) OS:0 #:0 A:2:C:HELLO;U:NIL F:S"
|
|
HBTEST scString - NIL IS "E 1 BASE 1082 Argument error (-) OS:0 #:0 A:2:C:HELLO;U:NIL F:S"
|
|
|
|
#ifdef __HARBOUR__
|
|
/* disable Harbour extended optimizations to test correct RTE message */
|
|
#pragma -ko-
|
|
#endif
|
|
HBTEST 1 + NIL IS "E 1 BASE 1081 Argument error (+) OS:0 #:0 A:2:N:1;U:NIL F:S"
|
|
#ifdef __HARBOUR__
|
|
#pragma -ko+
|
|
#endif
|
|
HBTEST 1 - NIL IS "E 1 BASE 1082 Argument error (-) OS:0 #:0 A:2:N:1;U:NIL F:S"
|
|
|
|
HBTEST "A" - "B" IS "AB"
|
|
HBTEST "A " - "B" IS "AB "
|
|
HBTEST "A " - "B " IS "AB "
|
|
HBTEST "A " - " B" IS "A B "
|
|
HBTEST " " - "B " IS "B "
|
|
|
|
HBTEST 1 / 0 IS "E 5 BASE 1340 Zero divisor (/) OS:0 #:0 A:2:N:1;N:0 F:S"
|
|
HBTEST 1 / NIL IS "E 1 BASE 1084 Argument error (/) OS:0 #:0 A:2:N:1;U:NIL F:S"
|
|
HBTEST 1 * NIL IS "E 1 BASE 1083 Argument error (*) OS:0 #:0 A:2:N:1;U:NIL F:S"
|
|
HBTEST 1 ** NIL IS "E 1 BASE 1088 Argument error (^) OS:0 #:0 A:2:N:1;U:NIL F:S"
|
|
HBTEST 1 ^ NIL IS "E 1 BASE 1088 Argument error (^) OS:0 #:0 A:2:N:1;U:NIL F:S"
|
|
HBTEST 1 % 0 IS "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:1;N:0 F:S"
|
|
HBTEST 1 % NIL IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:N:1;U:NIL F:S"
|
|
|
|
HBTEST Str( 1 / 0 ) IS "E 5 BASE 1340 Zero divisor (/) OS:0 #:0 A:2:N:1;N:0 F:S"
|
|
HBTEST Str( 2 / 4 ) IS " 0.50"
|
|
HBTEST Str( 4 / 2 ) IS " 2"
|
|
HBTEST Str( 4 / 2.0 ) IS " 2.00"
|
|
HBTEST Str( 1 * 0 ) IS " 0"
|
|
HBTEST Str( 2 * 4 ) IS " 8"
|
|
HBTEST Str( 4 * 2.0 ) IS " 8.0"
|
|
HBTEST Str( 2 * 0.5 ) IS " 1.0"
|
|
HBTEST Str( 1 + 0 ) IS " 1"
|
|
HBTEST Str( 2 + 4 ) IS " 6"
|
|
HBTEST Str( 4 + 2.0 ) IS " 6.0"
|
|
HBTEST Str( 2 + 0.5 ) IS " 2.5"
|
|
HBTEST Str( 1 - 0 ) IS " 1"
|
|
HBTEST Str( 2 - 4 ) IS " -2"
|
|
HBTEST Str( 4 - 2.0 ) IS " 2.0"
|
|
HBTEST Str( 2 - 0.5 ) IS " 1.5"
|
|
HBTEST Str( 1 % 0 ) IS "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:1;N:0 F:S"
|
|
HBTEST Str( 2 % 4 ) IS " 2"
|
|
HBTEST Str( 4 % 2 ) IS " 0"
|
|
HBTEST Str( 4 % 2.0 ) IS " 0.00"
|
|
HBTEST Str( 2 % 4.0 ) IS " 2.00"
|
|
|
|
HBTEST Str( 3 % 3 ) IS " 0"
|
|
HBTEST Str( 3 % 2 ) IS " 1"
|
|
HBTEST Str( 3 % 1 ) IS " 0"
|
|
HBTEST Str( 3 % 0 ) IS "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:3;N:0 F:S"
|
|
HBTEST Str( 3 % -1 ) IS " 0"
|
|
HBTEST Str( 3 % -2 ) IS " 1"
|
|
HBTEST Str( 3 % -3 ) IS " 0"
|
|
HBTEST Str( -3 % 3 ) IS " 0"
|
|
HBTEST Str( -3 % 2 ) IS " -1"
|
|
HBTEST Str( -3 % 1 ) IS " 0"
|
|
HBTEST Str( -3 % 0 ) IS "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:-3;N:0 F:S"
|
|
HBTEST Str( -3 % -1 ) IS " 0"
|
|
HBTEST Str( -3 % -2 ) IS " -1"
|
|
HBTEST Str( -3 % -3 ) IS " 0"
|
|
HBTEST Str( 3 % 3 ) IS " 0"
|
|
HBTEST Str( 2 % 3 ) IS " 2"
|
|
HBTEST Str( 1 % 3 ) IS " 1"
|
|
HBTEST Str( 0 % 3 ) IS " 0"
|
|
HBTEST Str( -1 % 3 ) IS " -1"
|
|
HBTEST Str( -2 % 3 ) IS " -2"
|
|
HBTEST Str( -3 % 3 ) IS " 0"
|
|
HBTEST Str( 3 % -3 ) IS " 0"
|
|
HBTEST Str( 2 % -3 ) IS " 2"
|
|
HBTEST Str( 1 % -3 ) IS " 1"
|
|
HBTEST Str( 0 % -3 ) IS " 0"
|
|
HBTEST Str( -1 % -3 ) IS " -1"
|
|
HBTEST Str( -2 % -3 ) IS " -2"
|
|
HBTEST Str( -3 % -3 ) IS " 0"
|
|
|
|
/* The order of these tests is relevant, don't change it */
|
|
|
|
nA := 1
|
|
nB := 2
|
|
nC := 3
|
|
|
|
HBTEST nA IS 1
|
|
HBTEST nB IS 2
|
|
HBTEST nC IS 3
|
|
|
|
HBTEST nA + nB IS 3
|
|
HBTEST nB - nA IS 1
|
|
HBTEST nB * nC IS 6
|
|
HBTEST nB * nC / 2 IS 3
|
|
HBTEST nA += nB IS 3
|
|
HBTEST nA IS 3
|
|
HBTEST nA -= nB IS 1
|
|
HBTEST nA IS 1
|
|
HBTEST nA < nB IS .T.
|
|
HBTEST nA > nB IS .F.
|
|
HBTEST nA + nB <= nC IS .T.
|
|
HBTEST nA + nB >= nC IS .T.
|
|
HBTEST nA *= nB IS 2
|
|
HBTEST nA /= nB IS 1
|
|
HBTEST nA IS 1
|
|
HBTEST nB ** 3 IS 8
|
|
HBTEST nB ^ 3 IS 8
|
|
HBTEST 8 % 3 IS 2
|
|
HBTEST nA++ IS 1
|
|
HBTEST nA IS 2
|
|
HBTEST ++nA IS 3
|
|
HBTEST nA IS 3
|
|
HBTEST nA-- IS 3
|
|
HBTEST nA IS 2
|
|
HBTEST --nA IS 1
|
|
HBTEST nA IS 1
|
|
|
|
/* These will generate warnings and errors with Harbour */
|
|
#ifndef __HARBOUR__
|
|
HBTEST { 1, 2 }[ ( 2, 1 ) ]++ IS 1
|
|
HBTEST ++{ 1, 2 }[ ( 2, 1 ) ] IS 2
|
|
HBTEST { 1, 2 }[ 1 ]++ IS 1
|
|
HBTEST ++{ 1, 2 }[ 1 ] IS 2
|
|
#ifndef __XPP__
|
|
HBTEST ({ 1, 2 }[ 1 ])++ IS 1
|
|
HBTEST ++({ 1, 2 }[ 1 ]) IS 2
|
|
#endif
|
|
#endif
|
|
|
|
/* Operator precedence */
|
|
|
|
HBTEST 1 + 2 * 3 / 4 - 2 ** 2 ^ 3 IS -61.50
|
|
HBTEST 1 + 2 * 3 / 4 - 2 ** 2 ^ 3 == 2 IS .F.
|
|
|
|
/* */
|
|
|
|
HBTEST -Month( sdDate ) IS -3
|
|
HBTEST Str( -( Month( sdDate ) ) ) IS " -3"
|
|
HBTEST Str( -( Val( "10" ) ) ) IS " -10"
|
|
HBTEST Str( -( Val( "100000" ) ) ) IS " -100000"
|
|
HBTEST Str( -( Val( "20.876" ) ) ) IS " -20.876"
|
|
HBTEST -( 0 ) IS 0
|
|
HBTEST -( 10 ) IS -10
|
|
HBTEST -( 10.505 ) IS -10.505
|
|
HBTEST -( 100000 ) IS -100000
|
|
HBTEST -( -10 ) IS 10
|
|
HBTEST -( "1" ) IS "E 1 BASE 1080 Argument error (-) OS:0 #:0 A:1:C:1 F:S"
|
|
|
|
HBTEST "AA" $ 1 IS "E 1 BASE 1109 Argument error ($) OS:0 #:0 A:2:C:AA;N:1 F:S"
|
|
HBTEST scString $ 1 IS "E 1 BASE 1109 Argument error ($) OS:0 #:0 A:2:C:HELLO;N:1 F:S"
|
|
HBTEST 1 $ "AA" IS "E 1 BASE 1109 Argument error ($) OS:0 #:0 A:2:N:1;C:AA F:S"
|
|
|
|
HBTEST ! scStringE $ "XE" IS .T.
|
|
HBTEST ! ( scStringE $ "XE" ) IS .T.
|
|
HBTEST scStringE $ "XE" IS .F.
|
|
HBTEST ! "X" $ "XE" IS .F.
|
|
HBTEST ! ( "X" $ "XE" ) IS .F.
|
|
HBTEST "X" $ "XE" IS .T.
|
|
HBTEST "X" $ Chr( 0 ) + "X" IS .T.
|
|
HBTEST ( "X" ) $ Chr( 0 ) + "X" IS .T.
|
|
HBTEST scString $ Chr( 0 ) + scString IS .T.
|
|
|
|
HBTEST scStringE $ scStringE IS .F.
|
|
HBTEST scStringE $ "bcde" IS .F.
|
|
/* disable Harbour extensions in compiler to replicate Clipper bugs */
|
|
#ifdef __HARBOUR__
|
|
#pragma -kh-
|
|
#endif
|
|
HBTEST "" $ "" IS .T. /* Bug in CA-Cl*pper compiler optimizer. It should return .F. */
|
|
HBTEST "" $ "bcde" IS .T. /* Bug in CA-Cl*pper compiler optimizer. It should return .F. */
|
|
#ifdef __HARBOUR__
|
|
/* enable Harbour extensions and test correct results results */
|
|
#pragma -kh+
|
|
HBTEST "" $ "" IS .F. /* Bug in CA-Cl*pper compiler optimizer. It should return .F. */
|
|
HBTEST "" $ "bcde" IS .F. /* Bug in CA-Cl*pper compiler optimizer. It should return .F. */
|
|
#endif
|
|
HBTEST "d" $ "bcde" IS .T.
|
|
HBTEST "D" $ "BCDE" IS .T.
|
|
HBTEST "a" $ "bcde" IS .F.
|
|
HBTEST "d" $ "BCDE" IS .F.
|
|
HBTEST "D" $ "bcde" IS .F.
|
|
HBTEST "de" $ "bcde" IS .T.
|
|
HBTEST "bd" $ "bcde" IS .F.
|
|
HBTEST "BD" $ "bcde" IS .F.
|
|
|
|
#ifndef __XPP__
|
|
|
|
IF TEST_OPT_Z()
|
|
|
|
/* With the shortcut optimization *ON* */
|
|
|
|
HBTEST "1" .AND. "2" IS "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:C:1 "
|
|
HBTEST 1 .AND. 2 IS "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:N:1 "
|
|
HBTEST NIL .AND. NIL IS "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:U:NIL "
|
|
HBTEST scString .AND. scString IS "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:C:HELLO "
|
|
HBTEST .T. .AND. 1 IS 1
|
|
HBTEST .T. .AND. 1.567 IS 1.567
|
|
HBTEST .T. .AND. scString IS "HELLO"
|
|
HBTEST .T. .AND. hb_SToD( "" ) IS hb_SToD( " " )
|
|
HBTEST .T. .AND. NIL IS NIL
|
|
HBTEST .T. .AND. {} IS "{.[0].}"
|
|
HBTEST .T. .AND. {|| NIL } IS "{||...}"
|
|
HBTEST .F. .AND. 1 IS .F.
|
|
HBTEST .F. .AND. 1.567 IS .F.
|
|
HBTEST .F. .AND. scString IS .F.
|
|
HBTEST .F. .AND. hb_SToD( "" ) IS .F.
|
|
HBTEST .F. .AND. NIL IS .F.
|
|
HBTEST .F. .AND. {} IS .F.
|
|
HBTEST .F. .AND. {|| NIL } IS .F.
|
|
HBTEST "1" .AND. .F. IS .F.
|
|
HBTEST 1 .AND. .F. IS .F.
|
|
HBTEST 1.567 .AND. .F. IS .F.
|
|
HBTEST scString .AND. .F. IS .F.
|
|
|
|
HBTEST "1" .OR. "2" IS "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:C:1 "
|
|
HBTEST 1 .OR. 2 IS "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:N:1 "
|
|
HBTEST .F. .OR. 2 IS 2
|
|
HBTEST .F. .OR. 1.678 IS 1.678
|
|
HBTEST .F. .OR. scString IS "HELLO"
|
|
HBTEST .T. .OR. 2 IS .T.
|
|
HBTEST .T. .OR. 1.678 IS .T.
|
|
HBTEST .T. .OR. scString IS .T.
|
|
HBTEST "1" .OR. .F. IS "1"
|
|
HBTEST 1 .OR. .F. IS 1
|
|
HBTEST 1.0 .OR. .F. IS 1.0
|
|
HBTEST scString .OR. .F. IS "HELLO"
|
|
|
|
ELSE
|
|
|
|
/* With the shortcut optimization *OFF* (/z switch) */
|
|
|
|
HBTEST "1" .AND. "2" IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:C:1;C:2 F:S"
|
|
HBTEST 1 .AND. 2 IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:N:1;N:2 F:S"
|
|
HBTEST NIL .AND. NIL IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:U:NIL;U:NIL F:S"
|
|
HBTEST scString .AND. scString IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:C:HELLO;C:HELLO F:S"
|
|
HBTEST .T. .AND. 1 IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;N:1 F:S"
|
|
HBTEST .T. .AND. 1.567 IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;N:1.567 F:S"
|
|
HBTEST .T. .AND. scString IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;C:HELLO F:S"
|
|
HBTEST .T. .AND. hb_SToD( "" ) IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;D:0d0 F:S"
|
|
HBTEST .T. .AND. NIL IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;U:NIL F:S"
|
|
HBTEST .T. .AND. {} IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;A:{.[0].} F:S"
|
|
HBTEST .T. .AND. {|| NIL } IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;B:{||...} F:S"
|
|
HBTEST .F. .AND. 1 IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;N:1 F:S"
|
|
HBTEST .F. .AND. 1.567 IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;N:1.567 F:S"
|
|
HBTEST .F. .AND. scString IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;C:HELLO F:S"
|
|
HBTEST .F. .AND. hb_SToD( "" ) IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;D:0d0 F:S"
|
|
HBTEST .F. .AND. NIL IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;U:NIL F:S"
|
|
HBTEST .F. .AND. {} IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;A:{.[0].} F:S"
|
|
HBTEST .F. .AND. {|| NIL } IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;B:{||...} F:S"
|
|
HBTEST "1" .AND. .F. IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:C:1;L:.F. F:S"
|
|
HBTEST 1 .AND. .F. IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:N:1;L:.F. F:S"
|
|
HBTEST 1.567 .AND. .F. IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:N:1.567;L:.F. F:S"
|
|
HBTEST scString .AND. .F. IS "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:C:HELLO;L:.F. F:S"
|
|
|
|
HBTEST "1" .OR. "2" IS "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:C:1;C:2 F:S"
|
|
HBTEST 1 .OR. 2 IS "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:N:1;N:2 F:S"
|
|
HBTEST .F. .OR. 2 IS "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:L:.F.;N:2 F:S"
|
|
HBTEST .F. .OR. 1.678 IS "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:L:.F.;N:1.678 F:S"
|
|
HBTEST .F. .OR. scString IS "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:L:.F.;C:HELLO F:S"
|
|
HBTEST .T. .OR. 2 IS "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:L:.T.;N:2 F:S"
|
|
HBTEST .T. .OR. 1.678 IS "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:L:.T.;N:1.678 F:S"
|
|
HBTEST .T. .OR. scString IS "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:L:.T.;C:HELLO F:S"
|
|
HBTEST "1" .OR. .F. IS "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:C:1;L:.F. F:S"
|
|
HBTEST 1 .OR. .F. IS "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:N:1;L:.F. F:S"
|
|
HBTEST 1.0 .OR. .F. IS "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:N:1.0;L:.F. F:S"
|
|
HBTEST scString .OR. .F. IS "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:C:HELLO;L:.F. F:S"
|
|
|
|
ENDIF
|
|
|
|
#endif
|
|
|
|
HBTEST .NOT. .T. IS .F.
|
|
HBTEST .NOT. .F. IS .T.
|
|
HBTEST .NOT. 1 IS "E 1 BASE 1077 Argument error (.NOT.) OS:0 #:0 A:1:N:1 F:S"
|
|
|
|
#ifndef __HARBOUR__ // this error is reported at compile time
|
|
#ifndef __XPP__ // this error is reported at compile time
|
|
HBTEST iif( "A", ":T:", ":F:" ) IS "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:C:A "
|
|
#endif
|
|
#endif
|
|
HBTEST iif( .T., ":T:", ":F:" ) IS ":T:"
|
|
HBTEST iif( .F., ":T:", ":F:" ) IS ":F:"
|
|
|
|
HBTEST scString++ IS "E 1 BASE 1086 Argument error (++) OS:0 #:0 A:1:C:HELLO F:S"
|
|
HBTEST scString-- IS "E 1 BASE 1087 Argument error (--) OS:0 #:0 A:1:C:HELLO F:S"
|
|
|
|
HBTEST mxNotHere IS "E 14 BASE 1003 Variable does not exist (MXNOTHERE) OS:0 #:1 F:R" /* Bug in CA-Cl*pper, it does not initialize 'TRIES' in error object giving strange results */
|
|
#ifdef __HARBOUR__
|
|
HBTEST __mvGet( "MXUNDECL" ) IS "E 14 BASE 1003 Variable does not exist (MXUNDECL) OS:0 #:1 F:R"
|
|
#endif
|
|
mxNotHere := "MXUNDECL"
|
|
HBTEST &mxNotHere. IS "E 14 BASE 1003 Variable does not exist (MXUNDECL) OS:0 #:1 F:R"
|
|
|
|
#ifndef __HARBOUR__
|
|
// this error is reported at compile time
|
|
HBTEST saArray[ 0 ] IS "E 2 BASE 1132 Bound error (array access) OS:0 #:0 "
|
|
HBTEST saArray[ 0 ] := 1 IS "E 2 BASE 1133 Bound error (array assign) OS:0 #:0 "
|
|
#endif
|
|
HBTEST saArray[ 1000 ] IS "E 2 BASE 1132 Bound error (array access) OS:0 #:0 ", "E 2 BASE 1132 Bound error (array access) OS:0 #:0 A:2:A:{.[1].};N:1000 "
|
|
HBTEST saArray[ 1000 ] := 1 IS "E 2 BASE 1133 Bound error (array assign) OS:0 #:0 ", "E 2 BASE 1133 Bound error (array assign) OS:0 #:0 A:1:N:1000 "
|
|
#ifndef __HARBOUR__
|
|
// this error is reported at compile time
|
|
HBTEST saArray[ -1 ] IS "E 2 BASE 1132 Bound error (array access) OS:0 #:0 "
|
|
HBTEST saArray[ -1 ] := 1 IS "E 2 BASE 1133 Bound error (array assign) OS:0 #:0 "
|
|
HBTEST saArray[ "1" ] IS "E 1 BASE 1068 Argument error (array access) OS:0 #:0 A:2:A:{.[1].};C:1 F:S"
|
|
HBTEST saArray[ "1" ] := 1 IS "E 1 BASE 1069 Argument error (array assign) OS:0 #:0 A:3:N:1;A:{.[1].};C:1 "
|
|
#endif
|
|
|
|
/* Alias */
|
|
|
|
HBTEST ("NOTHERE")->NOFIELD IS "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R"
|
|
HBTEST (mcString)->NOFIELD IS "E 15 BASE 1002 Alias does not exist (HELLO) OS:0 #:1 F:R"
|
|
HBTEST ({})->NOFIELD IS "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:A:{.[0].};C:NOFIELD F:S"
|
|
HBTEST ({|| NIL })->NOFIELD IS "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:B:{||...};C:NOFIELD F:S"
|
|
HBTEST (.T.)->NOFIELD IS "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:L:.T.;C:NOFIELD F:S"
|
|
HBTEST (.F.)->NOFIELD IS "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:L:.F.;C:NOFIELD F:S"
|
|
HBTEST (NIL)->NOFIELD IS "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:U:NIL;C:NOFIELD F:S"
|
|
HBTEST (2)->NOFIELD IS "E 14 BASE 1003 Variable does not exist (NOFIELD) OS:0 #:1 F:R"
|
|
HBTEST (2.5)->NOFIELD IS "E 14 BASE 1003 Variable does not exist (NOFIELD) OS:0 #:1 F:R"
|
|
HBTEST (hb_SToD( "" ))->NOFIELD IS "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:D:0d0;C:NOFIELD F:S"
|
|
HBTEST (ErrorNew())->NOFIELD IS "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:O:ERROR Object;C:NOFIELD F:S"
|
|
|
|
#ifndef __XPP__
|
|
#ifdef __HARBOUR__
|
|
/* disable Harbour extended optimizations to test correct RTE message */
|
|
#pragma -ko-
|
|
#endif
|
|
HBTEST ("NOTHERE")->( Eof() ) IS .T.
|
|
#ifdef __HARBOUR__
|
|
#pragma -ko+
|
|
#endif
|
|
HBTEST (mcString)->( Eof() ) IS .T.
|
|
HBTEST ({})->( Eof() ) IS .T.
|
|
HBTEST ({|| NIL })->( Eof() ) IS .T.
|
|
HBTEST (.T.)->( Eof() ) IS .T.
|
|
HBTEST (.F.)->( Eof() ) IS .T.
|
|
HBTEST (NIL)->( Eof() ) IS .T.
|
|
HBTEST (2)->( Eof() ) IS .T.
|
|
HBTEST (2.5)->( Eof() ) IS .T.
|
|
HBTEST (hb_SToD( "" ))->( Eof() ) IS .T.
|
|
HBTEST (ErrorNew())->( Eof() ) IS .T.
|
|
#endif
|
|
|
|
HBTEST NOTHERE->NOFIELD IS "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R"
|
|
HBTEST NOTHERE->( "NOFIELD" ) IS "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R"
|
|
HBTEST NOTHERE->( mcString ) IS "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R"
|
|
HBTEST NOTHERE->( {} ) IS "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R"
|
|
HBTEST NOTHERE->( {|| NIL } ) IS "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R"
|
|
HBTEST NOTHERE->( .T. ) IS "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R"
|
|
HBTEST NOTHERE->( .F. ) IS "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R"
|
|
HBTEST NOTHERE->( NIL ) IS "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R"
|
|
HBTEST NOTHERE->( 1 ) IS "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R"
|
|
HBTEST NOTHERE->( 1.5 ) IS "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R"
|
|
HBTEST NOTHERE->( hb_SToD( "" ) ) IS "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R"
|
|
HBTEST NOTHERE->( ErrorNew() ) IS "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R"
|
|
|
|
HBTEST 200->NOFIELD IS "E 14 BASE 1003 Variable does not exist (NOFIELD) OS:0 #:1 F:R"
|
|
HBTEST 200->( "NOFIELD" ) IS "NOFIELD"
|
|
HBTEST 200->( mcString ) IS "HELLO"
|
|
HBTEST 200->( {} ) IS "{.[0].}"
|
|
HBTEST 200->( {|| NIL } ) IS "{||...}"
|
|
HBTEST 200->( .T. ) IS .T.
|
|
HBTEST 200->( .F. ) IS .F.
|
|
HBTEST 200->( NIL ) IS NIL
|
|
HBTEST 200->( 1 ) IS 1
|
|
HBTEST 200->( 1.5 ) IS 1.5
|
|
HBTEST 200->( hb_SToD( "" ) ) IS hb_SToD( " " )
|
|
HBTEST 200->( ErrorNew() ) IS "ERROR Object"
|
|
|
|
HBTEST soObject:hello IS "E 13 BASE 1004 No exported method (HELLO) OS:0 #:0 A:1:O:ERROR Object F:S"
|
|
HBTEST soObject:hello := 1 IS "E 16 BASE 1005 No exported variable (HELLO) OS:0 #:0 A:2:O:ERROR Object;N:1 F:S"
|
|
|
|
/* Len() */
|
|
|
|
HBTEST Len( NIL ) IS "E 1 BASE 1111 Argument error (LEN) OS:0 #:0 A:1:U:NIL F:S"
|
|
HBTEST Len( 123 ) IS "E 1 BASE 1111 Argument error (LEN) OS:0 #:0 A:1:N:123 F:S"
|
|
HBTEST Len( "" ) IS 0
|
|
HBTEST Len( "123" ) IS 3
|
|
HBTEST Len( "123" + Chr( 0 ) + "456 " ) IS 8
|
|
IF TEST_DBFAvail()
|
|
HBTEST Len( w_TEST->TYPE_C ) IS 15
|
|
HBTEST Len( w_TEST->TYPE_C_E ) IS 15
|
|
HBTEST Len( w_TEST->TYPE_M ) IS 11
|
|
HBTEST Len( w_TEST->TYPE_M_E ) IS 0
|
|
ENDIF
|
|
HBTEST Len( saArray ) IS 1
|
|
#ifdef __HARBOUR__
|
|
HBTEST Len( ErrorNew() ) IS 12
|
|
HBTEST Len( Space( 1000000 ) ) IS 1000000
|
|
#else
|
|
HBTEST Len( ErrorNew() ) IS 7
|
|
HBTEST Len( Space( 40000 ) ) IS 40000
|
|
#endif
|
|
|
|
/* Empty() */
|
|
|
|
#ifdef __HARBOUR__
|
|
HBTEST Empty( @scString ) IS .F. /* Bug in CA-Cl*pper, it will return .T. */
|
|
HBTEST Empty( @scStringE ) IS .T.
|
|
HBTEST Empty( @snIntP ) IS .F. /* Bug in CA-Cl*pper, it will return .T. */
|
|
HBTEST Empty( @snIntZ ) IS .T.
|
|
#endif
|
|
HBTEST Empty( "Hallo" ) IS .F.
|
|
HBTEST Empty( "" ) IS .T.
|
|
HBTEST Empty( " " ) IS .T.
|
|
HBTEST Empty( " " + Chr( 0 ) ) IS .F.
|
|
HBTEST Empty( " " + Chr( 13 ) + Chr( 9 ) ) IS .T.
|
|
HBTEST Empty( " A" ) IS .F.
|
|
HBTEST Empty( " x " ) IS .F.
|
|
HBTEST Empty( " x" + Chr( 0 ) ) IS .F.
|
|
HBTEST Empty( " " + Chr( 13 ) + "x" + Chr( 9 ) ) IS .F.
|
|
IF TEST_DBFAvail()
|
|
HBTEST Empty( w_TEST->TYPE_C ) IS .F.
|
|
HBTEST Empty( w_TEST->TYPE_C_E ) IS .T.
|
|
HBTEST Empty( w_TEST->TYPE_D ) IS .F.
|
|
HBTEST Empty( w_TEST->TYPE_D_E ) IS .T.
|
|
HBTEST Empty( w_TEST->TYPE_M ) IS .F.
|
|
HBTEST Empty( w_TEST->TYPE_M_E ) IS .T.
|
|
HBTEST Empty( w_TEST->TYPE_N_I ) IS .F.
|
|
HBTEST Empty( w_TEST->TYPE_N_IE ) IS .T.
|
|
HBTEST Empty( w_TEST->TYPE_N_D ) IS .F.
|
|
HBTEST Empty( w_TEST->TYPE_N_DE ) IS .T.
|
|
HBTEST Empty( w_TEST->TYPE_L ) IS .F.
|
|
HBTEST Empty( w_TEST->TYPE_L_E ) IS .T.
|
|
ENDIF
|
|
HBTEST Empty( 0 ) IS .T.
|
|
HBTEST Empty( -0 ) IS .T.
|
|
HBTEST Empty( 0.0 ) IS .T.
|
|
HBTEST Empty( 70000-70000 ) IS .T.
|
|
HBTEST Empty( 1.5 * 1.5 - 2.25 ) IS .T.
|
|
HBTEST Empty( 10 ) IS .F.
|
|
HBTEST Empty( 10.0 ) IS .F.
|
|
HBTEST Empty( 70000+70000 ) IS .F.
|
|
HBTEST Empty( 1.5 * 1.5 * 2.25 ) IS .F.
|
|
HBTEST Empty( hb_SToD( "18241010" ) ) IS .F.
|
|
HBTEST Empty( hb_SToD( "18250231" ) ) IS .T.
|
|
HBTEST Empty( hb_SToD( "99999999" ) ) IS .T.
|
|
HBTEST Empty( hb_SToD( " " ) ) IS .T.
|
|
HBTEST Empty( hb_SToD( "" ) ) IS .T.
|
|
HBTEST Empty( .T. ) IS .F.
|
|
HBTEST Empty( .F. ) IS .T.
|
|
HBTEST Empty( NIL ) IS .T.
|
|
HBTEST Empty( { 1 } ) IS .F.
|
|
HBTEST Empty( {} ) IS .T.
|
|
HBTEST Empty( { 0 } ) IS .F.
|
|
HBTEST Empty( {| x | x + x } ) IS .F.
|
|
HBTEST Empty( ErrorNew() ) IS .F.
|
|
|
|
/* Some number width handling tests */
|
|
|
|
HBTEST RTSTR( 50000000 ) IS " 10 50000000"
|
|
HBTEST RTSTR( 99999999 ) IS " 10 99999999"
|
|
HBTEST RTSTR( 100000000 ) IS " 10 100000000"
|
|
HBTEST RTSTR( 500000000 ) IS " 10 500000000"
|
|
HBTEST RTSTR( 999999999 ) IS " 10 999999999"
|
|
HBTEST RTSTR( 999999999.99 ) IS " 13 999999999.99"
|
|
HBTEST RTSTR( 1000000000 ) IS " 11 1000000000"
|
|
HBTEST RTSTR( 1000000000.0 ) IS " 12 1000000000.0"
|
|
HBTEST RTSTR( 1000000000.00 ) IS " 13 1000000000.00"
|
|
HBTEST RTSTR( 1000000000.99 ) IS " 13 1000000000.99"
|
|
HBTEST RTSTR( 4000000000 ) IS " 11 4000000000"
|
|
HBTEST RTSTR( 00005 ) IS " 10 5"
|
|
HBTEST RTSTR( 00005.5 ) IS " 12 5.5"
|
|
HBTEST RTSTR( 5000000000 ) IS " 11 5000000000"
|
|
HBTEST RTSTR( 50000000000 ) IS " 12 50000000000"
|
|
HBTEST RTSTR( 500000000000 ) IS " 13 500000000000"
|
|
HBTEST RTSTR( 500000000000.0 ) IS " 14 500000000000.0"
|
|
HBTEST RTSTR( 5000000000000 ) IS " 14 5000000000000"
|
|
HBTEST RTSTR( 50000000000000 ) IS " 15 50000000000000"
|
|
HBTEST RTSTR( 500000000000000 ) IS " 16 500000000000000"
|
|
HBTEST RTSTR( 00000000000005 ) IS " 10 5"
|
|
HBTEST RTSTR( 00000500000000000000 ) IS " 21 500000000000000", " 16 500000000000000"
|
|
HBTEST RTSTR( 0500000000000000 ) IS " 17 500000000000000" , " 16 500000000000000"
|
|
HBTEST RTSTR( 0500000000000000.5 ) IS " 18 500000000000000.5"
|
|
HBTEST RTSTR( 5000000000000000 ) IS " 17 5000000000000000"
|
|
HBTEST RTSTR( 50000000000000000 ) IS " 18 50000000000000000"
|
|
HBTEST RTSTR( 500000000000000000 ) IS " 19 500000000000000000"
|
|
HBTEST RTSTR( 5000000000000000000 ) IS " 20 5000000000000000000"
|
|
HBTEST RTSTR( 50000000000000000000 ) IS " 21 50000000000000000000"
|
|
HBTEST RTSTR( 500000000000000000000 ) IS " 22 500000000000000000000"
|
|
HBTEST RTSTR( 5000000000000000000000 ) IS " 23 5000000000000000000000"
|
|
HBTEST RTSTR( 50000000000000000000000 ) IS " 24 50000000000000000000000"
|
|
HBTEST RTSTR( 500000000000000000000000 ) IS " 25 500000000000000000000000"
|
|
HBTEST RTSTR( 5000000000000000000000000 ) IS " 26 5000000000000000000000000"
|
|
HBTEST RTSTR( 5000000000000000000000000.0 ) IS " 27 5000000000000000000000000.0"
|
|
HBTEST RTSTR( -50000000 ) IS " 10 -50000000"
|
|
HBTEST RTSTR( -50000000.0 ) IS " 12 -50000000.0"
|
|
HBTEST RTSTR( -500000000 ) IS " 10 -500000000"
|
|
HBTEST RTSTR( -999999999 ) IS " 10 -999999999"
|
|
HBTEST RTSTR( -1000000000 ) IS " 20 -1000000000"
|
|
HBTEST RTSTR( -1000000000.0 ) IS " 22 -1000000000.0"
|
|
HBTEST RTSTR( -4000000000 ) IS " 20 -4000000000"
|
|
HBTEST RTSTR( -5000000000 ) IS " 20 -5000000000"
|
|
HBTEST RTSTR( -50000000000 ) IS " 20 -50000000000"
|
|
HBTEST RTSTR( -500000000000 ) IS " 20 -500000000000"
|
|
HBTEST RTSTR( -500000000000.0 ) IS " 22 -500000000000.0"
|
|
HBTEST RTSTR( -5000000000000 ) IS " 20 -5000000000000"
|
|
HBTEST RTSTR( -50000000000000 ) IS " 20 -50000000000000"
|
|
HBTEST RTSTR( -500000000000000 ) IS " 20 -500000000000000"
|
|
HBTEST RTSTR( -5000000000000000 ) IS " 20 -5000000000000000"
|
|
HBTEST RTSTR( -50000000000000000 ) IS " 20 -50000000000000000"
|
|
HBTEST RTSTR( -500000000000000000 ) IS " 20 -500000000000000000"
|
|
HBTEST RTSTR( -5000000000000000000 ) IS " 20 -5000000000000000000"
|
|
HBTEST RTSTR( -50000000000000000000 ) IS " 20 ********************"
|
|
HBTEST RTSTR( -500000000000000000000 ) IS " 20 ********************"
|
|
HBTEST RTSTR( -5000000000000000000000 ) IS " 20 ********************"
|
|
HBTEST RTSTR( -50000000000000000000000 ) IS " 20 ********************"
|
|
HBTEST RTSTR( -500000000000000000000000 ) IS " 20 ********************"
|
|
HBTEST RTSTR( -5000000000000000000000000 ) IS " 20 ********************"
|
|
|
|
HBTEST ( nA := 50000000 , RTSTR( -nA ) ) IS " 10 -50000000"
|
|
HBTEST ( nA := 50000000.0 , RTSTR( -nA ) ) IS " 12 -50000000.0"
|
|
HBTEST ( nA := 99999999 , RTSTR( -nA ) ) IS " 10 -99999999"
|
|
HBTEST ( nA := 99999999.9 , RTSTR( -nA ) ) IS " 12 -99999999.9"
|
|
HBTEST ( nA := 100000000 , RTSTR( -nA ) ) IS " 10 -100000000"
|
|
HBTEST ( nA := 100000000.0 , RTSTR( -nA ) ) IS " 12 -100000000.0"
|
|
HBTEST ( nA := 500000000 , RTSTR( -nA ) ) IS " 10 -500000000"
|
|
HBTEST ( nA := 999999999 , RTSTR( -nA ) ) IS " 10 -999999999"
|
|
HBTEST ( nA := 999999999.99 , RTSTR( -nA ) ) IS " 23 -999999999.99"
|
|
HBTEST ( nA := 1000000000 , RTSTR( -nA ) ) IS " 20 -1000000000"
|
|
HBTEST ( nA := 1000000000.0 , RTSTR( -nA ) ) IS " 22 -1000000000.0"
|
|
HBTEST ( nA := 1000000000.00 , RTSTR( -nA ) ) IS " 23 -1000000000.00"
|
|
HBTEST ( nA := 1000000000.99 , RTSTR( -nA ) ) IS " 23 -1000000000.99"
|
|
HBTEST ( nA := 4000000000 , RTSTR( -nA ) ) IS " 20 -4000000000"
|
|
HBTEST ( nA := 5000000000 , RTSTR( -nA ) ) IS " 20 -5000000000"
|
|
HBTEST ( nA := 50000000000 , RTSTR( -nA ) ) IS " 20 -50000000000"
|
|
HBTEST ( nA := 500000000000 , RTSTR( -nA ) ) IS " 20 -500000000000"
|
|
HBTEST ( nA := 5000000000000 , RTSTR( -nA ) ) IS " 20 -5000000000000"
|
|
HBTEST ( nA := 50000000000000 , RTSTR( -nA ) ) IS " 20 -50000000000000"
|
|
HBTEST ( nA := 500000000000000 , RTSTR( -nA ) ) IS " 20 -500000000000000"
|
|
HBTEST ( nA := 5000000000000000 , RTSTR( -nA ) ) IS " 20 -5000000000000000"
|
|
HBTEST ( nA := 50000000000000000 , RTSTR( -nA ) ) IS " 20 -50000000000000000"
|
|
HBTEST ( nA := 500000000000000000 , RTSTR( -nA ) ) IS " 20 -500000000000000000"
|
|
HBTEST ( nA := 5000000000000000000 , RTSTR( -nA ) ) IS " 20 -5000000000000000000"
|
|
HBTEST ( nA := 50000000000000000000 , RTSTR( -nA ) ) IS " 20 ********************"
|
|
HBTEST ( nA := 500000000000000000000 , RTSTR( -nA ) ) IS " 20 ********************"
|
|
HBTEST ( nA := 5000000000000000000000 , RTSTR( -nA ) ) IS " 20 ********************"
|
|
HBTEST ( nA := 50000000000000000000000 , RTSTR( -nA ) ) IS " 20 ********************"
|
|
HBTEST ( nA := 500000000000000000000000 , RTSTR( -nA ) ) IS " 20 ********************"
|
|
HBTEST ( nA := 5000000000000000000000000 , RTSTR( -nA ) ) IS " 20 ********************"
|
|
HBTEST ( nA := 5000000000000000000000000.0 , RTSTR( -nA ) ) IS " 22 **********************"
|
|
HBTEST ( nA := -50000000 , RTSTR( -nA ) ) IS " 10 50000000"
|
|
HBTEST ( nA := -50000000.0 , RTSTR( -nA ) ) IS " 12 50000000.0"
|
|
HBTEST ( nA := -500000000 , RTSTR( -nA ) ) IS " 10 500000000"
|
|
HBTEST ( nA := -999999999 , RTSTR( -nA ) ) IS " 10 999999999"
|
|
HBTEST ( nA := -1000000000 , RTSTR( -nA ) ) IS " 10 1000000000"
|
|
HBTEST ( nA := -4000000000 , RTSTR( -nA ) ) IS " 10 4000000000"
|
|
HBTEST ( nA := -5000000000 , RTSTR( -nA ) ) IS " 10 5000000000"
|
|
HBTEST ( nA := -50000000000 , RTSTR( -nA ) ) IS " 20 50000000000"
|
|
HBTEST ( nA := -500000000000 , RTSTR( -nA ) ) IS " 20 500000000000"
|
|
HBTEST ( nA := -5000000000000 , RTSTR( -nA ) ) IS " 20 5000000000000"
|
|
HBTEST ( nA := -50000000000000 , RTSTR( -nA ) ) IS " 20 50000000000000"
|
|
HBTEST ( nA := -500000000000000 , RTSTR( -nA ) ) IS " 20 500000000000000"
|
|
HBTEST ( nA := -5000000000000000 , RTSTR( -nA ) ) IS " 20 5000000000000000"
|
|
HBTEST ( nA := -50000000000000000 , RTSTR( -nA ) ) IS " 20 50000000000000000"
|
|
HBTEST ( nA := -500000000000000000 , RTSTR( -nA ) ) IS " 20 500000000000000000"
|
|
HBTEST ( nA := -5000000000000000000 , RTSTR( -nA ) ) IS " 20 5000000000000000000"
|
|
HBTEST ( nA := -50000000000000000000 , RTSTR( -nA ) ) IS " 20 50000000000000000000"
|
|
HBTEST ( nA := -500000000000000000000 , RTSTR( -nA ) ) IS " 20 ********************"
|
|
HBTEST ( nA := -5000000000000000000000 , RTSTR( -nA ) ) IS " 20 ********************"
|
|
HBTEST ( nA := -50000000000000000000000 , RTSTR( -nA ) ) IS " 20 ********************"
|
|
HBTEST ( nA := -500000000000000000000000 , RTSTR( -nA ) ) IS " 20 ********************"
|
|
HBTEST ( nA := -5000000000000000000000000 , RTSTR( -nA ) ) IS " 20 ********************"
|
|
|
|
RETURN
|
|
|
|
STATIC FUNCTION RTSTR( nValue )
|
|
RETURN Str( Len( Str( nValue ) ), 3 ) + " " + Str( nValue )
|
|
|
|
/* Don't change the position of this #include. */
|
|
#include "rt_init.ch"
|