From fa6d4dcd44d0e3f31b28da2268ab919a701c6a8e Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Wed, 28 Nov 2012 20:30:46 +0000 Subject: [PATCH] 2012-11-28 21:28 UTC+0100 Viktor Szakats (harbour syenar.net) * utils/hbtest/hbtest.prg * utils/hbtest/rt_array.prg * utils/hbtest/rt_class.prg * utils/hbtest/rt_date.prg * utils/hbtest/rt_file.prg * utils/hbtest/rt_hvm.prg * utils/hbtest/rt_hvma.prg * utils/hbtest/rt_main.ch * utils/hbtest/rt_math.prg * utils/hbtest/rt_misc.prg * utils/hbtest/rt_mt.prg * utils/hbtest/rt_str.prg * utils/hbtest/rt_stra.prg * utils/hbtest/rt_trans.prg % use the same HBTEST command format for tests as available for contribs and 3rd parties. It made source easier to edit and code size smaller by 111KB. --- harbour/ChangeLog.txt | 20 + harbour/utils/hbtest/hbtest.prg | 14 +- harbour/utils/hbtest/rt_array.prg | 532 ++++----- harbour/utils/hbtest/rt_class.prg | 1794 ++++++++++++++--------------- harbour/utils/hbtest/rt_date.prg | 170 +-- harbour/utils/hbtest/rt_file.prg | 232 ++-- harbour/utils/hbtest/rt_hvm.prg | 870 +++++++------- harbour/utils/hbtest/rt_hvma.prg | 902 +++++++-------- harbour/utils/hbtest/rt_main.ch | 2 +- harbour/utils/hbtest/rt_math.prg | 728 ++++++------ harbour/utils/hbtest/rt_misc.prg | 1552 ++++++++++++------------- harbour/utils/hbtest/rt_mt.prg | 2 +- harbour/utils/hbtest/rt_str.prg | 1124 +++++++++--------- harbour/utils/hbtest/rt_stra.prg | 850 +++++++------- harbour/utils/hbtest/rt_trans.prg | 1178 +++++++++---------- 15 files changed, 4995 insertions(+), 4975 deletions(-) diff --git a/harbour/ChangeLog.txt b/harbour/ChangeLog.txt index 239501f4d5..f5d533fb78 100644 --- a/harbour/ChangeLog.txt +++ b/harbour/ChangeLog.txt @@ -10,6 +10,26 @@ * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment */ +2012-11-28 21:28 UTC+0100 Viktor Szakats (harbour syenar.net) + * utils/hbtest/hbtest.prg + * utils/hbtest/rt_array.prg + * utils/hbtest/rt_class.prg + * utils/hbtest/rt_date.prg + * utils/hbtest/rt_file.prg + * utils/hbtest/rt_hvm.prg + * utils/hbtest/rt_hvma.prg + * utils/hbtest/rt_main.ch + * utils/hbtest/rt_math.prg + * utils/hbtest/rt_misc.prg + * utils/hbtest/rt_mt.prg + * utils/hbtest/rt_str.prg + * utils/hbtest/rt_stra.prg + * utils/hbtest/rt_trans.prg + % use the same HBTEST command format for tests as + available for contribs and 3rd parties. + It made source easier to edit and code size + smaller by 111KB. + 2012-11-28 20:19 UTC+0100 Viktor Szakats (harbour syenar.net) + contrib/xhb/xhwinprn.prg - contrib/xhb/xhw32prn.prg diff --git a/harbour/utils/hbtest/hbtest.prg b/harbour/utils/hbtest/hbtest.prg index 2e84ffe3bd..72b8153b94 100644 --- a/harbour/utils/hbtest/hbtest.prg +++ b/harbour/utils/hbtest/hbtest.prg @@ -179,18 +179,18 @@ PROCEDURE Main( cPar1, cPar2 ) STATIC PROCEDURE Main_LAST() - TEST_LINE( MemVarBlock( "mcString" ) , "{||...}" ) + HBTEST MemVarBlock( "mcString" ) IS "{||...}" #ifndef __XPP__ - TEST_LINE( __MRestore() , "E 1 BASE 2007 Argument error (__MRESTORE) OS:0 #:0 " ) + HBTEST __MRestore() IS "E 1 BASE 2007 Argument error (__MRESTORE) OS:0 #:0 " #endif - TEST_LINE( MemVarBlock( "mcString" ) , "{||...}" ) + HBTEST MemVarBlock( "mcString" ) IS "{||...}" #ifndef __XPP__ - TEST_LINE( __MSave() , "E 1 BASE 2008 Argument error (__MSAVE) OS:0 #:0 " ) - TEST_LINE( __MRestore( "$NOTHERE.MEM", .F. ) , "E 21 BASE 2005 Open error <$NOTHERE.MEM> OS:2 #:1 F:DR" ) + HBTEST __MSave() IS "E 1 BASE 2008 Argument error (__MSAVE) OS:0 #:0 " + HBTEST __MRestore( "$NOTHERE.MEM", .F. ) IS "E 21 BASE 2005 Open error <$NOTHERE.MEM> OS:2 #:1 F:DR" #endif - TEST_LINE( MemVarBlock( "mcString" ) , NIL ) + HBTEST MemVarBlock( "mcString" ) IS NIL #ifndef __XPP__ - TEST_LINE( __MSave( BADFNAME(), "*", .T. ) , "E 20 BASE 2006 Create error <" + BADFNAME() + "> OS:2 #:1 F:DR" ) + HBTEST __MSave( BADFNAME(), "*", .T. ) IS "E 20 BASE 2006 Create error <" + BADFNAME() + "> OS:2 #:1 F:DR" #endif RETURN diff --git a/harbour/utils/hbtest/rt_array.prg b/harbour/utils/hbtest/rt_array.prg index d878af0010..0beb6dc973 100644 --- a/harbour/utils/hbtest/rt_array.prg +++ b/harbour/utils/hbtest/rt_array.prg @@ -60,232 +60,232 @@ PROCEDURE Main_ARRAY() /* ARRAY function error conditions. */ #ifndef __XPP__ - TEST_LINE( ACopy() , NIL ) + HBTEST ACopy() IS NIL #endif - TEST_LINE( ACopy({}, "C") , NIL ) - TEST_LINE( ACopy("C", {}) , NIL ) - TEST_LINE( ACopy({}, {}) , "{.[0].}" ) - TEST_LINE( ACopy({}, ErrorNew()) , "ERROR Object" ) - TEST_LINE( ACopy(ErrorNew(), {}) , "{.[0].}" ) + HBTEST ACopy({}, "C") IS NIL + HBTEST ACopy("C", {}) IS NIL + HBTEST ACopy({}, {}) IS "{.[0].}" + HBTEST ACopy({}, ErrorNew()) IS "ERROR Object" + HBTEST ACopy(ErrorNew(), {}) IS "{.[0].}" #ifndef __XPP__ - TEST_LINE( AClone() , NIL ) + HBTEST AClone() IS NIL #endif - TEST_LINE( AClone( NIL ) , NIL ) - TEST_LINE( AClone( {} ) , "{.[0].}" ) - TEST_LINE( AClone( ErrorNew() ) , NIL ) + HBTEST AClone( NIL ) IS NIL + HBTEST AClone( {} ) IS "{.[0].}" + HBTEST AClone( ErrorNew() ) IS NIL #ifndef __XPP__ - TEST_LINE( AEval() , "E 1 BASE 2017 Argument error (AEVAL) OS:0 #:0 " ) - TEST_LINE( AEval( NIL ) , "E 1 BASE 2017 Argument error (AEVAL) OS:0 #:0 A:1:U:NIL " ) - TEST_LINE( AEval( {} ) , "E 1 BASE 2017 Argument error (AEVAL) OS:0 #:0 A:1:A:{.[0].} " ) + HBTEST AEval() IS "E 1 BASE 2017 Argument error (AEVAL) OS:0 #:0 " + HBTEST AEval( NIL ) IS "E 1 BASE 2017 Argument error (AEVAL) OS:0 #:0 A:1:U:NIL " + HBTEST AEval( {} ) IS "E 1 BASE 2017 Argument error (AEVAL) OS:0 #:0 A:1:A:{.[0].} " #endif - TEST_LINE( AEval( {}, NIL ) , "E 1 BASE 2017 Argument error (AEVAL) OS:0 #:0 A:2:A:{.[0].};U:NIL " ) - TEST_LINE( AEval( {}, {|| NIL } ) , "{.[0].}" ) - TEST_LINE( AEval( ErrorNew(), {|| NIL } ) , "ERROR Object" ) + HBTEST AEval( {}, NIL ) IS "E 1 BASE 2017 Argument error (AEVAL) OS:0 #:0 A:2:A:{.[0].};U:NIL " + HBTEST AEval( {}, {|| NIL } ) IS "{.[0].}" + HBTEST AEval( ErrorNew(), {|| NIL } ) IS "ERROR Object" #ifndef __XPP__ - TEST_LINE( AScan() , 0 ) - TEST_LINE( AScan( NIL ) , 0 ) - TEST_LINE( AScan( "A" ) , 0 ) - TEST_LINE( AScan( {} ) , 0 ) + HBTEST AScan() IS 0 + HBTEST AScan( NIL ) IS 0 + HBTEST AScan( "A" ) IS 0 + HBTEST AScan( {} ) IS 0 #endif - TEST_LINE( AScan( {}, "" ) , 0 ) - TEST_LINE( AScan( ErrorNew(), "NOT_FOUND") , 0 ) + HBTEST AScan( {}, "" ) IS 0 + HBTEST AScan( ErrorNew(), "NOT_FOUND") IS 0 #ifndef __XPP__ - TEST_LINE( ASort() , NIL ) + HBTEST ASort() IS NIL #endif - TEST_LINE( ASort(10) , NIL ) - TEST_LINE( ASort({}) , "{.[0].}" ) - TEST_LINE( ASort(ErrorNew()) , NIL ) + HBTEST ASort(10) IS NIL + HBTEST ASort({}) IS "{.[0].}" + HBTEST ASort(ErrorNew()) IS NIL #ifdef HB_CLP_STRICT #ifndef __XPP__ - TEST_LINE( AFill() , "E 1 BASE 2017 Argument error (AEVAL) OS:0 #:0 A:4:U:NIL;B:{||...};U:NIL;U:NIL " ) + HBTEST AFill() IS "E 1 BASE 2017 Argument error (AEVAL) OS:0 #:0 A:4:U:NIL;B:{||...};U:NIL;U:NIL " #endif - TEST_LINE( AFill( NIL ) , "E 1 BASE 2017 Argument error (AEVAL) OS:0 #:0 A:4:U:NIL;B:{||...};U:NIL;U:NIL " ) + HBTEST AFill( NIL ) IS "E 1 BASE 2017 Argument error (AEVAL) OS:0 #:0 A:4:U:NIL;B:{||...};U:NIL;U:NIL " #else #ifndef __XPP__ - TEST_LINE( AFill() , "E 1 BASE 6004 Argument error (AFILL) OS:0 #:0 " ) + HBTEST AFill() IS "E 1 BASE 6004 Argument error (AFILL) OS:0 #:0 " #endif - TEST_LINE( AFill( NIL ) , "E 1 BASE 6004 Argument error (AFILL) OS:0 #:0 A:1:U:NIL " ) + HBTEST AFill( NIL ) IS "E 1 BASE 6004 Argument error (AFILL) OS:0 #:0 A:1:U:NIL " #endif - TEST_LINE( AFill( {} ) , "{.[0].}" ) - TEST_LINE( AFill( {}, 1 ) , "{.[0].}" ) - TEST_LINE( AFill( ErrorNew() ) , "ERROR Object" ) - TEST_LINE( AFill( ErrorNew(), 1 ) , "ERROR Object" ) + HBTEST AFill( {} ) IS "{.[0].}" + HBTEST AFill( {}, 1 ) IS "{.[0].}" + HBTEST AFill( ErrorNew() ) IS "ERROR Object" + HBTEST AFill( ErrorNew(), 1 ) IS "ERROR Object" #ifndef __XPP__ - TEST_LINE( ADel() , NIL ) - TEST_LINE( ADel( NIL ) , NIL ) - TEST_LINE( ADel( { 1 } ) , "{.[1].}" ) + HBTEST ADel() IS NIL + HBTEST ADel( NIL ) IS NIL + HBTEST ADel( { 1 } ) IS "{.[1].}" #endif - TEST_LINE( ADel( { 1 }, 0 ) , "{.[1].}" ) - TEST_LINE( ADel( { 1 }, 100 ) , "{.[1].}" ) - TEST_LINE( ADel( { 1 }, 1 ) , "{.[1].}" ) - TEST_LINE( ADel( { 1 }, -1 ) , "{.[1].}" ) - TEST_LINE( ADel( { 1 }, 0 ) , "{.[1].}" ) - TEST_LINE( ADel( { 1 }, NIL ) , "{.[1].}" ) + HBTEST ADel( { 1 }, 0 ) IS "{.[1].}" + HBTEST ADel( { 1 }, 100 ) IS "{.[1].}" + HBTEST ADel( { 1 }, 1 ) IS "{.[1].}" + HBTEST ADel( { 1 }, -1 ) IS "{.[1].}" + HBTEST ADel( { 1 }, 0 ) IS "{.[1].}" + HBTEST ADel( { 1 }, NIL ) IS "{.[1].}" #ifndef __XPP__ - TEST_LINE( ADel( ErrorNew() ) , "ERROR Object" ) + HBTEST ADel( ErrorNew() ) IS "ERROR Object" #endif - TEST_LINE( ADel( ErrorNew(), 0 ) , "ERROR Object" ) - TEST_LINE( ADel( ErrorNew(), 100 ) , "ERROR Object" ) - TEST_LINE( ADel( ErrorNew(), 1 ) , "ERROR Object" ) - TEST_LINE( ADel( ErrorNew(), -1 ) , "ERROR Object" ) - TEST_LINE( ADel( ErrorNew(), 0 ) , "ERROR Object" ) - TEST_LINE( ADel( ErrorNew(), NIL ) , "ERROR Object" ) + HBTEST ADel( ErrorNew(), 0 ) IS "ERROR Object" + HBTEST ADel( ErrorNew(), 100 ) IS "ERROR Object" + HBTEST ADel( ErrorNew(), 1 ) IS "ERROR Object" + HBTEST ADel( ErrorNew(), -1 ) IS "ERROR Object" + HBTEST ADel( ErrorNew(), 0 ) IS "ERROR Object" + HBTEST ADel( ErrorNew(), NIL ) IS "ERROR Object" #ifndef __XPP__ - TEST_LINE( AIns() , NIL ) - TEST_LINE( AIns( NIL ) , NIL ) - TEST_LINE( AIns( { 1 } ) , "{.[1].}" ) + HBTEST AIns() IS NIL + HBTEST AIns( NIL ) IS NIL + HBTEST AIns( { 1 } ) IS "{.[1].}" #endif - TEST_LINE( AIns( { 1 }, 0 ) , "{.[1].}" ) - TEST_LINE( AIns( { 1 }, 100 ) , "{.[1].}" ) - TEST_LINE( AIns( { 1 }, 1 ) , "{.[1].}" ) - TEST_LINE( AIns( { 1 }, -1 ) , "{.[1].}" ) - TEST_LINE( AIns( { 1 }, 0 ) , "{.[1].}" ) - TEST_LINE( AIns( { 1 }, NIL ) , "{.[1].}" ) + HBTEST AIns( { 1 }, 0 ) IS "{.[1].}" + HBTEST AIns( { 1 }, 100 ) IS "{.[1].}" + HBTEST AIns( { 1 }, 1 ) IS "{.[1].}" + HBTEST AIns( { 1 }, -1 ) IS "{.[1].}" + HBTEST AIns( { 1 }, 0 ) IS "{.[1].}" + HBTEST AIns( { 1 }, NIL ) IS "{.[1].}" #ifndef __XPP__ - TEST_LINE( AIns( ErrorNew() ) , "ERROR Object" ) + HBTEST AIns( ErrorNew() ) IS "ERROR Object" #endif - TEST_LINE( AIns( ErrorNew(), 0 ) , "ERROR Object" ) - TEST_LINE( AIns( ErrorNew(), 100 ) , "ERROR Object" ) - TEST_LINE( AIns( ErrorNew(), 1 ) , "ERROR Object" ) - TEST_LINE( AIns( ErrorNew(), -1 ) , "ERROR Object" ) - TEST_LINE( AIns( ErrorNew(), 0 ) , "ERROR Object" ) - TEST_LINE( AIns( ErrorNew(), NIL ) , "ERROR Object" ) + HBTEST AIns( ErrorNew(), 0 ) IS "ERROR Object" + HBTEST AIns( ErrorNew(), 100 ) IS "ERROR Object" + HBTEST AIns( ErrorNew(), 1 ) IS "ERROR Object" + HBTEST AIns( ErrorNew(), -1 ) IS "ERROR Object" + HBTEST AIns( ErrorNew(), 0 ) IS "ERROR Object" + HBTEST AIns( ErrorNew(), NIL ) IS "ERROR Object" #ifndef __XPP__ - TEST_LINE( ATail() , NIL ) + HBTEST ATail() IS NIL #endif - TEST_LINE( ATail( NIL ) , NIL ) - TEST_LINE( ATail( "" ) , NIL ) - TEST_LINE( ATail( {} ) , NIL ) - TEST_LINE( ATail( { 1, 2 } ) , 2 ) - TEST_LINE( ATail( ErrorNew() ) , NIL ) + HBTEST ATail( NIL ) IS NIL + HBTEST ATail( "" ) IS NIL + HBTEST ATail( {} ) IS NIL + HBTEST ATail( { 1, 2 } ) IS 2 + HBTEST ATail( ErrorNew() ) IS NIL #ifndef __XPP__ #ifdef HB_COMPAT_C53 - TEST_LINE( ASize() , "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " ) - TEST_LINE( ASize( NIL ) , "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " ) - TEST_LINE( ASize( {} ) , "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " ) - TEST_LINE( ASize( ErrorNew() ) , "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " ) + HBTEST ASize() IS "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " + HBTEST ASize( NIL ) IS "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " + HBTEST ASize( {} ) IS "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " + HBTEST ASize( ErrorNew() ) IS "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " #else - TEST_LINE( ASize() , NIL ) - TEST_LINE( ASize( NIL ) , NIL ) - TEST_LINE( ASize( {} ) , NIL ) - TEST_LINE( ASize( ErrorNew() ) , NIL ) + HBTEST ASize() IS NIL + HBTEST ASize( NIL ) IS NIL + HBTEST ASize( {} ) IS NIL + HBTEST ASize( ErrorNew() ) IS NIL #endif #endif #ifdef HB_COMPAT_C53 - TEST_LINE( ASize( NIL, 0 ) , "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " ) - TEST_LINE( ASize( NIL, 1 ) , "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " ) - TEST_LINE( ASize( NIL, -1 ) , "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " ) + HBTEST ASize( NIL, 0 ) IS "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " + HBTEST ASize( NIL, 1 ) IS "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " + HBTEST ASize( NIL, -1 ) IS "E 1 BASE 2023 Argument error (ASIZE) OS:0 #:0 " #else - TEST_LINE( ASize( NIL, 0 ) , NIL ) - TEST_LINE( ASize( NIL, 1 ) , NIL ) - TEST_LINE( ASize( NIL, -1 ) , NIL ) + HBTEST ASize( NIL, 0 ) IS NIL + HBTEST ASize( NIL, 1 ) IS NIL + HBTEST ASize( NIL, -1 ) IS NIL #endif - TEST_LINE( ASize( {}, 0 ) , "{.[0].}" ) - TEST_LINE( ASize( ErrorNew(), 0 ) , "ERROR Object" ) - TEST_LINE( ASize( {}, 1 ) , "{.[1].}" ) - TEST_LINE( ASize( { 1, 2 }, 1 ) , "{.[1].}" ) - TEST_LINE( ASize( { 1, "AAAA" }, 1 ) , "{.[1].}" ) - TEST_LINE( ASize( { "BBB", "AAAA" }, 0 ) , "{.[0].}" ) - TEST_LINE( ASize( ErrorNew(), 1 ) , "ERROR Object" ) - TEST_LINE( ASize( {}, -1 ) , "{.[0].}" ) - TEST_LINE( ASize( { 1 }, -1 ) , "{.[0].}" ) + HBTEST ASize( {}, 0 ) IS "{.[0].}" + HBTEST ASize( ErrorNew(), 0 ) IS "ERROR Object" + HBTEST ASize( {}, 1 ) IS "{.[1].}" + HBTEST ASize( { 1, 2 }, 1 ) IS "{.[1].}" + HBTEST ASize( { 1, "AAAA" }, 1 ) IS "{.[1].}" + HBTEST ASize( { "BBB", "AAAA" }, 0 ) IS "{.[0].}" + HBTEST ASize( ErrorNew(), 1 ) IS "ERROR Object" + HBTEST ASize( {}, -1 ) IS "{.[0].}" + HBTEST ASize( { 1 }, -1 ) IS "{.[0].}" #ifdef __HARBOUR__ - TEST_LINE( ASize( { 1 }, 5000 ) , "{.[5000].}" ) + HBTEST ASize( { 1 }, 5000 ) IS "{.[5000].}" #else - TEST_LINE( ASize( { 1 }, 5000 ) , "{.[1].}" ) + HBTEST ASize( { 1 }, 5000 ) IS "{.[1].}" #endif - TEST_LINE( ASize( ErrorNew(), -1 ) , "ERROR Object" ) - TEST_LINE( ASize( ErrorNew(), 100 ) , "ERROR Object" ) - TEST_LINE( AAdd( NIL, NIL ) , "E 1 BASE 1123 Argument error (AADD) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) - TEST_LINE( AAdd( {}, NIL ) , NIL ) - TEST_LINE( AAdd( {}, "A" ) , "A" ) - TEST_LINE( AAdd( ErrorNew(), NIL ) , NIL ) - TEST_LINE( AAdd( ErrorNew(), "A" ) , "A" ) + HBTEST ASize( ErrorNew(), -1 ) IS "ERROR Object" + HBTEST ASize( ErrorNew(), 100 ) IS "ERROR Object" + HBTEST AAdd( NIL, NIL ) IS "E 1 BASE 1123 Argument error (AADD) OS:0 #:0 A:2:U:NIL;U:NIL F:S" + HBTEST AAdd( {}, NIL ) IS NIL + HBTEST AAdd( {}, "A" ) IS "A" + HBTEST AAdd( ErrorNew(), NIL ) IS NIL + HBTEST AAdd( ErrorNew(), "A" ) IS "A" #ifndef __XPP__ - TEST_LINE( Array() , NIL ) + HBTEST Array() IS NIL #endif - TEST_LINE( Array( 0 ) , "{.[0].}" ) + HBTEST Array( 0 ) IS "{.[0].}" #ifdef __HARBOUR__ - TEST_LINE( Array( 5000 ) , "{.[5000].}" ) + HBTEST Array( 5000 ) IS "{.[5000].}" #else - TEST_LINE( Array( 5000 ) , "E 2 BASE 1131 Bound error (array dimension) OS:0 #:0 " ) + HBTEST Array( 5000 ) IS "E 2 BASE 1131 Bound error (array dimension) OS:0 #:0 " #endif - TEST_LINE( Array( 1 ) , "{.[1].}" ) - TEST_LINE( Array( -1 ) , "E 2 BASE 1131 Bound error (array dimension) OS:0 #:0 " ) - TEST_LINE( Array( 1, 0, -10 ) , "E 2 BASE 1131 Bound error (array dimension) OS:0 #:0 " ) - TEST_LINE( Array( 1, 0, "A" ) , NIL ) - TEST_LINE( Array( 1, 0, 2 ) , "{.[1].}" ) - TEST_LINE( Array( 4, 3, 2 ) , "{.[4].}" ) - TEST_LINE( Array( 0, 3, 2 ) , "{.[0].}" ) + HBTEST Array( 1 ) IS "{.[1].}" + HBTEST Array( -1 ) IS "E 2 BASE 1131 Bound error (array dimension) OS:0 #:0 " + HBTEST Array( 1, 0, -10 ) IS "E 2 BASE 1131 Bound error (array dimension) OS:0 #:0 " + HBTEST Array( 1, 0, "A" ) IS NIL + HBTEST Array( 1, 0, 2 ) IS "{.[1].}" + HBTEST Array( 4, 3, 2 ) IS "{.[4].}" + HBTEST Array( 0, 3, 2 ) IS "{.[0].}" /* AFill() */ - TEST_LINE( TAStr(AFill(TANew(),"X") ) , "XXXXXXXXXX" ) - TEST_LINE( TAStr(AFill(TANew(),"X",NIL,-2)) , "XXXXXXXXXX" ) - TEST_LINE( TAStr(AFill(TANew(),"X",NIL, 0)) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X",NIL, 3)) , "XXX......." ) - TEST_LINE( TAStr(AFill(TANew(),"X",NIL,20)) , "XXXXXXXXXX" ) - TEST_LINE( TAStr(AFill(TANew(),"X", 0) ) , "XXXXXXXXXX" ) - TEST_LINE( TAStr(AFill(TANew(),"X", 0,-2)) , "XXXXXXXXXX" ) - TEST_LINE( TAStr(AFill(TANew(),"X", 0, 0)) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X", 0, 3)) , "XXX......." ) - TEST_LINE( TAStr(AFill(TANew(),"X", 0,20)) , "XXXXXXXXXX" ) - TEST_LINE( TAStr(AFill(TANew(),"X", 1) ) , "XXXXXXXXXX" ) - TEST_LINE( TAStr(AFill(TANew(),"X", 1,-2)) , "XXXXXXXXXX" ) - TEST_LINE( TAStr(AFill(TANew(),"X", 1, 0)) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X", 1, 3)) , "XXX......." ) - TEST_LINE( TAStr(AFill(TANew(),"X", 1,20)) , "XXXXXXXXXX" ) - TEST_LINE( TAStr(AFill(TANew(),"X", 3) ) , "..XXXXXXXX" ) - TEST_LINE( TAStr(AFill(TANew(),"X", 3,-2)) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X", 3, 0)) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X", 3, 3)) , "..XXX....." ) - TEST_LINE( TAStr(AFill(TANew(),"X", 3,20)) , "..XXXXXXXX" ) - TEST_LINE( TAStr(AFill(TANew(),"X", -1) ) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X", -1,-2)) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X", -1, 0)) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X", -1, 3)) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X", -1,20)) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X", 21) ) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X", 21,-2)) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X", 21, 0)) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X", 21, 3)) , ".........." ) - TEST_LINE( TAStr(AFill(TANew(),"X", 21,20)) , ".........." ) + HBTEST TAStr(AFill(TANew(),"X") ) IS "XXXXXXXXXX" + HBTEST TAStr(AFill(TANew(),"X",NIL,-2)) IS "XXXXXXXXXX" + HBTEST TAStr(AFill(TANew(),"X",NIL, 0)) IS ".........." + HBTEST TAStr(AFill(TANew(),"X",NIL, 3)) IS "XXX......." + HBTEST TAStr(AFill(TANew(),"X",NIL,20)) IS "XXXXXXXXXX" + HBTEST TAStr(AFill(TANew(),"X", 0) ) IS "XXXXXXXXXX" + HBTEST TAStr(AFill(TANew(),"X", 0,-2)) IS "XXXXXXXXXX" + HBTEST TAStr(AFill(TANew(),"X", 0, 0)) IS ".........." + HBTEST TAStr(AFill(TANew(),"X", 0, 3)) IS "XXX......." + HBTEST TAStr(AFill(TANew(),"X", 0,20)) IS "XXXXXXXXXX" + HBTEST TAStr(AFill(TANew(),"X", 1) ) IS "XXXXXXXXXX" + HBTEST TAStr(AFill(TANew(),"X", 1,-2)) IS "XXXXXXXXXX" + HBTEST TAStr(AFill(TANew(),"X", 1, 0)) IS ".........." + HBTEST TAStr(AFill(TANew(),"X", 1, 3)) IS "XXX......." + HBTEST TAStr(AFill(TANew(),"X", 1,20)) IS "XXXXXXXXXX" + HBTEST TAStr(AFill(TANew(),"X", 3) ) IS "..XXXXXXXX" + HBTEST TAStr(AFill(TANew(),"X", 3,-2)) IS ".........." + HBTEST TAStr(AFill(TANew(),"X", 3, 0)) IS ".........." + HBTEST TAStr(AFill(TANew(),"X", 3, 3)) IS "..XXX....." + HBTEST TAStr(AFill(TANew(),"X", 3,20)) IS "..XXXXXXXX" + HBTEST TAStr(AFill(TANew(),"X", -1) ) IS ".........." + HBTEST TAStr(AFill(TANew(),"X", -1,-2)) IS ".........." + HBTEST TAStr(AFill(TANew(),"X", -1, 0)) IS ".........." + HBTEST TAStr(AFill(TANew(),"X", -1, 3)) IS ".........." + HBTEST TAStr(AFill(TANew(),"X", -1,20)) IS ".........." + HBTEST TAStr(AFill(TANew(),"X", 21) ) IS ".........." + HBTEST TAStr(AFill(TANew(),"X", 21,-2)) IS ".........." + HBTEST TAStr(AFill(TANew(),"X", 21, 0)) IS ".........." + HBTEST TAStr(AFill(TANew(),"X", 21, 3)) IS ".........." + HBTEST TAStr(AFill(TANew(),"X", 21,20)) IS ".........." /* ACopy() */ - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 1 )) , "ABCDEFGHIJ" ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 1, 0 )) , ".........." ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 1, 3 )) , "ABC......." ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 1, 20 )) , "ABCDEFGHIJ" ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 3 )) , "CDEFGHIJ.." ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 3, 0 )) , ".........." ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 3, 3 )) , "CDE......." ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 3, 20 )) , "CDEFGHIJ.." ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 21 )) , ".........." ) /* Bug in CA-Cl*pper, it will return: "J.........", fixed in 5.3a */ - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 21, 0 )) , ".........." ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 21, 3 )) , ".........." ) /* Bug in CA-Cl*pper, it will return: "J.........", fixed in 5.3a */ - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 21, 20 )) , ".........." ) /* Bug in CA-Cl*pper, it will return: "J.........", fixed in 5.3a */ - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 1,NIL, 1)) , "ABCDEFGHIJ" ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 1, 0, 1)) , ".........." ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 1, 3, 0)) , "ABC......." ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 1, 3, 2)) , ".ABC......" ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 1, 3, 8)) , ".......ABC" ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 1, 3, 20)) , ".........A" ) /* Strange in CA-Cl*pper, it should return: ".........." */ - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 1, 20, 1)) , "ABCDEFGHIJ" ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 3,NIL, 3)) , "..CDEFGHIJ" ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 3, 0, 3)) , ".........." ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 3, 3, 0)) , "CDE......." ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 3, 3, 2)) , ".CDE......" ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 3, 3, 8)) , ".......CDE" ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 3, 3, 20)) , ".........C" ) /* Strange in CA-Cl*pper, it should return: ".........." */ - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 3, 20, 3)) , "..CDEFGHIJ" ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 21,NIL, 21)) , ".........." ) /* Bug in CA-Cl*pper, it will return: ".........J", fixed in 5.3a */ - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 21, 0, 21)) , ".........." ) - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 21, 3, 0)) , ".........." ) /* Bug in CA-Cl*pper, it will return: "J.........", fixed in 5.3a */ - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 21, 3, 2)) , ".........." ) /* Bug in CA-Cl*pper, it will return: ".J........", fixed in 5.3a */ - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 21, 3, 8)) , ".........." ) /* Bug in CA-Cl*pper, it will return: ".......J..", fixed in 5.3a */ - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 21, 3, 20)) , ".........." ) /* Bug in CA-Cl*pper, it will return: ".........J", fixed in 5.3a */ - TEST_LINE( TAStr(ACopy(TARng(),TANew(), 21, 20, 21)) , ".........." ) /* Bug in CA-Cl*pper, it will return: ".........J", fixed in 5.3a */ + HBTEST TAStr(ACopy(TARng(),TANew(), 1 )) IS "ABCDEFGHIJ" + HBTEST TAStr(ACopy(TARng(),TANew(), 1, 0 )) IS ".........." + HBTEST TAStr(ACopy(TARng(),TANew(), 1, 3 )) IS "ABC......." + HBTEST TAStr(ACopy(TARng(),TANew(), 1, 20 )) IS "ABCDEFGHIJ" + HBTEST TAStr(ACopy(TARng(),TANew(), 3 )) IS "CDEFGHIJ.." + HBTEST TAStr(ACopy(TARng(),TANew(), 3, 0 )) IS ".........." + HBTEST TAStr(ACopy(TARng(),TANew(), 3, 3 )) IS "CDE......." + HBTEST TAStr(ACopy(TARng(),TANew(), 3, 20 )) IS "CDEFGHIJ.." + HBTEST TAStr(ACopy(TARng(),TANew(), 21 )) IS ".........." /* Bug in CA-Cl*pper, it will return: "J.........", fixed in 5.3a */ + HBTEST TAStr(ACopy(TARng(),TANew(), 21, 0 )) IS ".........." + HBTEST TAStr(ACopy(TARng(),TANew(), 21, 3 )) IS ".........." /* Bug in CA-Cl*pper, it will return: "J.........", fixed in 5.3a */ + HBTEST TAStr(ACopy(TARng(),TANew(), 21, 20 )) IS ".........." /* Bug in CA-Cl*pper, it will return: "J.........", fixed in 5.3a */ + HBTEST TAStr(ACopy(TARng(),TANew(), 1,NIL, 1)) IS "ABCDEFGHIJ" + HBTEST TAStr(ACopy(TARng(),TANew(), 1, 0, 1)) IS ".........." + HBTEST TAStr(ACopy(TARng(),TANew(), 1, 3, 0)) IS "ABC......." + HBTEST TAStr(ACopy(TARng(),TANew(), 1, 3, 2)) IS ".ABC......" + HBTEST TAStr(ACopy(TARng(),TANew(), 1, 3, 8)) IS ".......ABC" + HBTEST TAStr(ACopy(TARng(),TANew(), 1, 3, 20)) IS ".........A" /* Strange in CA-Cl*pper, it should return: ".........." */ + HBTEST TAStr(ACopy(TARng(),TANew(), 1, 20, 1)) IS "ABCDEFGHIJ" + HBTEST TAStr(ACopy(TARng(),TANew(), 3,NIL, 3)) IS "..CDEFGHIJ" + HBTEST TAStr(ACopy(TARng(),TANew(), 3, 0, 3)) IS ".........." + HBTEST TAStr(ACopy(TARng(),TANew(), 3, 3, 0)) IS "CDE......." + HBTEST TAStr(ACopy(TARng(),TANew(), 3, 3, 2)) IS ".CDE......" + HBTEST TAStr(ACopy(TARng(),TANew(), 3, 3, 8)) IS ".......CDE" + HBTEST TAStr(ACopy(TARng(),TANew(), 3, 3, 20)) IS ".........C" /* Strange in CA-Cl*pper, it should return: ".........." */ + HBTEST TAStr(ACopy(TARng(),TANew(), 3, 20, 3)) IS "..CDEFGHIJ" + HBTEST TAStr(ACopy(TARng(),TANew(), 21,NIL, 21)) IS ".........." /* Bug in CA-Cl*pper, it will return: ".........J", fixed in 5.3a */ + HBTEST TAStr(ACopy(TARng(),TANew(), 21, 0, 21)) IS ".........." + HBTEST TAStr(ACopy(TARng(),TANew(), 21, 3, 0)) IS ".........." /* Bug in CA-Cl*pper, it will return: "J.........", fixed in 5.3a */ + HBTEST TAStr(ACopy(TARng(),TANew(), 21, 3, 2)) IS ".........." /* Bug in CA-Cl*pper, it will return: ".J........", fixed in 5.3a */ + HBTEST TAStr(ACopy(TARng(),TANew(), 21, 3, 8)) IS ".........." /* Bug in CA-Cl*pper, it will return: ".......J..", fixed in 5.3a */ + HBTEST TAStr(ACopy(TARng(),TANew(), 21, 3, 20)) IS ".........." /* Bug in CA-Cl*pper, it will return: ".........J", fixed in 5.3a */ + HBTEST TAStr(ACopy(TARng(),TANew(), 21, 20, 21)) IS ".........." /* Bug in CA-Cl*pper, it will return: ".........J", fixed in 5.3a */ /* ASort() */ @@ -293,108 +293,108 @@ PROCEDURE Main_ARRAY() sorting algorithms. Anyhow the results pattern should match. [vszakats] */ #ifdef __HARBOUR__ - TEST_LINE( TAStr(ASort(TARRv(),,,{||NIL})) , "DCBAEFIHGJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||hb_SToD()})) , "DCBAEFIHGJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||"0"})) , "DCBAEFIHGJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||"1"})) , "DCBAEFIHGJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||"2"})) , "DCBAEFIHGJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||"a"})) , "DCBAEFIHGJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||"A"})) , "DCBAEFIHGJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||""})) , "DCBAEFIHGJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||"z"})) , "DCBAEFIHGJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||.T.})) , "DCBAEFIHGJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||.F.})) , "FEIDGCHBJA" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||2})) , "DCBAEFIHGJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||1})) , "DCBAEFIHGJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||0})) , "FEIDGCHBJA" ) + HBTEST TAStr(ASort(TARRv(),,,{||NIL})) IS "DCBAEFIHGJ" + HBTEST TAStr(ASort(TARRv(),,,{||hb_SToD()})) IS "DCBAEFIHGJ" + HBTEST TAStr(ASort(TARRv(),,,{||"0"})) IS "DCBAEFIHGJ" + HBTEST TAStr(ASort(TARRv(),,,{||"1"})) IS "DCBAEFIHGJ" + HBTEST TAStr(ASort(TARRv(),,,{||"2"})) IS "DCBAEFIHGJ" + HBTEST TAStr(ASort(TARRv(),,,{||"a"})) IS "DCBAEFIHGJ" + HBTEST TAStr(ASort(TARRv(),,,{||"A"})) IS "DCBAEFIHGJ" + HBTEST TAStr(ASort(TARRv(),,,{||""})) IS "DCBAEFIHGJ" + HBTEST TAStr(ASort(TARRv(),,,{||"z"})) IS "DCBAEFIHGJ" + HBTEST TAStr(ASort(TARRv(),,,{||.T.})) IS "DCBAEFIHGJ" + HBTEST TAStr(ASort(TARRv(),,,{||.F.})) IS "FEIDGCHBJA" + HBTEST TAStr(ASort(TARRv(),,,{||2})) IS "DCBAEFIHGJ" + HBTEST TAStr(ASort(TARRv(),,,{||1})) IS "DCBAEFIHGJ" + HBTEST TAStr(ASort(TARRv(),,,{||0})) IS "FEIDGCHBJA" #else - TEST_LINE( TAStr(ASort(TARRv(),,,{||NIL})) , "IHGFEDCBAJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||hb_SToD()})) , "IHGFEDCBAJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||"0"})) , "IHGFEDCBAJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||"1"})) , "IHGFEDCBAJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||"2"})) , "IHGFEDCBAJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||"a"})) , "IHGFEDCBAJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||"A"})) , "IHGFEDCBAJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||""})) , "IHGFEDCBAJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||"z"})) , "IHGFEDCBAJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||.T.})) , "IHGFEDCBAJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||.F.})) , "DCEABJIHFG" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||2})) , "IHGFEDCBAJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||1})) , "IHGFEDCBAJ" ) - TEST_LINE( TAStr(ASort(TARRv(),,,{||0})) , "DCEABJIHFG" ) + HBTEST TAStr(ASort(TARRv(),,,{||NIL})) IS "IHGFEDCBAJ" + HBTEST TAStr(ASort(TARRv(),,,{||hb_SToD()})) IS "IHGFEDCBAJ" + HBTEST TAStr(ASort(TARRv(),,,{||"0"})) IS "IHGFEDCBAJ" + HBTEST TAStr(ASort(TARRv(),,,{||"1"})) IS "IHGFEDCBAJ" + HBTEST TAStr(ASort(TARRv(),,,{||"2"})) IS "IHGFEDCBAJ" + HBTEST TAStr(ASort(TARRv(),,,{||"a"})) IS "IHGFEDCBAJ" + HBTEST TAStr(ASort(TARRv(),,,{||"A"})) IS "IHGFEDCBAJ" + HBTEST TAStr(ASort(TARRv(),,,{||""})) IS "IHGFEDCBAJ" + HBTEST TAStr(ASort(TARRv(),,,{||"z"})) IS "IHGFEDCBAJ" + HBTEST TAStr(ASort(TARRv(),,,{||.T.})) IS "IHGFEDCBAJ" + HBTEST TAStr(ASort(TARRv(),,,{||.F.})) IS "DCEABJIHFG" + HBTEST TAStr(ASort(TARRv(),,,{||2})) IS "IHGFEDCBAJ" + HBTEST TAStr(ASort(TARRv(),,,{||1})) IS "IHGFEDCBAJ" + HBTEST TAStr(ASort(TARRv(),,,{||0})) IS "DCEABJIHFG" #endif - TEST_LINE( TAStr(ASort(TARRv())) , "ABCDEFGHIJ" ) - TEST_LINE( TAStr(ASort(TARRv(),NIL,NIL)) , "ABCDEFGHIJ" ) - TEST_LINE( TAStr(ASort(TARRv(),NIL, -2)) , "ABCDEFGHIJ" ) - TEST_LINE( TAStr(ASort(TARRv(),NIL, 0)) , "ABCDEFGHIJ" ) - TEST_LINE( TAStr(ASort(TARRv(),NIL, 3)) , "HIJGFEDCBA" ) - TEST_LINE( TAStr(ASort(TARRv(),NIL, 20)) , "ABCDEFGHIJ" ) - TEST_LINE( TAStr(ASort(TARRv(), -5 )) , "JIHGFEDCBA" ) - TEST_LINE( TAStr(ASort(TARRv(), -5, -2)) , "JIHGFEDCBA" ) - TEST_LINE( TAStr(ASort(TARRv(), -5, 0)) , "JIHGFEDCBA" ) - TEST_LINE( TAStr(ASort(TARRv(), -5, 3)) , "JIHGFEDCBA" ) - TEST_LINE( TAStr(ASort(TARRv(), -5, 20)) , "JIHGFEDCBA" ) - TEST_LINE( TAStr(ASort(TARRv(), 0 )) , "ABCDEFGHIJ" ) - TEST_LINE( TAStr(ASort(TARRv(), 0, -2)) , "ABCDEFGHIJ" ) - TEST_LINE( TAStr(ASort(TARRv(), 0, 0)) , "ABCDEFGHIJ" ) - TEST_LINE( TAStr(ASort(TARRv(), 0, 3)) , "HIJGFEDCBA" ) - TEST_LINE( TAStr(ASort(TARRv(), 0, 20)) , "ABCDEFGHIJ" ) - TEST_LINE( TAStr(ASort(TARRv(), 5 )) , "JIHGABCDEF" ) + HBTEST TAStr(ASort(TARRv())) IS "ABCDEFGHIJ" + HBTEST TAStr(ASort(TARRv(),NIL,NIL)) IS "ABCDEFGHIJ" + HBTEST TAStr(ASort(TARRv(),NIL, -2)) IS "ABCDEFGHIJ" + HBTEST TAStr(ASort(TARRv(),NIL, 0)) IS "ABCDEFGHIJ" + HBTEST TAStr(ASort(TARRv(),NIL, 3)) IS "HIJGFEDCBA" + HBTEST TAStr(ASort(TARRv(),NIL, 20)) IS "ABCDEFGHIJ" + HBTEST TAStr(ASort(TARRv(), -5 )) IS "JIHGFEDCBA" + HBTEST TAStr(ASort(TARRv(), -5, -2)) IS "JIHGFEDCBA" + HBTEST TAStr(ASort(TARRv(), -5, 0)) IS "JIHGFEDCBA" + HBTEST TAStr(ASort(TARRv(), -5, 3)) IS "JIHGFEDCBA" + HBTEST TAStr(ASort(TARRv(), -5, 20)) IS "JIHGFEDCBA" + HBTEST TAStr(ASort(TARRv(), 0 )) IS "ABCDEFGHIJ" + HBTEST TAStr(ASort(TARRv(), 0, -2)) IS "ABCDEFGHIJ" + HBTEST TAStr(ASort(TARRv(), 0, 0)) IS "ABCDEFGHIJ" + HBTEST TAStr(ASort(TARRv(), 0, 3)) IS "HIJGFEDCBA" + HBTEST TAStr(ASort(TARRv(), 0, 20)) IS "ABCDEFGHIJ" + HBTEST TAStr(ASort(TARRv(), 5 )) IS "JIHGABCDEF" #ifdef __HARBOUR__ - TEST_LINE( TAStr(ASort(TARRv(), 5, -2)) , "JIHGABCDEF" ) /* CA-Cl*pper will crash or GPF on that line. */ + HBTEST TAStr(ASort(TARRv(), 5, -2)) IS "JIHGABCDEF" /* CA-Cl*pper will crash or GPF on that line. */ #endif - TEST_LINE( TAStr(ASort(TARRv(), 5, 0)) , "JIHGABCDEF" ) - TEST_LINE( TAStr(ASort(TARRv(), 5, 3)) , "JIHGDEFCBA" ) - TEST_LINE( TAStr(ASort(TARRv(), 5, 20)) , "JIHGABCDEF" ) - TEST_LINE( TAStr(ASort(TARRv(), 20 )) , "JIHGFEDCBA" ) - TEST_LINE( TAStr(ASort(TARRv(), 20, -2)) , "JIHGFEDCBA" ) - TEST_LINE( TAStr(ASort(TARRv(), 20, 0)) , "JIHGFEDCBA" ) - TEST_LINE( TAStr(ASort(TARRv(), 20, 3)) , "JIHGFEDCBA" ) - TEST_LINE( TAStr(ASort(TARRv(), 20, 20)) , "JIHGFEDCBA" ) + HBTEST TAStr(ASort(TARRv(), 5, 0)) IS "JIHGABCDEF" + HBTEST TAStr(ASort(TARRv(), 5, 3)) IS "JIHGDEFCBA" + HBTEST TAStr(ASort(TARRv(), 5, 20)) IS "JIHGABCDEF" + HBTEST TAStr(ASort(TARRv(), 20 )) IS "JIHGFEDCBA" + HBTEST TAStr(ASort(TARRv(), 20, -2)) IS "JIHGFEDCBA" + HBTEST TAStr(ASort(TARRv(), 20, 0)) IS "JIHGFEDCBA" + HBTEST TAStr(ASort(TARRv(), 20, 3)) IS "JIHGFEDCBA" + HBTEST TAStr(ASort(TARRv(), 20, 20)) IS "JIHGFEDCBA" /* AScan() */ #ifndef __XPP__ - TEST_LINE( AScan() , 0 ) - TEST_LINE( AScan( NIL ) , 0 ) - TEST_LINE( AScan( "A" ) , 0 ) + HBTEST AScan() IS 0 + HBTEST AScan( NIL ) IS 0 + HBTEST AScan( "A" ) IS 0 #endif - TEST_LINE( AScan( "A", "A" ) , 0 ) - TEST_LINE( AScan( "A", {|| .F. } ) , 0 ) - TEST_LINE( AScan( {1,2,3}, {|| NIL } ) , 0 ) - TEST_LINE( AScan( saAllTypes, scString ) , 1 ) + HBTEST AScan( "A", "A" ) IS 0 + HBTEST AScan( "A", {|| .F. } ) IS 0 + HBTEST AScan( {1,2,3}, {|| NIL } ) IS 0 + HBTEST AScan( saAllTypes, scString ) IS 1 #ifdef __HARBOUR__ - TEST_LINE( AScan( @saAllTypes, scString ) , 1 ) /* Bug in CA-Cl*pper, it will return 0 */ - TEST_LINE( AScan( saAllTypes, @scString ) , 1 ) /* Bug in CA-Cl*pper, it will return 0 */ + HBTEST AScan( @saAllTypes, scString ) IS 1 /* Bug in CA-Cl*pper, it will return 0 */ + HBTEST AScan( saAllTypes, @scString ) IS 1 /* Bug in CA-Cl*pper, it will return 0 */ #endif - TEST_LINE( AScan( saAllTypes, scStringE ) , 1 ) - TEST_LINE( AScan( saAllTypes, scStringZ ) , 3 ) - TEST_LINE( AScan( saAllTypes, snIntZ ) , 4 ) - TEST_LINE( AScan( saAllTypes, snDoubleZ ) , 4 ) - TEST_LINE( AScan( saAllTypes, snIntP ) , 6 ) - TEST_LINE( AScan( saAllTypes, snLongP ) , 7 ) - TEST_LINE( AScan( saAllTypes, snDoubleP ) , 8 ) - TEST_LINE( AScan( saAllTypes, snIntN ) , 9 ) - TEST_LINE( AScan( saAllTypes, snLongN ) , 10 ) - TEST_LINE( AScan( saAllTypes, snDoubleN ) , 11 ) - TEST_LINE( AScan( saAllTypes, snDoubleI ) , 4 ) - TEST_LINE( AScan( saAllTypes, sdDateE ) , 13 ) - TEST_LINE( AScan( saAllTypes, slFalse ) , 14 ) - TEST_LINE( AScan( saAllTypes, slTrue ) , 15 ) - TEST_LINE( AScan( saAllTypes, soObject ) , 0 ) - TEST_LINE( AScan( saAllTypes, suNIL ) , 17 ) - TEST_LINE( AScan( saAllTypes, sbBlock ) , 0 ) - TEST_LINE( AScan( saAllTypes, sbBlockC ) , 0 ) - TEST_LINE( AScan( saAllTypes, saArray ) , 0 ) + HBTEST AScan( saAllTypes, scStringE ) IS 1 + HBTEST AScan( saAllTypes, scStringZ ) IS 3 + HBTEST AScan( saAllTypes, snIntZ ) IS 4 + HBTEST AScan( saAllTypes, snDoubleZ ) IS 4 + HBTEST AScan( saAllTypes, snIntP ) IS 6 + HBTEST AScan( saAllTypes, snLongP ) IS 7 + HBTEST AScan( saAllTypes, snDoubleP ) IS 8 + HBTEST AScan( saAllTypes, snIntN ) IS 9 + HBTEST AScan( saAllTypes, snLongN ) IS 10 + HBTEST AScan( saAllTypes, snDoubleN ) IS 11 + HBTEST AScan( saAllTypes, snDoubleI ) IS 4 + HBTEST AScan( saAllTypes, sdDateE ) IS 13 + HBTEST AScan( saAllTypes, slFalse ) IS 14 + HBTEST AScan( saAllTypes, slTrue ) IS 15 + HBTEST AScan( saAllTypes, soObject ) IS 0 + HBTEST AScan( saAllTypes, suNIL ) IS 17 + HBTEST AScan( saAllTypes, sbBlock ) IS 0 + HBTEST AScan( saAllTypes, sbBlockC ) IS 0 + HBTEST AScan( saAllTypes, saArray ) IS 0 SET EXACT ON - TEST_LINE( AScan( saAllTypes, scString ) , 1 ) - TEST_LINE( AScan( saAllTypes, scStringE ) , 2 ) - TEST_LINE( AScan( saAllTypes, scStringZ ) , 3 ) + HBTEST AScan( saAllTypes, scString ) IS 1 + HBTEST AScan( saAllTypes, scStringE ) IS 2 + HBTEST AScan( saAllTypes, scStringZ ) IS 3 SET EXACT OFF - TEST_LINE( TAEVSM() , "N10N 9N 8N 7N 6N 5N 4N 3N 2N 1 0" ) /* Bug in CA-Cl*pper 5.x */ - TEST_LINE( TASOSM1() , "NN 5NN 4NN 3NN 2NN 1NN 0NN 0NN 0NN 0NN 0NN 0NN 0 0{ }" ) - TEST_LINE( TASOSM2() , "NN 5NN 4NN 3NN 2NN 1NN 0NN 0NN 0NN 0NN 0 0{ }" ) + HBTEST TAEVSM() IS "N10N 9N 8N 7N 6N 5N 4N 3N 2N 1 0" /* Bug in CA-Cl*pper 5.x */ + HBTEST TASOSM1() IS "NN 5NN 4NN 3NN 2NN 1NN 0NN 0NN 0NN 0NN 0NN 0NN 0 0{ }" + HBTEST TASOSM2() IS "NN 5NN 4NN 3NN 2NN 1NN 0NN 0NN 0NN 0NN 0 0{ }" RETURN diff --git a/harbour/utils/hbtest/rt_class.prg b/harbour/utils/hbtest/rt_class.prg index 6532aec5c7..a971a57b42 100644 --- a/harbour/utils/hbtest/rt_class.prg +++ b/harbour/utils/hbtest/rt_class.prg @@ -68,94 +68,94 @@ PROCEDURE Main_CLASS() /* Test destructors */ - TEST_LINE( cDtorResult := "" , "" ) - TEST_LINE( objHolder := NIL , NIL ) + HBTEST cDtorResult := "" IS "" + HBTEST objHolder := NIL IS NIL oValue := DTORCLASS():NEW(0) - TEST_LINE( oValue:type , 0 ) - TEST_LINE( oValue := NIL , NIL ) - TEST_LINE( objHolder , NIL ) - TEST_LINE( cDtorResult , "No references to self." ) + HBTEST oValue:type IS 0 + HBTEST oValue := NIL IS NIL + HBTEST objHolder IS NIL + HBTEST cDtorResult IS "No references to self." - TEST_LINE( cDtorResult := "" , "" ) - TEST_LINE( objHolder := NIL , NIL ) + HBTEST cDtorResult := "" IS "" + HBTEST objHolder := NIL IS NIL oValue := DTORCLASS():NEW(1) - TEST_LINE( oValue:type , 1 ) - TEST_LINE( oValue := NIL , NIL ) - TEST_LINE( objHolder , NIL ) - TEST_LINE( cDtorResult , "Reference to self in instance variable." ) + HBTEST oValue:type IS 1 + HBTEST oValue := NIL IS NIL + HBTEST objHolder IS NIL + HBTEST cDtorResult IS "Reference to self in instance variable." - TEST_LINE( cDtorResult := "" , "" ) - TEST_LINE( objHolder := NIL , NIL ) + HBTEST cDtorResult := "" IS "" + HBTEST objHolder := NIL IS NIL oValue := DTORCLASS():NEW(2) - TEST_LINE( oValue:type , 2 ) - TEST_LINE( oValue := NIL , "E 45 BASE 1301 Object destructor failure (Reference to freed block) OS:0 #:0 " ) - TEST_LINE( objHolder , NIL ) - TEST_LINE( cDtorResult , "Reference to self in class variable." ) + HBTEST oValue:type IS 2 + HBTEST oValue := NIL IS "E 45 BASE 1301 Object destructor failure (Reference to freed block) OS:0 #:0 " + HBTEST objHolder IS NIL + HBTEST cDtorResult IS "Reference to self in class variable." - TEST_LINE( cDtorResult := "" , "" ) - TEST_LINE( objHolder := NIL , NIL ) + HBTEST cDtorResult := "" IS "" + HBTEST objHolder := NIL IS NIL oValue := DTORCLASS():NEW(3) - TEST_LINE( oValue:type , 3 ) - TEST_LINE( oValue := NIL , "E 45 BASE 1301 Object destructor failure (Reference to freed block) OS:0 #:0 " ) - TEST_LINE( ValType(objHolder) , "A" ) - TEST_LINE( Len(objHolder) , 0 ) - TEST_LINE( cDtorResult , "Reference to self in private memvar." ) + HBTEST oValue:type IS 3 + HBTEST oValue := NIL IS "E 45 BASE 1301 Object destructor failure (Reference to freed block) OS:0 #:0 " + HBTEST ValType(objHolder) IS "A" + HBTEST Len(objHolder) IS 0 + HBTEST cDtorResult IS "Reference to self in private memvar." /* Tests with cross references and releasing by Garbage Collector */ - TEST_LINE( cDtorResult := "" , "" ) - TEST_LINE( objHolder := NIL , NIL ) + HBTEST cDtorResult := "" IS "" + HBTEST objHolder := NIL IS NIL oValue := DTORCLASS():NEW(0) - TEST_LINE( oValue:type , 0 ) + HBTEST oValue:type IS 0 /* create cross reference */ aRef := { oValue, NIL }; aRef[2] := aRef; aRef := NIL - TEST_LINE( oValue := NIL , NIL ) - TEST_LINE( objHolder , NIL ) - TEST_LINE( cDtorResult , "" ) - TEST_LINE( hb_gcAll() , NIL ) - TEST_LINE( objHolder , NIL ) - TEST_LINE( cDtorResult , "No references to self." ) + HBTEST oValue := NIL IS NIL + HBTEST objHolder IS NIL + HBTEST cDtorResult IS "" + HBTEST hb_gcAll() IS NIL + HBTEST objHolder IS NIL + HBTEST cDtorResult IS "No references to self." - TEST_LINE( cDtorResult := "" , "" ) - TEST_LINE( objHolder := NIL , NIL ) + HBTEST cDtorResult := "" IS "" + HBTEST objHolder := NIL IS NIL oValue := DTORCLASS():NEW(1) - TEST_LINE( oValue:type , 1 ) + HBTEST oValue:type IS 1 /* create cross reference */ aRef := { oValue, NIL }; aRef[2] := aRef; aRef := NIL - TEST_LINE( oValue := NIL , NIL ) - TEST_LINE( objHolder , NIL ) - TEST_LINE( cDtorResult , "" ) - TEST_LINE( hb_gcAll() , NIL ) - TEST_LINE( objHolder , NIL ) - TEST_LINE( cDtorResult , "Reference to self in instance variable." ) + HBTEST oValue := NIL IS NIL + HBTEST objHolder IS NIL + HBTEST cDtorResult IS "" + HBTEST hb_gcAll() IS NIL + HBTEST objHolder IS NIL + HBTEST cDtorResult IS "Reference to self in instance variable." - TEST_LINE( cDtorResult := "" , "" ) - TEST_LINE( objHolder := NIL , NIL ) + HBTEST cDtorResult := "" IS "" + HBTEST objHolder := NIL IS NIL oValue := DTORCLASS():NEW(2) - TEST_LINE( oValue:type , 2 ) + HBTEST oValue:type IS 2 /* create cross reference */ aRef := { oValue, NIL }; aRef[2] := aRef; aRef := NIL - TEST_LINE( oValue := NIL , NIL ) - TEST_LINE( objHolder , NIL ) - TEST_LINE( cDtorResult , "" ) - TEST_LINE( hb_gcAll() , "E 45 BASE 1301 Object destructor failure (Reference to freed block) OS:0 #:0 " ) - TEST_LINE( objHolder , NIL ) - TEST_LINE( cDtorResult , "Reference to self in class variable." ) + HBTEST oValue := NIL IS NIL + HBTEST objHolder IS NIL + HBTEST cDtorResult IS "" + HBTEST hb_gcAll() IS "E 45 BASE 1301 Object destructor failure (Reference to freed block) OS:0 #:0 " + HBTEST objHolder IS NIL + HBTEST cDtorResult IS "Reference to self in class variable." - TEST_LINE( cDtorResult := "" , "" ) - TEST_LINE( objHolder := NIL , NIL ) + HBTEST cDtorResult := "" IS "" + HBTEST objHolder := NIL IS NIL oValue := DTORCLASS():NEW(3) - TEST_LINE( oValue:type , 3 ) + HBTEST oValue:type IS 3 /* create cross reference */ aRef := { oValue, NIL }; aRef[2] := aRef; aRef := NIL - TEST_LINE( oValue := NIL , NIL ) - TEST_LINE( objHolder , NIL ) - TEST_LINE( cDtorResult , "" ) - TEST_LINE( hb_gcAll() , "E 45 BASE 1301 Object destructor failure (Reference to freed block) OS:0 #:0 " ) - TEST_LINE( ValType(objHolder) , "A" ) - TEST_LINE( Len(objHolder) , 0 ) - TEST_LINE( cDtorResult , "Reference to self in private memvar." ) + HBTEST oValue := NIL IS NIL + HBTEST objHolder IS NIL + HBTEST cDtorResult IS "" + HBTEST hb_gcAll() IS "E 45 BASE 1301 Object destructor failure (Reference to freed block) OS:0 #:0 " + HBTEST ValType(objHolder) IS "A" + HBTEST Len(objHolder) IS 0 + HBTEST cDtorResult IS "Reference to self in private memvar." @@ -163,901 +163,901 @@ PROCEDURE Main_CLASS() oValue := IVARSCLASS4():new() - TEST_LINE( oValue:x1 , "(x1)" ) - TEST_LINE( oValue:y1 , "(y1)" ) - TEST_LINE( oValue:z1 , "(z1)" ) - TEST_LINE( oValue:x2 , "(x2)" ) - TEST_LINE( oValue:y2 , "(y2)" ) - TEST_LINE( oValue:z2 , "(z2)" ) - TEST_LINE( oValue:x3 , "(x3)" ) - TEST_LINE( oValue:y3 , "(y3)" ) - TEST_LINE( oValue:z3 , "(z3)" ) - TEST_LINE( oValue:x4 , "(x4)" ) - TEST_LINE( oValue:y4 , "(y4)" ) - TEST_LINE( oValue:z4 , "(z4)" ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[12]: (x1) (y1) (z1) (x2) (y2) (z2) (x3) (y3) (z3) (x4) (y4) (z4)" ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS "(x1)" + HBTEST oValue:y1 IS "(y1)" + HBTEST oValue:z1 IS "(z1)" + HBTEST oValue:x2 IS "(x2)" + HBTEST oValue:y2 IS "(y2)" + HBTEST oValue:z2 IS "(z2)" + HBTEST oValue:x3 IS "(x3)" + HBTEST oValue:y3 IS "(y3)" + HBTEST oValue:z3 IS "(z3)" + HBTEST oValue:x4 IS "(x4)" + HBTEST oValue:y4 IS "(y4)" + HBTEST oValue:z4 IS "(z4)" + HBTEST INSTANCE_DATA( oValue ) IS "[12]: (x1) (y1) (z1) (x2) (y2) (z2) (x3) (y3) (z3) (x4) (y4) (z4)" + HBTEST __cls_CntClsData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* simple assignment... */ - TEST_LINE( oValue:x1 := " X1 " , " X1 " ) - TEST_LINE( oValue:y1 := " Y1 " , " Y1 " ) - TEST_LINE( oValue:z1 := " Z1 " , " Z1 " ) - TEST_LINE( oValue:x2 := " X2 " , " X2 " ) - TEST_LINE( oValue:y2 := " Y2 " , " Y2 " ) - TEST_LINE( oValue:z2 := " Z2 " , " Z2 " ) - TEST_LINE( oValue:x3 := " X3 " , " X3 " ) - TEST_LINE( oValue:y3 := " Y3 " , " Y3 " ) - TEST_LINE( oValue:z3 := " Z3 " , " Z3 " ) - TEST_LINE( oValue:x4 := " X4 " , " X4 " ) - TEST_LINE( oValue:y4 := " Y4 " , " Y4 " ) - TEST_LINE( oValue:z4 := " Z4 " , " Z4 " ) + HBTEST oValue:x1 := " X1 " IS " X1 " + HBTEST oValue:y1 := " Y1 " IS " Y1 " + HBTEST oValue:z1 := " Z1 " IS " Z1 " + HBTEST oValue:x2 := " X2 " IS " X2 " + HBTEST oValue:y2 := " Y2 " IS " Y2 " + HBTEST oValue:z2 := " Z2 " IS " Z2 " + HBTEST oValue:x3 := " X3 " IS " X3 " + HBTEST oValue:y3 := " Y3 " IS " Y3 " + HBTEST oValue:z3 := " Z3 " IS " Z3 " + HBTEST oValue:x4 := " X4 " IS " X4 " + HBTEST oValue:y4 := " Y4 " IS " Y4 " + HBTEST oValue:z4 := " Z4 " IS " Z4 " - TEST_LINE( oValue:x1 , " X1 " ) - TEST_LINE( oValue:y1 , " Y1 " ) - TEST_LINE( oValue:z1 , " Z1 " ) - TEST_LINE( oValue:x2 , " X2 " ) - TEST_LINE( oValue:y2 , " Y2 " ) - TEST_LINE( oValue:z2 , " Z2 " ) - TEST_LINE( oValue:x3 , " X3 " ) - TEST_LINE( oValue:y3 , " Y3 " ) - TEST_LINE( oValue:z3 , " Z3 " ) - TEST_LINE( oValue:x4 , " X4 " ) - TEST_LINE( oValue:y4 , " Y4 " ) - TEST_LINE( oValue:z4 , " Z4 " ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[12]: X1 Y1 Z1 X2 Y2 Z2 X3 Y3 Z3 X4 Y4 Z4 " ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS " X1 " + HBTEST oValue:y1 IS " Y1 " + HBTEST oValue:z1 IS " Z1 " + HBTEST oValue:x2 IS " X2 " + HBTEST oValue:y2 IS " Y2 " + HBTEST oValue:z2 IS " Z2 " + HBTEST oValue:x3 IS " X3 " + HBTEST oValue:y3 IS " Y3 " + HBTEST oValue:z3 IS " Z3 " + HBTEST oValue:x4 IS " X4 " + HBTEST oValue:y4 IS " Y4 " + HBTEST oValue:z4 IS " Z4 " + HBTEST INSTANCE_DATA( oValue ) IS "[12]: X1 Y1 Z1 X2 Y2 Z2 X3 Y3 Z3 X4 Y4 Z4 " + HBTEST __cls_CntClsData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* Setting IVARSCLASS1 instance variables... */ - TEST_LINE( oValue:IVARSCLASS1:x1 := "[X1]" , "[X1]" ) - TEST_LINE( oValue:IVARSCLASS1:y1 := "[Y1]" , "[Y1]" ) - TEST_LINE( oValue:IVARSCLASS1:z1 := "[Z1]" , "[Z1]" ) + HBTEST oValue:IVARSCLASS1:x1 := "[X1]" IS "[X1]" + HBTEST oValue:IVARSCLASS1:y1 := "[Y1]" IS "[Y1]" + HBTEST oValue:IVARSCLASS1:z1 := "[Z1]" IS "[Z1]" - TEST_LINE( oValue:x1 , "[X1]" ) - TEST_LINE( oValue:y1 , "[Y1]" ) - TEST_LINE( oValue:z1 , "[Z1]" ) - TEST_LINE( oValue:x2 , " X2 " ) - TEST_LINE( oValue:y2 , " Y2 " ) - TEST_LINE( oValue:z2 , " Z2 " ) - TEST_LINE( oValue:x3 , " X3 " ) - TEST_LINE( oValue:y3 , " Y3 " ) - TEST_LINE( oValue:z3 , " Z3 " ) - TEST_LINE( oValue:x4 , " X4 " ) - TEST_LINE( oValue:y4 , " Y4 " ) - TEST_LINE( oValue:z4 , " Z4 " ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[12]: [X1] [Y1] [Z1] X2 Y2 Z2 X3 Y3 Z3 X4 Y4 Z4 " ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS "[X1]" + HBTEST oValue:y1 IS "[Y1]" + HBTEST oValue:z1 IS "[Z1]" + HBTEST oValue:x2 IS " X2 " + HBTEST oValue:y2 IS " Y2 " + HBTEST oValue:z2 IS " Z2 " + HBTEST oValue:x3 IS " X3 " + HBTEST oValue:y3 IS " Y3 " + HBTEST oValue:z3 IS " Z3 " + HBTEST oValue:x4 IS " X4 " + HBTEST oValue:y4 IS " Y4 " + HBTEST oValue:z4 IS " Z4 " + HBTEST INSTANCE_DATA( oValue ) IS "[12]: [X1] [Y1] [Z1] X2 Y2 Z2 X3 Y3 Z3 X4 Y4 Z4 " + HBTEST __cls_CntClsData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* Setting IVARSCLASS2 instance variables... */ - TEST_LINE( oValue:IVARSCLASS2:x2 := "[X2]" , "[X2]" ) - TEST_LINE( oValue:IVARSCLASS2:y2 := "[Y2]" , "[Y2]" ) - TEST_LINE( oValue:IVARSCLASS2:z2 := "[Z2]" , "[Z2]" ) + HBTEST oValue:IVARSCLASS2:x2 := "[X2]" IS "[X2]" + HBTEST oValue:IVARSCLASS2:y2 := "[Y2]" IS "[Y2]" + HBTEST oValue:IVARSCLASS2:z2 := "[Z2]" IS "[Z2]" - TEST_LINE( oValue:x1 , "[X1]" ) - TEST_LINE( oValue:y1 , "[Y1]" ) - TEST_LINE( oValue:z1 , "[Z1]" ) - TEST_LINE( oValue:x2 , "[X2]" ) - TEST_LINE( oValue:y2 , "[Y2]" ) - TEST_LINE( oValue:z2 , "[Z2]" ) - TEST_LINE( oValue:x3 , " X3 " ) - TEST_LINE( oValue:y3 , " Y3 " ) - TEST_LINE( oValue:z3 , " Z3 " ) - TEST_LINE( oValue:x4 , " X4 " ) - TEST_LINE( oValue:y4 , " Y4 " ) - TEST_LINE( oValue:z4 , " Z4 " ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[12]: [X1] [Y1] [Z1] [X2] [Y2] [Z2] X3 Y3 Z3 X4 Y4 Z4 " ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS "[X1]" + HBTEST oValue:y1 IS "[Y1]" + HBTEST oValue:z1 IS "[Z1]" + HBTEST oValue:x2 IS "[X2]" + HBTEST oValue:y2 IS "[Y2]" + HBTEST oValue:z2 IS "[Z2]" + HBTEST oValue:x3 IS " X3 " + HBTEST oValue:y3 IS " Y3 " + HBTEST oValue:z3 IS " Z3 " + HBTEST oValue:x4 IS " X4 " + HBTEST oValue:y4 IS " Y4 " + HBTEST oValue:z4 IS " Z4 " + HBTEST INSTANCE_DATA( oValue ) IS "[12]: [X1] [Y1] [Z1] [X2] [Y2] [Z2] X3 Y3 Z3 X4 Y4 Z4 " + HBTEST __cls_CntClsData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* Setting IVARSCLASS3 instance variables... */ - TEST_LINE( oValue:IVARSCLASS3:x3 := "[X3]" , "[X3]" ) - TEST_LINE( oValue:IVARSCLASS3:y3 := "[Y3]" , "[Y3]" ) - TEST_LINE( oValue:IVARSCLASS3:z3 := "[Z3]" , "[Z3]" ) + HBTEST oValue:IVARSCLASS3:x3 := "[X3]" IS "[X3]" + HBTEST oValue:IVARSCLASS3:y3 := "[Y3]" IS "[Y3]" + HBTEST oValue:IVARSCLASS3:z3 := "[Z3]" IS "[Z3]" - TEST_LINE( oValue:x1 , "[X1]" ) - TEST_LINE( oValue:y1 , "[Y1]" ) - TEST_LINE( oValue:z1 , "[Z1]" ) - TEST_LINE( oValue:x2 , "[X2]" ) - TEST_LINE( oValue:y2 , "[Y2]" ) - TEST_LINE( oValue:z2 , "[Z2]" ) - TEST_LINE( oValue:x3 , "[X3]" ) - TEST_LINE( oValue:y3 , "[Y3]" ) - TEST_LINE( oValue:z3 , "[Z3]" ) - TEST_LINE( oValue:x4 , " X4 " ) - TEST_LINE( oValue:y4 , " Y4 " ) - TEST_LINE( oValue:z4 , " Z4 " ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[12]: [X1] [Y1] [Z1] [X2] [Y2] [Z2] [X3] [Y3] [Z3] X4 Y4 Z4 " ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS "[X1]" + HBTEST oValue:y1 IS "[Y1]" + HBTEST oValue:z1 IS "[Z1]" + HBTEST oValue:x2 IS "[X2]" + HBTEST oValue:y2 IS "[Y2]" + HBTEST oValue:z2 IS "[Z2]" + HBTEST oValue:x3 IS "[X3]" + HBTEST oValue:y3 IS "[Y3]" + HBTEST oValue:z3 IS "[Z3]" + HBTEST oValue:x4 IS " X4 " + HBTEST oValue:y4 IS " Y4 " + HBTEST oValue:z4 IS " Z4 " + HBTEST INSTANCE_DATA( oValue ) IS "[12]: [X1] [Y1] [Z1] [X2] [Y2] [Z2] [X3] [Y3] [Z3] X4 Y4 Z4 " + HBTEST __cls_CntClsData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* Setting IVARSCLASS4 instance variables... */ - TEST_LINE( oValue:IVARSCLASS4:x4 := "[X4]" , "[X4]" ) - TEST_LINE( oValue:IVARSCLASS4:y4 := "[Y4]" , "[Y4]" ) - TEST_LINE( oValue:IVARSCLASS4:z4 := "[Z4]" , "[Z4]" ) + HBTEST oValue:IVARSCLASS4:x4 := "[X4]" IS "[X4]" + HBTEST oValue:IVARSCLASS4:y4 := "[Y4]" IS "[Y4]" + HBTEST oValue:IVARSCLASS4:z4 := "[Z4]" IS "[Z4]" - TEST_LINE( oValue:x1 , "[X1]" ) - TEST_LINE( oValue:y1 , "[Y1]" ) - TEST_LINE( oValue:z1 , "[Z1]" ) - TEST_LINE( oValue:x2 , "[X2]" ) - TEST_LINE( oValue:y2 , "[Y2]" ) - TEST_LINE( oValue:z2 , "[Z2]" ) - TEST_LINE( oValue:x3 , "[X3]" ) - TEST_LINE( oValue:y3 , "[Y3]" ) - TEST_LINE( oValue:z3 , "[Z3]" ) - TEST_LINE( oValue:x4 , "[X4]" ) - TEST_LINE( oValue:y4 , "[Y4]" ) - TEST_LINE( oValue:z4 , "[Z4]" ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[12]: [X1] [Y1] [Z1] [X2] [Y2] [Z2] [X3] [Y3] [Z3] [X4] [Y4] [Z4]" ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS "[X1]" + HBTEST oValue:y1 IS "[Y1]" + HBTEST oValue:z1 IS "[Z1]" + HBTEST oValue:x2 IS "[X2]" + HBTEST oValue:y2 IS "[Y2]" + HBTEST oValue:z2 IS "[Z2]" + HBTEST oValue:x3 IS "[X3]" + HBTEST oValue:y3 IS "[Y3]" + HBTEST oValue:z3 IS "[Z3]" + HBTEST oValue:x4 IS "[X4]" + HBTEST oValue:y4 IS "[Y4]" + HBTEST oValue:z4 IS "[Z4]" + HBTEST INSTANCE_DATA( oValue ) IS "[12]: [X1] [Y1] [Z1] [X2] [Y2] [Z2] [X3] [Y3] [Z3] [X4] [Y4] [Z4]" + HBTEST __cls_CntClsData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* Setting IVARSCLASS3:IVARSCLASS1 instance variables... */ - TEST_LINE( oValue:IVARSCLASS3:IVARSCLASS1:x1 := "" , "" ) - TEST_LINE( oValue:IVARSCLASS3:IVARSCLASS1:y1 := "" , "" ) - TEST_LINE( oValue:IVARSCLASS3:IVARSCLASS1:z1 := "" , "" ) + HBTEST oValue:IVARSCLASS3:IVARSCLASS1:x1 := "" IS "" + HBTEST oValue:IVARSCLASS3:IVARSCLASS1:y1 := "" IS "" + HBTEST oValue:IVARSCLASS3:IVARSCLASS1:z1 := "" IS "" - TEST_LINE( oValue:x1 , "" ) - TEST_LINE( oValue:y1 , "" ) - TEST_LINE( oValue:z1 , "" ) - TEST_LINE( oValue:x2 , "[X2]" ) - TEST_LINE( oValue:y2 , "[Y2]" ) - TEST_LINE( oValue:z2 , "[Z2]" ) - TEST_LINE( oValue:x3 , "[X3]" ) - TEST_LINE( oValue:y3 , "[Y3]" ) - TEST_LINE( oValue:z3 , "[Z3]" ) - TEST_LINE( oValue:x4 , "[X4]" ) - TEST_LINE( oValue:y4 , "[Y4]" ) - TEST_LINE( oValue:z4 , "[Z4]" ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[12]: [X2] [Y2] [Z2] [X3] [Y3] [Z3] [X4] [Y4] [Z4]" ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS "" + HBTEST oValue:y1 IS "" + HBTEST oValue:z1 IS "" + HBTEST oValue:x2 IS "[X2]" + HBTEST oValue:y2 IS "[Y2]" + HBTEST oValue:z2 IS "[Z2]" + HBTEST oValue:x3 IS "[X3]" + HBTEST oValue:y3 IS "[Y3]" + HBTEST oValue:z3 IS "[Z3]" + HBTEST oValue:x4 IS "[X4]" + HBTEST oValue:y4 IS "[Y4]" + HBTEST oValue:z4 IS "[Z4]" + HBTEST INSTANCE_DATA( oValue ) IS "[12]: [X2] [Y2] [Z2] [X3] [Y3] [Z3] [X4] [Y4] [Z4]" + HBTEST __cls_CntClsData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* Setting IVARSCLASS3:IVARSCLASS2 instance variables... */ - TEST_LINE( oValue:IVARSCLASS3:IVARSCLASS2:x2 := "" , "" ) - TEST_LINE( oValue:IVARSCLASS3:IVARSCLASS2:y2 := "" , "" ) - TEST_LINE( oValue:IVARSCLASS3:IVARSCLASS2:z2 := "" , "" ) + HBTEST oValue:IVARSCLASS3:IVARSCLASS2:x2 := "" IS "" + HBTEST oValue:IVARSCLASS3:IVARSCLASS2:y2 := "" IS "" + HBTEST oValue:IVARSCLASS3:IVARSCLASS2:z2 := "" IS "" - TEST_LINE( oValue:x1 , "" ) - TEST_LINE( oValue:y1 , "" ) - TEST_LINE( oValue:z1 , "" ) - TEST_LINE( oValue:x2 , "" ) - TEST_LINE( oValue:y2 , "" ) - TEST_LINE( oValue:z2 , "" ) - TEST_LINE( oValue:x3 , "[X3]" ) - TEST_LINE( oValue:y3 , "[Y3]" ) - TEST_LINE( oValue:z3 , "[Z3]" ) - TEST_LINE( oValue:x4 , "[X4]" ) - TEST_LINE( oValue:y4 , "[Y4]" ) - TEST_LINE( oValue:z4 , "[Z4]" ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[12]: [X3] [Y3] [Z3] [X4] [Y4] [Z4]" ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS "" + HBTEST oValue:y1 IS "" + HBTEST oValue:z1 IS "" + HBTEST oValue:x2 IS "" + HBTEST oValue:y2 IS "" + HBTEST oValue:z2 IS "" + HBTEST oValue:x3 IS "[X3]" + HBTEST oValue:y3 IS "[Y3]" + HBTEST oValue:z3 IS "[Z3]" + HBTEST oValue:x4 IS "[X4]" + HBTEST oValue:y4 IS "[Y4]" + HBTEST oValue:z4 IS "[Z4]" + HBTEST INSTANCE_DATA( oValue ) IS "[12]: [X3] [Y3] [Z3] [X4] [Y4] [Z4]" + HBTEST __cls_CntClsData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* Setting SUPER instance variables... */ - TEST_LINE( oValue:super:x1 := "{X1}" , "{X1}" ) - TEST_LINE( oValue:super:y1 := "{Y1}" , "{Y1}" ) - TEST_LINE( oValue:super:z1 := "{Z1}" , "{Z1}" ) - TEST_LINE( oValue:super:x2 := "{X2}" , "{X2}" ) - TEST_LINE( oValue:super:y2 := "{Y2}" , "{Y2}" ) - TEST_LINE( oValue:super:z2 := "{Z2}" , "{Z2}" ) - TEST_LINE( oValue:super:x3 := "{X3}" , "{X3}" ) - TEST_LINE( oValue:super:y3 := "{Y3}" , "{Y3}" ) - TEST_LINE( oValue:super:z3 := "{Z3}" , "{Z3}" ) + HBTEST oValue:super:x1 := "{X1}" IS "{X1}" + HBTEST oValue:super:y1 := "{Y1}" IS "{Y1}" + HBTEST oValue:super:z1 := "{Z1}" IS "{Z1}" + HBTEST oValue:super:x2 := "{X2}" IS "{X2}" + HBTEST oValue:super:y2 := "{Y2}" IS "{Y2}" + HBTEST oValue:super:z2 := "{Z2}" IS "{Z2}" + HBTEST oValue:super:x3 := "{X3}" IS "{X3}" + HBTEST oValue:super:y3 := "{Y3}" IS "{Y3}" + HBTEST oValue:super:z3 := "{Z3}" IS "{Z3}" - TEST_LINE( oValue:x1 , "{X1}" ) - TEST_LINE( oValue:y1 , "{Y1}" ) - TEST_LINE( oValue:z1 , "{Z1}" ) - TEST_LINE( oValue:x2 , "{X2}" ) - TEST_LINE( oValue:y2 , "{Y2}" ) - TEST_LINE( oValue:z2 , "{Z2}" ) - TEST_LINE( oValue:x3 , "{X3}" ) - TEST_LINE( oValue:y3 , "{Y3}" ) - TEST_LINE( oValue:z3 , "{Z3}" ) - TEST_LINE( oValue:x4 , "[X4]" ) - TEST_LINE( oValue:y4 , "[Y4]" ) - TEST_LINE( oValue:z4 , "[Z4]" ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[12]: {X1} {Y1} {Z1} {X2} {Y2} {Z2} {X3} {Y3} {Z3} [X4] [Y4] [Z4]" ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:IVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS "{X1}" + HBTEST oValue:y1 IS "{Y1}" + HBTEST oValue:z1 IS "{Z1}" + HBTEST oValue:x2 IS "{X2}" + HBTEST oValue:y2 IS "{Y2}" + HBTEST oValue:z2 IS "{Z2}" + HBTEST oValue:x3 IS "{X3}" + HBTEST oValue:y3 IS "{Y3}" + HBTEST oValue:z3 IS "{Z3}" + HBTEST oValue:x4 IS "[X4]" + HBTEST oValue:y4 IS "[Y4]" + HBTEST oValue:z4 IS "[Z4]" + HBTEST INSTANCE_DATA( oValue ) IS "[12]: {X1} {Y1} {Z1} {X2} {Y2} {Z2} {X3} {Y3} {Z3} [X4] [Y4] [Z4]" + HBTEST __cls_CntClsData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:IVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* Test class variables allocating and casting */ oValue := CVARSCLASS4():new() - TEST_LINE( oValue:x1 , "(x1)" ) - TEST_LINE( oValue:y1 , "(y1)" ) - TEST_LINE( oValue:z1 , "(z1)" ) - TEST_LINE( oValue:x2 , "(x2)" ) - TEST_LINE( oValue:y2 , "(y2)" ) - TEST_LINE( oValue:z2 , "(z2)" ) - TEST_LINE( oValue:x3 , "(x3)" ) - TEST_LINE( oValue:y3 , "(y3)" ) - TEST_LINE( oValue:z3 , "(z3)" ) - TEST_LINE( oValue:x4 , "(x4)" ) - TEST_LINE( oValue:y4 , "(y4)" ) - TEST_LINE( oValue:z4 , "(z4)" ) - TEST_LINE( oValue:CVARSCLASS1:x1 , "(x1)" ) - TEST_LINE( oValue:CVARSCLASS1:y1 , "(y1)" ) - TEST_LINE( oValue:CVARSCLASS1:z1 , "(z1)" ) - TEST_LINE( oValue:CVARSCLASS2:x1 , "(x1)" ) - TEST_LINE( oValue:CVARSCLASS2:y1 , "(y1)" ) - TEST_LINE( oValue:CVARSCLASS2:z1 , "(z1)" ) - TEST_LINE( oValue:CVARSCLASS2:x2 , "(x2)" ) - TEST_LINE( oValue:CVARSCLASS2:y2 , "(y2)" ) - TEST_LINE( oValue:CVARSCLASS2:z2 , "(z2)" ) - TEST_LINE( oValue:CVARSCLASS3:x1 , "(x1)" ) - TEST_LINE( oValue:CVARSCLASS3:y1 , "(y1)" ) - TEST_LINE( oValue:CVARSCLASS3:z1 , "(z1)" ) - TEST_LINE( oValue:CVARSCLASS3:x2 , "(x2)" ) - TEST_LINE( oValue:CVARSCLASS3:y2 , "(y2)" ) - TEST_LINE( oValue:CVARSCLASS3:z2 , "(z2)" ) - TEST_LINE( oValue:CVARSCLASS3:x3 , "(x3)" ) - TEST_LINE( oValue:CVARSCLASS3:y3 , "(y3)" ) - TEST_LINE( oValue:CVARSCLASS3:z3 , "(z3)" ) - TEST_LINE( oValue:CVARSCLASS4:x1 , "(x1)" ) - TEST_LINE( oValue:CVARSCLASS4:y1 , "(y1)" ) - TEST_LINE( oValue:CVARSCLASS4:z1 , "(z1)" ) - TEST_LINE( oValue:CVARSCLASS4:x2 , "(x2)" ) - TEST_LINE( oValue:CVARSCLASS4:y2 , "(y2)" ) - TEST_LINE( oValue:CVARSCLASS4:z2 , "(z2)" ) - TEST_LINE( oValue:CVARSCLASS4:x3 , "(x3)" ) - TEST_LINE( oValue:CVARSCLASS4:y3 , "(y3)" ) - TEST_LINE( oValue:CVARSCLASS4:z3 , "(z3)" ) - TEST_LINE( oValue:CVARSCLASS4:x4 , "(x4)" ) - TEST_LINE( oValue:CVARSCLASS4:y4 , "(y4)" ) - TEST_LINE( oValue:CVARSCLASS4:z4 , "(z4)" ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[0]:" ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS1:classH ) , 3 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS2:classH ) , 6 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS3:classH ) , 9 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS4:classH ) , 12 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 12 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS "(x1)" + HBTEST oValue:y1 IS "(y1)" + HBTEST oValue:z1 IS "(z1)" + HBTEST oValue:x2 IS "(x2)" + HBTEST oValue:y2 IS "(y2)" + HBTEST oValue:z2 IS "(z2)" + HBTEST oValue:x3 IS "(x3)" + HBTEST oValue:y3 IS "(y3)" + HBTEST oValue:z3 IS "(z3)" + HBTEST oValue:x4 IS "(x4)" + HBTEST oValue:y4 IS "(y4)" + HBTEST oValue:z4 IS "(z4)" + HBTEST oValue:CVARSCLASS1:x1 IS "(x1)" + HBTEST oValue:CVARSCLASS1:y1 IS "(y1)" + HBTEST oValue:CVARSCLASS1:z1 IS "(z1)" + HBTEST oValue:CVARSCLASS2:x1 IS "(x1)" + HBTEST oValue:CVARSCLASS2:y1 IS "(y1)" + HBTEST oValue:CVARSCLASS2:z1 IS "(z1)" + HBTEST oValue:CVARSCLASS2:x2 IS "(x2)" + HBTEST oValue:CVARSCLASS2:y2 IS "(y2)" + HBTEST oValue:CVARSCLASS2:z2 IS "(z2)" + HBTEST oValue:CVARSCLASS3:x1 IS "(x1)" + HBTEST oValue:CVARSCLASS3:y1 IS "(y1)" + HBTEST oValue:CVARSCLASS3:z1 IS "(z1)" + HBTEST oValue:CVARSCLASS3:x2 IS "(x2)" + HBTEST oValue:CVARSCLASS3:y2 IS "(y2)" + HBTEST oValue:CVARSCLASS3:z2 IS "(z2)" + HBTEST oValue:CVARSCLASS3:x3 IS "(x3)" + HBTEST oValue:CVARSCLASS3:y3 IS "(y3)" + HBTEST oValue:CVARSCLASS3:z3 IS "(z3)" + HBTEST oValue:CVARSCLASS4:x1 IS "(x1)" + HBTEST oValue:CVARSCLASS4:y1 IS "(y1)" + HBTEST oValue:CVARSCLASS4:z1 IS "(z1)" + HBTEST oValue:CVARSCLASS4:x2 IS "(x2)" + HBTEST oValue:CVARSCLASS4:y2 IS "(y2)" + HBTEST oValue:CVARSCLASS4:z2 IS "(z2)" + HBTEST oValue:CVARSCLASS4:x3 IS "(x3)" + HBTEST oValue:CVARSCLASS4:y3 IS "(y3)" + HBTEST oValue:CVARSCLASS4:z3 IS "(z3)" + HBTEST oValue:CVARSCLASS4:x4 IS "(x4)" + HBTEST oValue:CVARSCLASS4:y4 IS "(y4)" + HBTEST oValue:CVARSCLASS4:z4 IS "(z4)" + HBTEST INSTANCE_DATA( oValue ) IS "[0]:" + HBTEST __cls_CntClsData( oValue:CVARSCLASS1:classH ) IS 3 + HBTEST __cls_CntClsData( oValue:CVARSCLASS2:classH ) IS 6 + HBTEST __cls_CntClsData( oValue:CVARSCLASS3:classH ) IS 9 + HBTEST __cls_CntClsData( oValue:CVARSCLASS4:classH ) IS 12 + HBTEST __cls_CntClsData( oValue:classH ) IS 12 + HBTEST __cls_CntShrData( oValue:CVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* simple assignment... */ - TEST_LINE( oValue:x1 := " X1 " , " X1 " ) - TEST_LINE( oValue:y1 := " Y1 " , " Y1 " ) - TEST_LINE( oValue:z1 := " Z1 " , " Z1 " ) - TEST_LINE( oValue:x2 := " X2 " , " X2 " ) - TEST_LINE( oValue:y2 := " Y2 " , " Y2 " ) - TEST_LINE( oValue:z2 := " Z2 " , " Z2 " ) - TEST_LINE( oValue:x3 := " X3 " , " X3 " ) - TEST_LINE( oValue:y3 := " Y3 " , " Y3 " ) - TEST_LINE( oValue:z3 := " Z3 " , " Z3 " ) - TEST_LINE( oValue:x4 := " X4 " , " X4 " ) - TEST_LINE( oValue:y4 := " Y4 " , " Y4 " ) - TEST_LINE( oValue:z4 := " Z4 " , " Z4 " ) + HBTEST oValue:x1 := " X1 " IS " X1 " + HBTEST oValue:y1 := " Y1 " IS " Y1 " + HBTEST oValue:z1 := " Z1 " IS " Z1 " + HBTEST oValue:x2 := " X2 " IS " X2 " + HBTEST oValue:y2 := " Y2 " IS " Y2 " + HBTEST oValue:z2 := " Z2 " IS " Z2 " + HBTEST oValue:x3 := " X3 " IS " X3 " + HBTEST oValue:y3 := " Y3 " IS " Y3 " + HBTEST oValue:z3 := " Z3 " IS " Z3 " + HBTEST oValue:x4 := " X4 " IS " X4 " + HBTEST oValue:y4 := " Y4 " IS " Y4 " + HBTEST oValue:z4 := " Z4 " IS " Z4 " - TEST_LINE( oValue:x1 , " X1 " ) - TEST_LINE( oValue:y1 , " Y1 " ) - TEST_LINE( oValue:z1 , " Z1 " ) - TEST_LINE( oValue:x2 , " X2 " ) - TEST_LINE( oValue:y2 , " Y2 " ) - TEST_LINE( oValue:z2 , " Z2 " ) - TEST_LINE( oValue:x3 , " X3 " ) - TEST_LINE( oValue:y3 , " Y3 " ) - TEST_LINE( oValue:z3 , " Z3 " ) - TEST_LINE( oValue:x4 , " X4 " ) - TEST_LINE( oValue:y4 , " Y4 " ) - TEST_LINE( oValue:z4 , " Z4 " ) - TEST_LINE( oValue:CVARSCLASS1:x1 , "(x1)" ) - TEST_LINE( oValue:CVARSCLASS1:y1 , "(y1)" ) - TEST_LINE( oValue:CVARSCLASS1:z1 , "(z1)" ) - TEST_LINE( oValue:CVARSCLASS2:x1 , "(x1)" ) - TEST_LINE( oValue:CVARSCLASS2:y1 , "(y1)" ) - TEST_LINE( oValue:CVARSCLASS2:z1 , "(z1)" ) - TEST_LINE( oValue:CVARSCLASS2:x2 , "(x2)" ) - TEST_LINE( oValue:CVARSCLASS2:y2 , "(y2)" ) - TEST_LINE( oValue:CVARSCLASS2:z2 , "(z2)" ) - TEST_LINE( oValue:CVARSCLASS3:x1 , "(x1)" ) - TEST_LINE( oValue:CVARSCLASS3:y1 , "(y1)" ) - TEST_LINE( oValue:CVARSCLASS3:z1 , "(z1)" ) - TEST_LINE( oValue:CVARSCLASS3:x2 , "(x2)" ) - TEST_LINE( oValue:CVARSCLASS3:y2 , "(y2)" ) - TEST_LINE( oValue:CVARSCLASS3:z2 , "(z2)" ) - TEST_LINE( oValue:CVARSCLASS3:x3 , "(x3)" ) - TEST_LINE( oValue:CVARSCLASS3:y3 , "(y3)" ) - TEST_LINE( oValue:CVARSCLASS3:z3 , "(z3)" ) - TEST_LINE( oValue:CVARSCLASS4:x1 , " X1 " ) - TEST_LINE( oValue:CVARSCLASS4:y1 , " Y1 " ) - TEST_LINE( oValue:CVARSCLASS4:z1 , " Z1 " ) - TEST_LINE( oValue:CVARSCLASS4:x2 , " X2 " ) - TEST_LINE( oValue:CVARSCLASS4:y2 , " Y2 " ) - TEST_LINE( oValue:CVARSCLASS4:z2 , " Z2 " ) - TEST_LINE( oValue:CVARSCLASS4:x3 , " X3 " ) - TEST_LINE( oValue:CVARSCLASS4:y3 , " Y3 " ) - TEST_LINE( oValue:CVARSCLASS4:z3 , " Z3 " ) - TEST_LINE( oValue:CVARSCLASS4:x4 , " X4 " ) - TEST_LINE( oValue:CVARSCLASS4:y4 , " Y4 " ) - TEST_LINE( oValue:CVARSCLASS4:z4 , " Z4 " ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS1:classH ) , 3 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS2:classH ) , 6 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS3:classH ) , 9 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS4:classH ) , 12 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 12 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS " X1 " + HBTEST oValue:y1 IS " Y1 " + HBTEST oValue:z1 IS " Z1 " + HBTEST oValue:x2 IS " X2 " + HBTEST oValue:y2 IS " Y2 " + HBTEST oValue:z2 IS " Z2 " + HBTEST oValue:x3 IS " X3 " + HBTEST oValue:y3 IS " Y3 " + HBTEST oValue:z3 IS " Z3 " + HBTEST oValue:x4 IS " X4 " + HBTEST oValue:y4 IS " Y4 " + HBTEST oValue:z4 IS " Z4 " + HBTEST oValue:CVARSCLASS1:x1 IS "(x1)" + HBTEST oValue:CVARSCLASS1:y1 IS "(y1)" + HBTEST oValue:CVARSCLASS1:z1 IS "(z1)" + HBTEST oValue:CVARSCLASS2:x1 IS "(x1)" + HBTEST oValue:CVARSCLASS2:y1 IS "(y1)" + HBTEST oValue:CVARSCLASS2:z1 IS "(z1)" + HBTEST oValue:CVARSCLASS2:x2 IS "(x2)" + HBTEST oValue:CVARSCLASS2:y2 IS "(y2)" + HBTEST oValue:CVARSCLASS2:z2 IS "(z2)" + HBTEST oValue:CVARSCLASS3:x1 IS "(x1)" + HBTEST oValue:CVARSCLASS3:y1 IS "(y1)" + HBTEST oValue:CVARSCLASS3:z1 IS "(z1)" + HBTEST oValue:CVARSCLASS3:x2 IS "(x2)" + HBTEST oValue:CVARSCLASS3:y2 IS "(y2)" + HBTEST oValue:CVARSCLASS3:z2 IS "(z2)" + HBTEST oValue:CVARSCLASS3:x3 IS "(x3)" + HBTEST oValue:CVARSCLASS3:y3 IS "(y3)" + HBTEST oValue:CVARSCLASS3:z3 IS "(z3)" + HBTEST oValue:CVARSCLASS4:x1 IS " X1 " + HBTEST oValue:CVARSCLASS4:y1 IS " Y1 " + HBTEST oValue:CVARSCLASS4:z1 IS " Z1 " + HBTEST oValue:CVARSCLASS4:x2 IS " X2 " + HBTEST oValue:CVARSCLASS4:y2 IS " Y2 " + HBTEST oValue:CVARSCLASS4:z2 IS " Z2 " + HBTEST oValue:CVARSCLASS4:x3 IS " X3 " + HBTEST oValue:CVARSCLASS4:y3 IS " Y3 " + HBTEST oValue:CVARSCLASS4:z3 IS " Z3 " + HBTEST oValue:CVARSCLASS4:x4 IS " X4 " + HBTEST oValue:CVARSCLASS4:y4 IS " Y4 " + HBTEST oValue:CVARSCLASS4:z4 IS " Z4 " + HBTEST __cls_CntClsData( oValue:CVARSCLASS1:classH ) IS 3 + HBTEST __cls_CntClsData( oValue:CVARSCLASS2:classH ) IS 6 + HBTEST __cls_CntClsData( oValue:CVARSCLASS3:classH ) IS 9 + HBTEST __cls_CntClsData( oValue:CVARSCLASS4:classH ) IS 12 + HBTEST __cls_CntClsData( oValue:classH ) IS 12 + HBTEST __cls_CntShrData( oValue:CVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* Setting CVARSCLASS1 class variables... */ - TEST_LINE( oValue:CVARSCLASS1:x1 := "[X1]" , "[X1]" ) - TEST_LINE( oValue:CVARSCLASS1:y1 := "[Y1]" , "[Y1]" ) - TEST_LINE( oValue:CVARSCLASS1:z1 := "[Z1]" , "[Z1]" ) + HBTEST oValue:CVARSCLASS1:x1 := "[X1]" IS "[X1]" + HBTEST oValue:CVARSCLASS1:y1 := "[Y1]" IS "[Y1]" + HBTEST oValue:CVARSCLASS1:z1 := "[Z1]" IS "[Z1]" - TEST_LINE( oValue:x1 , " X1 " ) - TEST_LINE( oValue:y1 , " Y1 " ) - TEST_LINE( oValue:z1 , " Z1 " ) - TEST_LINE( oValue:x2 , " X2 " ) - TEST_LINE( oValue:y2 , " Y2 " ) - TEST_LINE( oValue:z2 , " Z2 " ) - TEST_LINE( oValue:x3 , " X3 " ) - TEST_LINE( oValue:y3 , " Y3 " ) - TEST_LINE( oValue:z3 , " Z3 " ) - TEST_LINE( oValue:x4 , " X4 " ) - TEST_LINE( oValue:y4 , " Y4 " ) - TEST_LINE( oValue:z4 , " Z4 " ) - TEST_LINE( oValue:CVARSCLASS1:x1 , "[X1]" ) - TEST_LINE( oValue:CVARSCLASS1:y1 , "[Y1]" ) - TEST_LINE( oValue:CVARSCLASS1:z1 , "[Z1]" ) - TEST_LINE( oValue:CVARSCLASS2:x1 , "(x1)" ) - TEST_LINE( oValue:CVARSCLASS2:y1 , "(y1)" ) - TEST_LINE( oValue:CVARSCLASS2:z1 , "(z1)" ) - TEST_LINE( oValue:CVARSCLASS2:x2 , "(x2)" ) - TEST_LINE( oValue:CVARSCLASS2:y2 , "(y2)" ) - TEST_LINE( oValue:CVARSCLASS2:z2 , "(z2)" ) - TEST_LINE( oValue:CVARSCLASS3:x1 , "(x1)" ) - TEST_LINE( oValue:CVARSCLASS3:y1 , "(y1)" ) - TEST_LINE( oValue:CVARSCLASS3:z1 , "(z1)" ) - TEST_LINE( oValue:CVARSCLASS3:x2 , "(x2)" ) - TEST_LINE( oValue:CVARSCLASS3:y2 , "(y2)" ) - TEST_LINE( oValue:CVARSCLASS3:z2 , "(z2)" ) - TEST_LINE( oValue:CVARSCLASS3:x3 , "(x3)" ) - TEST_LINE( oValue:CVARSCLASS3:y3 , "(y3)" ) - TEST_LINE( oValue:CVARSCLASS3:z3 , "(z3)" ) - TEST_LINE( oValue:CVARSCLASS4:x1 , " X1 " ) - TEST_LINE( oValue:CVARSCLASS4:y1 , " Y1 " ) - TEST_LINE( oValue:CVARSCLASS4:z1 , " Z1 " ) - TEST_LINE( oValue:CVARSCLASS4:x2 , " X2 " ) - TEST_LINE( oValue:CVARSCLASS4:y2 , " Y2 " ) - TEST_LINE( oValue:CVARSCLASS4:z2 , " Z2 " ) - TEST_LINE( oValue:CVARSCLASS4:x3 , " X3 " ) - TEST_LINE( oValue:CVARSCLASS4:y3 , " Y3 " ) - TEST_LINE( oValue:CVARSCLASS4:z3 , " Z3 " ) - TEST_LINE( oValue:CVARSCLASS4:x4 , " X4 " ) - TEST_LINE( oValue:CVARSCLASS4:y4 , " Y4 " ) - TEST_LINE( oValue:CVARSCLASS4:z4 , " Z4 " ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[0]:" ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS1:classH ) , 3 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS2:classH ) , 6 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS3:classH ) , 9 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS4:classH ) , 12 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 12 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS " X1 " + HBTEST oValue:y1 IS " Y1 " + HBTEST oValue:z1 IS " Z1 " + HBTEST oValue:x2 IS " X2 " + HBTEST oValue:y2 IS " Y2 " + HBTEST oValue:z2 IS " Z2 " + HBTEST oValue:x3 IS " X3 " + HBTEST oValue:y3 IS " Y3 " + HBTEST oValue:z3 IS " Z3 " + HBTEST oValue:x4 IS " X4 " + HBTEST oValue:y4 IS " Y4 " + HBTEST oValue:z4 IS " Z4 " + HBTEST oValue:CVARSCLASS1:x1 IS "[X1]" + HBTEST oValue:CVARSCLASS1:y1 IS "[Y1]" + HBTEST oValue:CVARSCLASS1:z1 IS "[Z1]" + HBTEST oValue:CVARSCLASS2:x1 IS "(x1)" + HBTEST oValue:CVARSCLASS2:y1 IS "(y1)" + HBTEST oValue:CVARSCLASS2:z1 IS "(z1)" + HBTEST oValue:CVARSCLASS2:x2 IS "(x2)" + HBTEST oValue:CVARSCLASS2:y2 IS "(y2)" + HBTEST oValue:CVARSCLASS2:z2 IS "(z2)" + HBTEST oValue:CVARSCLASS3:x1 IS "(x1)" + HBTEST oValue:CVARSCLASS3:y1 IS "(y1)" + HBTEST oValue:CVARSCLASS3:z1 IS "(z1)" + HBTEST oValue:CVARSCLASS3:x2 IS "(x2)" + HBTEST oValue:CVARSCLASS3:y2 IS "(y2)" + HBTEST oValue:CVARSCLASS3:z2 IS "(z2)" + HBTEST oValue:CVARSCLASS3:x3 IS "(x3)" + HBTEST oValue:CVARSCLASS3:y3 IS "(y3)" + HBTEST oValue:CVARSCLASS3:z3 IS "(z3)" + HBTEST oValue:CVARSCLASS4:x1 IS " X1 " + HBTEST oValue:CVARSCLASS4:y1 IS " Y1 " + HBTEST oValue:CVARSCLASS4:z1 IS " Z1 " + HBTEST oValue:CVARSCLASS4:x2 IS " X2 " + HBTEST oValue:CVARSCLASS4:y2 IS " Y2 " + HBTEST oValue:CVARSCLASS4:z2 IS " Z2 " + HBTEST oValue:CVARSCLASS4:x3 IS " X3 " + HBTEST oValue:CVARSCLASS4:y3 IS " Y3 " + HBTEST oValue:CVARSCLASS4:z3 IS " Z3 " + HBTEST oValue:CVARSCLASS4:x4 IS " X4 " + HBTEST oValue:CVARSCLASS4:y4 IS " Y4 " + HBTEST oValue:CVARSCLASS4:z4 IS " Z4 " + HBTEST INSTANCE_DATA( oValue ) IS "[0]:" + HBTEST __cls_CntClsData( oValue:CVARSCLASS1:classH ) IS 3 + HBTEST __cls_CntClsData( oValue:CVARSCLASS2:classH ) IS 6 + HBTEST __cls_CntClsData( oValue:CVARSCLASS3:classH ) IS 9 + HBTEST __cls_CntClsData( oValue:CVARSCLASS4:classH ) IS 12 + HBTEST __cls_CntClsData( oValue:classH ) IS 12 + HBTEST __cls_CntShrData( oValue:CVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* Setting CVARSCLASS2 class variables... */ - TEST_LINE( oValue:CVARSCLASS2:x1 := "{X1}" , "{X1}" ) - TEST_LINE( oValue:CVARSCLASS2:y1 := "{Y1}" , "{Y1}" ) - TEST_LINE( oValue:CVARSCLASS2:z1 := "{Z1}" , "{Z1}" ) - TEST_LINE( oValue:CVARSCLASS2:x2 := "{X2}" , "{X2}" ) - TEST_LINE( oValue:CVARSCLASS2:y2 := "{Y2}" , "{Y2}" ) - TEST_LINE( oValue:CVARSCLASS2:z2 := "{Z2}" , "{Z2}" ) + HBTEST oValue:CVARSCLASS2:x1 := "{X1}" IS "{X1}" + HBTEST oValue:CVARSCLASS2:y1 := "{Y1}" IS "{Y1}" + HBTEST oValue:CVARSCLASS2:z1 := "{Z1}" IS "{Z1}" + HBTEST oValue:CVARSCLASS2:x2 := "{X2}" IS "{X2}" + HBTEST oValue:CVARSCLASS2:y2 := "{Y2}" IS "{Y2}" + HBTEST oValue:CVARSCLASS2:z2 := "{Z2}" IS "{Z2}" - TEST_LINE( oValue:x1 , " X1 " ) - TEST_LINE( oValue:y1 , " Y1 " ) - TEST_LINE( oValue:z1 , " Z1 " ) - TEST_LINE( oValue:x2 , " X2 " ) - TEST_LINE( oValue:y2 , " Y2 " ) - TEST_LINE( oValue:z2 , " Z2 " ) - TEST_LINE( oValue:x3 , " X3 " ) - TEST_LINE( oValue:y3 , " Y3 " ) - TEST_LINE( oValue:z3 , " Z3 " ) - TEST_LINE( oValue:x4 , " X4 " ) - TEST_LINE( oValue:y4 , " Y4 " ) - TEST_LINE( oValue:z4 , " Z4 " ) - TEST_LINE( oValue:CVARSCLASS1:x1 , "[X1]" ) - TEST_LINE( oValue:CVARSCLASS1:y1 , "[Y1]" ) - TEST_LINE( oValue:CVARSCLASS1:z1 , "[Z1]" ) - TEST_LINE( oValue:CVARSCLASS2:x1 , "{X1}" ) - TEST_LINE( oValue:CVARSCLASS2:y1 , "{Y1}" ) - TEST_LINE( oValue:CVARSCLASS2:z1 , "{Z1}" ) - TEST_LINE( oValue:CVARSCLASS2:x2 , "{X2}" ) - TEST_LINE( oValue:CVARSCLASS2:y2 , "{Y2}" ) - TEST_LINE( oValue:CVARSCLASS2:z2 , "{Z2}" ) - TEST_LINE( oValue:CVARSCLASS3:x1 , "(x1)" ) - TEST_LINE( oValue:CVARSCLASS3:y1 , "(y1)" ) - TEST_LINE( oValue:CVARSCLASS3:z1 , "(z1)" ) - TEST_LINE( oValue:CVARSCLASS3:x2 , "(x2)" ) - TEST_LINE( oValue:CVARSCLASS3:y2 , "(y2)" ) - TEST_LINE( oValue:CVARSCLASS3:z2 , "(z2)" ) - TEST_LINE( oValue:CVARSCLASS3:x3 , "(x3)" ) - TEST_LINE( oValue:CVARSCLASS3:y3 , "(y3)" ) - TEST_LINE( oValue:CVARSCLASS3:z3 , "(z3)" ) - TEST_LINE( oValue:CVARSCLASS4:x1 , " X1 " ) - TEST_LINE( oValue:CVARSCLASS4:y1 , " Y1 " ) - TEST_LINE( oValue:CVARSCLASS4:z1 , " Z1 " ) - TEST_LINE( oValue:CVARSCLASS4:x2 , " X2 " ) - TEST_LINE( oValue:CVARSCLASS4:y2 , " Y2 " ) - TEST_LINE( oValue:CVARSCLASS4:z2 , " Z2 " ) - TEST_LINE( oValue:CVARSCLASS4:x3 , " X3 " ) - TEST_LINE( oValue:CVARSCLASS4:y3 , " Y3 " ) - TEST_LINE( oValue:CVARSCLASS4:z3 , " Z3 " ) - TEST_LINE( oValue:CVARSCLASS4:x4 , " X4 " ) - TEST_LINE( oValue:CVARSCLASS4:y4 , " Y4 " ) - TEST_LINE( oValue:CVARSCLASS4:z4 , " Z4 " ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[0]:" ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS1:classH ) , 3 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS2:classH ) , 6 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS3:classH ) , 9 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS4:classH ) , 12 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 12 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS " X1 " + HBTEST oValue:y1 IS " Y1 " + HBTEST oValue:z1 IS " Z1 " + HBTEST oValue:x2 IS " X2 " + HBTEST oValue:y2 IS " Y2 " + HBTEST oValue:z2 IS " Z2 " + HBTEST oValue:x3 IS " X3 " + HBTEST oValue:y3 IS " Y3 " + HBTEST oValue:z3 IS " Z3 " + HBTEST oValue:x4 IS " X4 " + HBTEST oValue:y4 IS " Y4 " + HBTEST oValue:z4 IS " Z4 " + HBTEST oValue:CVARSCLASS1:x1 IS "[X1]" + HBTEST oValue:CVARSCLASS1:y1 IS "[Y1]" + HBTEST oValue:CVARSCLASS1:z1 IS "[Z1]" + HBTEST oValue:CVARSCLASS2:x1 IS "{X1}" + HBTEST oValue:CVARSCLASS2:y1 IS "{Y1}" + HBTEST oValue:CVARSCLASS2:z1 IS "{Z1}" + HBTEST oValue:CVARSCLASS2:x2 IS "{X2}" + HBTEST oValue:CVARSCLASS2:y2 IS "{Y2}" + HBTEST oValue:CVARSCLASS2:z2 IS "{Z2}" + HBTEST oValue:CVARSCLASS3:x1 IS "(x1)" + HBTEST oValue:CVARSCLASS3:y1 IS "(y1)" + HBTEST oValue:CVARSCLASS3:z1 IS "(z1)" + HBTEST oValue:CVARSCLASS3:x2 IS "(x2)" + HBTEST oValue:CVARSCLASS3:y2 IS "(y2)" + HBTEST oValue:CVARSCLASS3:z2 IS "(z2)" + HBTEST oValue:CVARSCLASS3:x3 IS "(x3)" + HBTEST oValue:CVARSCLASS3:y3 IS "(y3)" + HBTEST oValue:CVARSCLASS3:z3 IS "(z3)" + HBTEST oValue:CVARSCLASS4:x1 IS " X1 " + HBTEST oValue:CVARSCLASS4:y1 IS " Y1 " + HBTEST oValue:CVARSCLASS4:z1 IS " Z1 " + HBTEST oValue:CVARSCLASS4:x2 IS " X2 " + HBTEST oValue:CVARSCLASS4:y2 IS " Y2 " + HBTEST oValue:CVARSCLASS4:z2 IS " Z2 " + HBTEST oValue:CVARSCLASS4:x3 IS " X3 " + HBTEST oValue:CVARSCLASS4:y3 IS " Y3 " + HBTEST oValue:CVARSCLASS4:z3 IS " Z3 " + HBTEST oValue:CVARSCLASS4:x4 IS " X4 " + HBTEST oValue:CVARSCLASS4:y4 IS " Y4 " + HBTEST oValue:CVARSCLASS4:z4 IS " Z4 " + HBTEST INSTANCE_DATA( oValue ) IS "[0]:" + HBTEST __cls_CntClsData( oValue:CVARSCLASS1:classH ) IS 3 + HBTEST __cls_CntClsData( oValue:CVARSCLASS2:classH ) IS 6 + HBTEST __cls_CntClsData( oValue:CVARSCLASS3:classH ) IS 9 + HBTEST __cls_CntClsData( oValue:CVARSCLASS4:classH ) IS 12 + HBTEST __cls_CntClsData( oValue:classH ) IS 12 + HBTEST __cls_CntShrData( oValue:CVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* Setting CVARSCLASS3 class variables... */ - TEST_LINE( oValue:CVARSCLASS3:x1 := "" , "" ) - TEST_LINE( oValue:CVARSCLASS3:y1 := "" , "" ) - TEST_LINE( oValue:CVARSCLASS3:z1 := "" , "" ) - TEST_LINE( oValue:CVARSCLASS3:x2 := "" , "" ) - TEST_LINE( oValue:CVARSCLASS3:y2 := "" , "" ) - TEST_LINE( oValue:CVARSCLASS3:z2 := "" , "" ) - TEST_LINE( oValue:CVARSCLASS3:x3 := "" , "" ) - TEST_LINE( oValue:CVARSCLASS3:y3 := "" , "" ) - TEST_LINE( oValue:CVARSCLASS3:z3 := "" , "" ) + HBTEST oValue:CVARSCLASS3:x1 := "" IS "" + HBTEST oValue:CVARSCLASS3:y1 := "" IS "" + HBTEST oValue:CVARSCLASS3:z1 := "" IS "" + HBTEST oValue:CVARSCLASS3:x2 := "" IS "" + HBTEST oValue:CVARSCLASS3:y2 := "" IS "" + HBTEST oValue:CVARSCLASS3:z2 := "" IS "" + HBTEST oValue:CVARSCLASS3:x3 := "" IS "" + HBTEST oValue:CVARSCLASS3:y3 := "" IS "" + HBTEST oValue:CVARSCLASS3:z3 := "" IS "" - TEST_LINE( oValue:x1 , " X1 " ) - TEST_LINE( oValue:y1 , " Y1 " ) - TEST_LINE( oValue:z1 , " Z1 " ) - TEST_LINE( oValue:x2 , " X2 " ) - TEST_LINE( oValue:y2 , " Y2 " ) - TEST_LINE( oValue:z2 , " Z2 " ) - TEST_LINE( oValue:x3 , " X3 " ) - TEST_LINE( oValue:y3 , " Y3 " ) - TEST_LINE( oValue:z3 , " Z3 " ) - TEST_LINE( oValue:x4 , " X4 " ) - TEST_LINE( oValue:y4 , " Y4 " ) - TEST_LINE( oValue:z4 , " Z4 " ) - TEST_LINE( oValue:CVARSCLASS1:x1 , "[X1]" ) - TEST_LINE( oValue:CVARSCLASS1:y1 , "[Y1]" ) - TEST_LINE( oValue:CVARSCLASS1:z1 , "[Z1]" ) - TEST_LINE( oValue:CVARSCLASS2:x1 , "{X1}" ) - TEST_LINE( oValue:CVARSCLASS2:y1 , "{Y1}" ) - TEST_LINE( oValue:CVARSCLASS2:z1 , "{Z1}" ) - TEST_LINE( oValue:CVARSCLASS2:x2 , "{X2}" ) - TEST_LINE( oValue:CVARSCLASS2:y2 , "{Y2}" ) - TEST_LINE( oValue:CVARSCLASS2:z2 , "{Z2}" ) - TEST_LINE( oValue:CVARSCLASS3:x1 , "" ) - TEST_LINE( oValue:CVARSCLASS3:y1 , "" ) - TEST_LINE( oValue:CVARSCLASS3:z1 , "" ) - TEST_LINE( oValue:CVARSCLASS3:x2 , "" ) - TEST_LINE( oValue:CVARSCLASS3:y2 , "" ) - TEST_LINE( oValue:CVARSCLASS3:z2 , "" ) - TEST_LINE( oValue:CVARSCLASS3:x3 , "" ) - TEST_LINE( oValue:CVARSCLASS3:y3 , "" ) - TEST_LINE( oValue:CVARSCLASS3:z3 , "" ) - TEST_LINE( oValue:CVARSCLASS4:x1 , " X1 " ) - TEST_LINE( oValue:CVARSCLASS4:y1 , " Y1 " ) - TEST_LINE( oValue:CVARSCLASS4:z1 , " Z1 " ) - TEST_LINE( oValue:CVARSCLASS4:x2 , " X2 " ) - TEST_LINE( oValue:CVARSCLASS4:y2 , " Y2 " ) - TEST_LINE( oValue:CVARSCLASS4:z2 , " Z2 " ) - TEST_LINE( oValue:CVARSCLASS4:x3 , " X3 " ) - TEST_LINE( oValue:CVARSCLASS4:y3 , " Y3 " ) - TEST_LINE( oValue:CVARSCLASS4:z3 , " Z3 " ) - TEST_LINE( oValue:CVARSCLASS4:x4 , " X4 " ) - TEST_LINE( oValue:CVARSCLASS4:y4 , " Y4 " ) - TEST_LINE( oValue:CVARSCLASS4:z4 , " Z4 " ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[0]:" ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS1:classH ) , 3 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS2:classH ) , 6 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS3:classH ) , 9 ) - TEST_LINE( __cls_CntClsData( oValue:CVARSCLASS4:classH ) , 12 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 12 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:CVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 0 ) + HBTEST oValue:x1 IS " X1 " + HBTEST oValue:y1 IS " Y1 " + HBTEST oValue:z1 IS " Z1 " + HBTEST oValue:x2 IS " X2 " + HBTEST oValue:y2 IS " Y2 " + HBTEST oValue:z2 IS " Z2 " + HBTEST oValue:x3 IS " X3 " + HBTEST oValue:y3 IS " Y3 " + HBTEST oValue:z3 IS " Z3 " + HBTEST oValue:x4 IS " X4 " + HBTEST oValue:y4 IS " Y4 " + HBTEST oValue:z4 IS " Z4 " + HBTEST oValue:CVARSCLASS1:x1 IS "[X1]" + HBTEST oValue:CVARSCLASS1:y1 IS "[Y1]" + HBTEST oValue:CVARSCLASS1:z1 IS "[Z1]" + HBTEST oValue:CVARSCLASS2:x1 IS "{X1}" + HBTEST oValue:CVARSCLASS2:y1 IS "{Y1}" + HBTEST oValue:CVARSCLASS2:z1 IS "{Z1}" + HBTEST oValue:CVARSCLASS2:x2 IS "{X2}" + HBTEST oValue:CVARSCLASS2:y2 IS "{Y2}" + HBTEST oValue:CVARSCLASS2:z2 IS "{Z2}" + HBTEST oValue:CVARSCLASS3:x1 IS "" + HBTEST oValue:CVARSCLASS3:y1 IS "" + HBTEST oValue:CVARSCLASS3:z1 IS "" + HBTEST oValue:CVARSCLASS3:x2 IS "" + HBTEST oValue:CVARSCLASS3:y2 IS "" + HBTEST oValue:CVARSCLASS3:z2 IS "" + HBTEST oValue:CVARSCLASS3:x3 IS "" + HBTEST oValue:CVARSCLASS3:y3 IS "" + HBTEST oValue:CVARSCLASS3:z3 IS "" + HBTEST oValue:CVARSCLASS4:x1 IS " X1 " + HBTEST oValue:CVARSCLASS4:y1 IS " Y1 " + HBTEST oValue:CVARSCLASS4:z1 IS " Z1 " + HBTEST oValue:CVARSCLASS4:x2 IS " X2 " + HBTEST oValue:CVARSCLASS4:y2 IS " Y2 " + HBTEST oValue:CVARSCLASS4:z2 IS " Z2 " + HBTEST oValue:CVARSCLASS4:x3 IS " X3 " + HBTEST oValue:CVARSCLASS4:y3 IS " Y3 " + HBTEST oValue:CVARSCLASS4:z3 IS " Z3 " + HBTEST oValue:CVARSCLASS4:x4 IS " X4 " + HBTEST oValue:CVARSCLASS4:y4 IS " Y4 " + HBTEST oValue:CVARSCLASS4:z4 IS " Z4 " + HBTEST INSTANCE_DATA( oValue ) IS "[0]:" + HBTEST __cls_CntClsData( oValue:CVARSCLASS1:classH ) IS 3 + HBTEST __cls_CntClsData( oValue:CVARSCLASS2:classH ) IS 6 + HBTEST __cls_CntClsData( oValue:CVARSCLASS3:classH ) IS 9 + HBTEST __cls_CntClsData( oValue:CVARSCLASS4:classH ) IS 12 + HBTEST __cls_CntClsData( oValue:classH ) IS 12 + HBTEST __cls_CntShrData( oValue:CVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:CVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:classH ) IS 0 /* Test shared class variables allocating and casting */ oValue := SVARSCLASS4():new() - TEST_LINE( oValue:x1 , "(x1)" ) - TEST_LINE( oValue:y1 , "(y1)" ) - TEST_LINE( oValue:z1 , "(z1)" ) - TEST_LINE( oValue:x2 , "(x2)" ) - TEST_LINE( oValue:y2 , "(y2)" ) - TEST_LINE( oValue:z2 , "(z2)" ) - TEST_LINE( oValue:x3 , "(x3)" ) - TEST_LINE( oValue:y3 , "(y3)" ) - TEST_LINE( oValue:z3 , "(z3)" ) - TEST_LINE( oValue:x4 , "(x4)" ) - TEST_LINE( oValue:y4 , "(y4)" ) - TEST_LINE( oValue:z4 , "(z4)" ) - TEST_LINE( oValue:SVARSCLASS1:x1 , "(x1)" ) - TEST_LINE( oValue:SVARSCLASS1:y1 , "(y1)" ) - TEST_LINE( oValue:SVARSCLASS1:z1 , "(z1)" ) - TEST_LINE( oValue:SVARSCLASS2:x1 , "(x1)" ) - TEST_LINE( oValue:SVARSCLASS2:y1 , "(y1)" ) - TEST_LINE( oValue:SVARSCLASS2:z1 , "(z1)" ) - TEST_LINE( oValue:SVARSCLASS2:x2 , "(x2)" ) - TEST_LINE( oValue:SVARSCLASS2:y2 , "(y2)" ) - TEST_LINE( oValue:SVARSCLASS2:z2 , "(z2)" ) - TEST_LINE( oValue:SVARSCLASS3:x1 , "(x1)" ) - TEST_LINE( oValue:SVARSCLASS3:y1 , "(y1)" ) - TEST_LINE( oValue:SVARSCLASS3:z1 , "(z1)" ) - TEST_LINE( oValue:SVARSCLASS3:x2 , "(x2)" ) - TEST_LINE( oValue:SVARSCLASS3:y2 , "(y2)" ) - TEST_LINE( oValue:SVARSCLASS3:z2 , "(z2)" ) - TEST_LINE( oValue:SVARSCLASS3:x3 , "(x3)" ) - TEST_LINE( oValue:SVARSCLASS3:y3 , "(y3)" ) - TEST_LINE( oValue:SVARSCLASS3:z3 , "(z3)" ) - TEST_LINE( oValue:SVARSCLASS4:x1 , "(x1)" ) - TEST_LINE( oValue:SVARSCLASS4:y1 , "(y1)" ) - TEST_LINE( oValue:SVARSCLASS4:z1 , "(z1)" ) - TEST_LINE( oValue:SVARSCLASS4:x2 , "(x2)" ) - TEST_LINE( oValue:SVARSCLASS4:y2 , "(y2)" ) - TEST_LINE( oValue:SVARSCLASS4:z2 , "(z2)" ) - TEST_LINE( oValue:SVARSCLASS4:x3 , "(x3)" ) - TEST_LINE( oValue:SVARSCLASS4:y3 , "(y3)" ) - TEST_LINE( oValue:SVARSCLASS4:z3 , "(z3)" ) - TEST_LINE( oValue:SVARSCLASS4:x4 , "(x4)" ) - TEST_LINE( oValue:SVARSCLASS4:y4 , "(y4)" ) - TEST_LINE( oValue:SVARSCLASS4:z4 , "(z4)" ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[0]:" ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS1:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS2:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS3:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS4:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 3 ) + HBTEST oValue:x1 IS "(x1)" + HBTEST oValue:y1 IS "(y1)" + HBTEST oValue:z1 IS "(z1)" + HBTEST oValue:x2 IS "(x2)" + HBTEST oValue:y2 IS "(y2)" + HBTEST oValue:z2 IS "(z2)" + HBTEST oValue:x3 IS "(x3)" + HBTEST oValue:y3 IS "(y3)" + HBTEST oValue:z3 IS "(z3)" + HBTEST oValue:x4 IS "(x4)" + HBTEST oValue:y4 IS "(y4)" + HBTEST oValue:z4 IS "(z4)" + HBTEST oValue:SVARSCLASS1:x1 IS "(x1)" + HBTEST oValue:SVARSCLASS1:y1 IS "(y1)" + HBTEST oValue:SVARSCLASS1:z1 IS "(z1)" + HBTEST oValue:SVARSCLASS2:x1 IS "(x1)" + HBTEST oValue:SVARSCLASS2:y1 IS "(y1)" + HBTEST oValue:SVARSCLASS2:z1 IS "(z1)" + HBTEST oValue:SVARSCLASS2:x2 IS "(x2)" + HBTEST oValue:SVARSCLASS2:y2 IS "(y2)" + HBTEST oValue:SVARSCLASS2:z2 IS "(z2)" + HBTEST oValue:SVARSCLASS3:x1 IS "(x1)" + HBTEST oValue:SVARSCLASS3:y1 IS "(y1)" + HBTEST oValue:SVARSCLASS3:z1 IS "(z1)" + HBTEST oValue:SVARSCLASS3:x2 IS "(x2)" + HBTEST oValue:SVARSCLASS3:y2 IS "(y2)" + HBTEST oValue:SVARSCLASS3:z2 IS "(z2)" + HBTEST oValue:SVARSCLASS3:x3 IS "(x3)" + HBTEST oValue:SVARSCLASS3:y3 IS "(y3)" + HBTEST oValue:SVARSCLASS3:z3 IS "(z3)" + HBTEST oValue:SVARSCLASS4:x1 IS "(x1)" + HBTEST oValue:SVARSCLASS4:y1 IS "(y1)" + HBTEST oValue:SVARSCLASS4:z1 IS "(z1)" + HBTEST oValue:SVARSCLASS4:x2 IS "(x2)" + HBTEST oValue:SVARSCLASS4:y2 IS "(y2)" + HBTEST oValue:SVARSCLASS4:z2 IS "(z2)" + HBTEST oValue:SVARSCLASS4:x3 IS "(x3)" + HBTEST oValue:SVARSCLASS4:y3 IS "(y3)" + HBTEST oValue:SVARSCLASS4:z3 IS "(z3)" + HBTEST oValue:SVARSCLASS4:x4 IS "(x4)" + HBTEST oValue:SVARSCLASS4:y4 IS "(y4)" + HBTEST oValue:SVARSCLASS4:z4 IS "(z4)" + HBTEST INSTANCE_DATA( oValue ) IS "[0]:" + HBTEST __cls_CntClsData( oValue:SVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:SVARSCLASS1:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS2:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS3:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS4:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:classH ) IS 3 /* simple assignment... */ - TEST_LINE( oValue:x1 := " X1 " , " X1 " ) - TEST_LINE( oValue:y1 := " Y1 " , " Y1 " ) - TEST_LINE( oValue:z1 := " Z1 " , " Z1 " ) - TEST_LINE( oValue:x2 := " X2 " , " X2 " ) - TEST_LINE( oValue:y2 := " Y2 " , " Y2 " ) - TEST_LINE( oValue:z2 := " Z2 " , " Z2 " ) - TEST_LINE( oValue:x3 := " X3 " , " X3 " ) - TEST_LINE( oValue:y3 := " Y3 " , " Y3 " ) - TEST_LINE( oValue:z3 := " Z3 " , " Z3 " ) - TEST_LINE( oValue:x4 := " X4 " , " X4 " ) - TEST_LINE( oValue:y4 := " Y4 " , " Y4 " ) - TEST_LINE( oValue:z4 := " Z4 " , " Z4 " ) + HBTEST oValue:x1 := " X1 " IS " X1 " + HBTEST oValue:y1 := " Y1 " IS " Y1 " + HBTEST oValue:z1 := " Z1 " IS " Z1 " + HBTEST oValue:x2 := " X2 " IS " X2 " + HBTEST oValue:y2 := " Y2 " IS " Y2 " + HBTEST oValue:z2 := " Z2 " IS " Z2 " + HBTEST oValue:x3 := " X3 " IS " X3 " + HBTEST oValue:y3 := " Y3 " IS " Y3 " + HBTEST oValue:z3 := " Z3 " IS " Z3 " + HBTEST oValue:x4 := " X4 " IS " X4 " + HBTEST oValue:y4 := " Y4 " IS " Y4 " + HBTEST oValue:z4 := " Z4 " IS " Z4 " - TEST_LINE( oValue:x1 , " X1 " ) - TEST_LINE( oValue:y1 , " Y1 " ) - TEST_LINE( oValue:z1 , " Z1 " ) - TEST_LINE( oValue:x2 , " X2 " ) - TEST_LINE( oValue:y2 , " Y2 " ) - TEST_LINE( oValue:z2 , " Z2 " ) - TEST_LINE( oValue:x3 , " X3 " ) - TEST_LINE( oValue:y3 , " Y3 " ) - TEST_LINE( oValue:z3 , " Z3 " ) - TEST_LINE( oValue:x4 , " X4 " ) - TEST_LINE( oValue:y4 , " Y4 " ) - TEST_LINE( oValue:z4 , " Z4 " ) - TEST_LINE( oValue:SVARSCLASS1:x1 , " X1 " ) - TEST_LINE( oValue:SVARSCLASS1:y1 , " Y1 " ) - TEST_LINE( oValue:SVARSCLASS1:z1 , " Z1 " ) - TEST_LINE( oValue:SVARSCLASS2:x1 , " X1 " ) - TEST_LINE( oValue:SVARSCLASS2:y1 , " Y1 " ) - TEST_LINE( oValue:SVARSCLASS2:z1 , " Z1 " ) - TEST_LINE( oValue:SVARSCLASS2:x2 , " X2 " ) - TEST_LINE( oValue:SVARSCLASS2:y2 , " Y2 " ) - TEST_LINE( oValue:SVARSCLASS2:z2 , " Z2 " ) - TEST_LINE( oValue:SVARSCLASS3:x1 , " X1 " ) - TEST_LINE( oValue:SVARSCLASS3:y1 , " Y1 " ) - TEST_LINE( oValue:SVARSCLASS3:z1 , " Z1 " ) - TEST_LINE( oValue:SVARSCLASS3:x2 , " X2 " ) - TEST_LINE( oValue:SVARSCLASS3:y2 , " Y2 " ) - TEST_LINE( oValue:SVARSCLASS3:z2 , " Z2 " ) - TEST_LINE( oValue:SVARSCLASS3:x3 , " X3 " ) - TEST_LINE( oValue:SVARSCLASS3:y3 , " Y3 " ) - TEST_LINE( oValue:SVARSCLASS3:z3 , " Z3 " ) - TEST_LINE( oValue:SVARSCLASS4:x1 , " X1 " ) - TEST_LINE( oValue:SVARSCLASS4:y1 , " Y1 " ) - TEST_LINE( oValue:SVARSCLASS4:z1 , " Z1 " ) - TEST_LINE( oValue:SVARSCLASS4:x2 , " X2 " ) - TEST_LINE( oValue:SVARSCLASS4:y2 , " Y2 " ) - TEST_LINE( oValue:SVARSCLASS4:z2 , " Z2 " ) - TEST_LINE( oValue:SVARSCLASS4:x3 , " X3 " ) - TEST_LINE( oValue:SVARSCLASS4:y3 , " Y3 " ) - TEST_LINE( oValue:SVARSCLASS4:z3 , " Z3 " ) - TEST_LINE( oValue:SVARSCLASS4:x4 , " X4 " ) - TEST_LINE( oValue:SVARSCLASS4:y4 , " Y4 " ) - TEST_LINE( oValue:SVARSCLASS4:z4 , " Z4 " ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS1:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS2:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS3:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS4:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 3 ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[0]:" ) + HBTEST oValue:x1 IS " X1 " + HBTEST oValue:y1 IS " Y1 " + HBTEST oValue:z1 IS " Z1 " + HBTEST oValue:x2 IS " X2 " + HBTEST oValue:y2 IS " Y2 " + HBTEST oValue:z2 IS " Z2 " + HBTEST oValue:x3 IS " X3 " + HBTEST oValue:y3 IS " Y3 " + HBTEST oValue:z3 IS " Z3 " + HBTEST oValue:x4 IS " X4 " + HBTEST oValue:y4 IS " Y4 " + HBTEST oValue:z4 IS " Z4 " + HBTEST oValue:SVARSCLASS1:x1 IS " X1 " + HBTEST oValue:SVARSCLASS1:y1 IS " Y1 " + HBTEST oValue:SVARSCLASS1:z1 IS " Z1 " + HBTEST oValue:SVARSCLASS2:x1 IS " X1 " + HBTEST oValue:SVARSCLASS2:y1 IS " Y1 " + HBTEST oValue:SVARSCLASS2:z1 IS " Z1 " + HBTEST oValue:SVARSCLASS2:x2 IS " X2 " + HBTEST oValue:SVARSCLASS2:y2 IS " Y2 " + HBTEST oValue:SVARSCLASS2:z2 IS " Z2 " + HBTEST oValue:SVARSCLASS3:x1 IS " X1 " + HBTEST oValue:SVARSCLASS3:y1 IS " Y1 " + HBTEST oValue:SVARSCLASS3:z1 IS " Z1 " + HBTEST oValue:SVARSCLASS3:x2 IS " X2 " + HBTEST oValue:SVARSCLASS3:y2 IS " Y2 " + HBTEST oValue:SVARSCLASS3:z2 IS " Z2 " + HBTEST oValue:SVARSCLASS3:x3 IS " X3 " + HBTEST oValue:SVARSCLASS3:y3 IS " Y3 " + HBTEST oValue:SVARSCLASS3:z3 IS " Z3 " + HBTEST oValue:SVARSCLASS4:x1 IS " X1 " + HBTEST oValue:SVARSCLASS4:y1 IS " Y1 " + HBTEST oValue:SVARSCLASS4:z1 IS " Z1 " + HBTEST oValue:SVARSCLASS4:x2 IS " X2 " + HBTEST oValue:SVARSCLASS4:y2 IS " Y2 " + HBTEST oValue:SVARSCLASS4:z2 IS " Z2 " + HBTEST oValue:SVARSCLASS4:x3 IS " X3 " + HBTEST oValue:SVARSCLASS4:y3 IS " Y3 " + HBTEST oValue:SVARSCLASS4:z3 IS " Z3 " + HBTEST oValue:SVARSCLASS4:x4 IS " X4 " + HBTEST oValue:SVARSCLASS4:y4 IS " Y4 " + HBTEST oValue:SVARSCLASS4:z4 IS " Z4 " + HBTEST __cls_CntClsData( oValue:SVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:SVARSCLASS1:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS2:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS3:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS4:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:classH ) IS 3 + HBTEST INSTANCE_DATA( oValue ) IS "[0]:" /* Setting SVARSCLASS1 class variables... */ - TEST_LINE( oValue:SVARSCLASS1:x1 := "[X1]" , "[X1]" ) - TEST_LINE( oValue:SVARSCLASS1:y1 := "[Y1]" , "[Y1]" ) - TEST_LINE( oValue:SVARSCLASS1:z1 := "[Z1]" , "[Z1]" ) + HBTEST oValue:SVARSCLASS1:x1 := "[X1]" IS "[X1]" + HBTEST oValue:SVARSCLASS1:y1 := "[Y1]" IS "[Y1]" + HBTEST oValue:SVARSCLASS1:z1 := "[Z1]" IS "[Z1]" - TEST_LINE( oValue:x1 , "[X1]" ) - TEST_LINE( oValue:y1 , "[Y1]" ) - TEST_LINE( oValue:z1 , "[Z1]" ) - TEST_LINE( oValue:x2 , " X2 " ) - TEST_LINE( oValue:y2 , " Y2 " ) - TEST_LINE( oValue:z2 , " Z2 " ) - TEST_LINE( oValue:x3 , " X3 " ) - TEST_LINE( oValue:y3 , " Y3 " ) - TEST_LINE( oValue:z3 , " Z3 " ) - TEST_LINE( oValue:x4 , " X4 " ) - TEST_LINE( oValue:y4 , " Y4 " ) - TEST_LINE( oValue:z4 , " Z4 " ) - TEST_LINE( oValue:SVARSCLASS1:x1 , "[X1]" ) - TEST_LINE( oValue:SVARSCLASS1:y1 , "[Y1]" ) - TEST_LINE( oValue:SVARSCLASS1:z1 , "[Z1]" ) - TEST_LINE( oValue:SVARSCLASS2:x1 , "[X1]" ) - TEST_LINE( oValue:SVARSCLASS2:y1 , "[Y1]" ) - TEST_LINE( oValue:SVARSCLASS2:z1 , "[Z1]" ) - TEST_LINE( oValue:SVARSCLASS2:x2 , " X2 " ) - TEST_LINE( oValue:SVARSCLASS2:y2 , " Y2 " ) - TEST_LINE( oValue:SVARSCLASS2:z2 , " Z2 " ) - TEST_LINE( oValue:SVARSCLASS3:x1 , "[X1]" ) - TEST_LINE( oValue:SVARSCLASS3:y1 , "[Y1]" ) - TEST_LINE( oValue:SVARSCLASS3:z1 , "[Z1]" ) - TEST_LINE( oValue:SVARSCLASS3:x2 , " X2 " ) - TEST_LINE( oValue:SVARSCLASS3:y2 , " Y2 " ) - TEST_LINE( oValue:SVARSCLASS3:z2 , " Z2 " ) - TEST_LINE( oValue:SVARSCLASS3:x3 , " X3 " ) - TEST_LINE( oValue:SVARSCLASS3:y3 , " Y3 " ) - TEST_LINE( oValue:SVARSCLASS3:z3 , " Z3 " ) - TEST_LINE( oValue:SVARSCLASS4:x1 , "[X1]" ) - TEST_LINE( oValue:SVARSCLASS4:y1 , "[Y1]" ) - TEST_LINE( oValue:SVARSCLASS4:z1 , "[Z1]" ) - TEST_LINE( oValue:SVARSCLASS4:x2 , " X2 " ) - TEST_LINE( oValue:SVARSCLASS4:y2 , " Y2 " ) - TEST_LINE( oValue:SVARSCLASS4:z2 , " Z2 " ) - TEST_LINE( oValue:SVARSCLASS4:x3 , " X3 " ) - TEST_LINE( oValue:SVARSCLASS4:y3 , " Y3 " ) - TEST_LINE( oValue:SVARSCLASS4:z3 , " Z3 " ) - TEST_LINE( oValue:SVARSCLASS4:x4 , " X4 " ) - TEST_LINE( oValue:SVARSCLASS4:y4 , " Y4 " ) - TEST_LINE( oValue:SVARSCLASS4:z4 , " Z4 " ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS1:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS2:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS3:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS4:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 3 ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[0]:" ) + HBTEST oValue:x1 IS "[X1]" + HBTEST oValue:y1 IS "[Y1]" + HBTEST oValue:z1 IS "[Z1]" + HBTEST oValue:x2 IS " X2 " + HBTEST oValue:y2 IS " Y2 " + HBTEST oValue:z2 IS " Z2 " + HBTEST oValue:x3 IS " X3 " + HBTEST oValue:y3 IS " Y3 " + HBTEST oValue:z3 IS " Z3 " + HBTEST oValue:x4 IS " X4 " + HBTEST oValue:y4 IS " Y4 " + HBTEST oValue:z4 IS " Z4 " + HBTEST oValue:SVARSCLASS1:x1 IS "[X1]" + HBTEST oValue:SVARSCLASS1:y1 IS "[Y1]" + HBTEST oValue:SVARSCLASS1:z1 IS "[Z1]" + HBTEST oValue:SVARSCLASS2:x1 IS "[X1]" + HBTEST oValue:SVARSCLASS2:y1 IS "[Y1]" + HBTEST oValue:SVARSCLASS2:z1 IS "[Z1]" + HBTEST oValue:SVARSCLASS2:x2 IS " X2 " + HBTEST oValue:SVARSCLASS2:y2 IS " Y2 " + HBTEST oValue:SVARSCLASS2:z2 IS " Z2 " + HBTEST oValue:SVARSCLASS3:x1 IS "[X1]" + HBTEST oValue:SVARSCLASS3:y1 IS "[Y1]" + HBTEST oValue:SVARSCLASS3:z1 IS "[Z1]" + HBTEST oValue:SVARSCLASS3:x2 IS " X2 " + HBTEST oValue:SVARSCLASS3:y2 IS " Y2 " + HBTEST oValue:SVARSCLASS3:z2 IS " Z2 " + HBTEST oValue:SVARSCLASS3:x3 IS " X3 " + HBTEST oValue:SVARSCLASS3:y3 IS " Y3 " + HBTEST oValue:SVARSCLASS3:z3 IS " Z3 " + HBTEST oValue:SVARSCLASS4:x1 IS "[X1]" + HBTEST oValue:SVARSCLASS4:y1 IS "[Y1]" + HBTEST oValue:SVARSCLASS4:z1 IS "[Z1]" + HBTEST oValue:SVARSCLASS4:x2 IS " X2 " + HBTEST oValue:SVARSCLASS4:y2 IS " Y2 " + HBTEST oValue:SVARSCLASS4:z2 IS " Z2 " + HBTEST oValue:SVARSCLASS4:x3 IS " X3 " + HBTEST oValue:SVARSCLASS4:y3 IS " Y3 " + HBTEST oValue:SVARSCLASS4:z3 IS " Z3 " + HBTEST oValue:SVARSCLASS4:x4 IS " X4 " + HBTEST oValue:SVARSCLASS4:y4 IS " Y4 " + HBTEST oValue:SVARSCLASS4:z4 IS " Z4 " + HBTEST __cls_CntClsData( oValue:SVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:SVARSCLASS1:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS2:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS3:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS4:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:classH ) IS 3 + HBTEST INSTANCE_DATA( oValue ) IS "[0]:" /* Setting SVARSCLASS2 class variables... */ - TEST_LINE( oValue:SVARSCLASS2:x1 := "{X1}" , "{X1}" ) - TEST_LINE( oValue:SVARSCLASS2:y1 := "{Y1}" , "{Y1}" ) - TEST_LINE( oValue:SVARSCLASS2:z1 := "{Z1}" , "{Z1}" ) - TEST_LINE( oValue:SVARSCLASS2:x2 := "{X2}" , "{X2}" ) - TEST_LINE( oValue:SVARSCLASS2:y2 := "{Y2}" , "{Y2}" ) - TEST_LINE( oValue:SVARSCLASS2:z2 := "{Z2}" , "{Z2}" ) + HBTEST oValue:SVARSCLASS2:x1 := "{X1}" IS "{X1}" + HBTEST oValue:SVARSCLASS2:y1 := "{Y1}" IS "{Y1}" + HBTEST oValue:SVARSCLASS2:z1 := "{Z1}" IS "{Z1}" + HBTEST oValue:SVARSCLASS2:x2 := "{X2}" IS "{X2}" + HBTEST oValue:SVARSCLASS2:y2 := "{Y2}" IS "{Y2}" + HBTEST oValue:SVARSCLASS2:z2 := "{Z2}" IS "{Z2}" - TEST_LINE( oValue:x1 , "{X1}" ) - TEST_LINE( oValue:y1 , "{Y1}" ) - TEST_LINE( oValue:z1 , "{Z1}" ) - TEST_LINE( oValue:x2 , "{X2}" ) - TEST_LINE( oValue:y2 , "{Y2}" ) - TEST_LINE( oValue:z2 , "{Z2}" ) - TEST_LINE( oValue:x3 , " X3 " ) - TEST_LINE( oValue:y3 , " Y3 " ) - TEST_LINE( oValue:z3 , " Z3 " ) - TEST_LINE( oValue:x4 , " X4 " ) - TEST_LINE( oValue:y4 , " Y4 " ) - TEST_LINE( oValue:z4 , " Z4 " ) - TEST_LINE( oValue:SVARSCLASS1:x1 , "{X1}" ) - TEST_LINE( oValue:SVARSCLASS1:y1 , "{Y1}" ) - TEST_LINE( oValue:SVARSCLASS1:z1 , "{Z1}" ) - TEST_LINE( oValue:SVARSCLASS2:x1 , "{X1}" ) - TEST_LINE( oValue:SVARSCLASS2:y1 , "{Y1}" ) - TEST_LINE( oValue:SVARSCLASS2:z1 , "{Z1}" ) - TEST_LINE( oValue:SVARSCLASS2:x2 , "{X2}" ) - TEST_LINE( oValue:SVARSCLASS2:y2 , "{Y2}" ) - TEST_LINE( oValue:SVARSCLASS2:z2 , "{Z2}" ) - TEST_LINE( oValue:SVARSCLASS3:x1 , "{X1}" ) - TEST_LINE( oValue:SVARSCLASS3:y1 , "{Y1}" ) - TEST_LINE( oValue:SVARSCLASS3:z1 , "{Z1}" ) - TEST_LINE( oValue:SVARSCLASS3:x2 , "{X2}" ) - TEST_LINE( oValue:SVARSCLASS3:y2 , "{Y2}" ) - TEST_LINE( oValue:SVARSCLASS3:z2 , "{Z2}" ) - TEST_LINE( oValue:SVARSCLASS3:x3 , " X3 " ) - TEST_LINE( oValue:SVARSCLASS3:y3 , " Y3 " ) - TEST_LINE( oValue:SVARSCLASS3:z3 , " Z3 " ) - TEST_LINE( oValue:SVARSCLASS4:x1 , "{X1}" ) - TEST_LINE( oValue:SVARSCLASS4:y1 , "{Y1}" ) - TEST_LINE( oValue:SVARSCLASS4:z1 , "{Z1}" ) - TEST_LINE( oValue:SVARSCLASS4:x2 , "{X2}" ) - TEST_LINE( oValue:SVARSCLASS4:y2 , "{Y2}" ) - TEST_LINE( oValue:SVARSCLASS4:z2 , "{Z2}" ) - TEST_LINE( oValue:SVARSCLASS4:x3 , " X3 " ) - TEST_LINE( oValue:SVARSCLASS4:y3 , " Y3 " ) - TEST_LINE( oValue:SVARSCLASS4:z3 , " Z3 " ) - TEST_LINE( oValue:SVARSCLASS4:x4 , " X4 " ) - TEST_LINE( oValue:SVARSCLASS4:y4 , " Y4 " ) - TEST_LINE( oValue:SVARSCLASS4:z4 , " Z4 " ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS1:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS2:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS3:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS4:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 3 ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[0]:" ) + HBTEST oValue:x1 IS "{X1}" + HBTEST oValue:y1 IS "{Y1}" + HBTEST oValue:z1 IS "{Z1}" + HBTEST oValue:x2 IS "{X2}" + HBTEST oValue:y2 IS "{Y2}" + HBTEST oValue:z2 IS "{Z2}" + HBTEST oValue:x3 IS " X3 " + HBTEST oValue:y3 IS " Y3 " + HBTEST oValue:z3 IS " Z3 " + HBTEST oValue:x4 IS " X4 " + HBTEST oValue:y4 IS " Y4 " + HBTEST oValue:z4 IS " Z4 " + HBTEST oValue:SVARSCLASS1:x1 IS "{X1}" + HBTEST oValue:SVARSCLASS1:y1 IS "{Y1}" + HBTEST oValue:SVARSCLASS1:z1 IS "{Z1}" + HBTEST oValue:SVARSCLASS2:x1 IS "{X1}" + HBTEST oValue:SVARSCLASS2:y1 IS "{Y1}" + HBTEST oValue:SVARSCLASS2:z1 IS "{Z1}" + HBTEST oValue:SVARSCLASS2:x2 IS "{X2}" + HBTEST oValue:SVARSCLASS2:y2 IS "{Y2}" + HBTEST oValue:SVARSCLASS2:z2 IS "{Z2}" + HBTEST oValue:SVARSCLASS3:x1 IS "{X1}" + HBTEST oValue:SVARSCLASS3:y1 IS "{Y1}" + HBTEST oValue:SVARSCLASS3:z1 IS "{Z1}" + HBTEST oValue:SVARSCLASS3:x2 IS "{X2}" + HBTEST oValue:SVARSCLASS3:y2 IS "{Y2}" + HBTEST oValue:SVARSCLASS3:z2 IS "{Z2}" + HBTEST oValue:SVARSCLASS3:x3 IS " X3 " + HBTEST oValue:SVARSCLASS3:y3 IS " Y3 " + HBTEST oValue:SVARSCLASS3:z3 IS " Z3 " + HBTEST oValue:SVARSCLASS4:x1 IS "{X1}" + HBTEST oValue:SVARSCLASS4:y1 IS "{Y1}" + HBTEST oValue:SVARSCLASS4:z1 IS "{Z1}" + HBTEST oValue:SVARSCLASS4:x2 IS "{X2}" + HBTEST oValue:SVARSCLASS4:y2 IS "{Y2}" + HBTEST oValue:SVARSCLASS4:z2 IS "{Z2}" + HBTEST oValue:SVARSCLASS4:x3 IS " X3 " + HBTEST oValue:SVARSCLASS4:y3 IS " Y3 " + HBTEST oValue:SVARSCLASS4:z3 IS " Z3 " + HBTEST oValue:SVARSCLASS4:x4 IS " X4 " + HBTEST oValue:SVARSCLASS4:y4 IS " Y4 " + HBTEST oValue:SVARSCLASS4:z4 IS " Z4 " + HBTEST __cls_CntClsData( oValue:SVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:SVARSCLASS1:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS2:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS3:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS4:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:classH ) IS 3 + HBTEST INSTANCE_DATA( oValue ) IS "[0]:" /* Setting SVARSCLASS3 class variables... */ - TEST_LINE( oValue:SVARSCLASS3:x1 := "" , "" ) - TEST_LINE( oValue:SVARSCLASS3:y1 := "" , "" ) - TEST_LINE( oValue:SVARSCLASS3:z1 := "" , "" ) - TEST_LINE( oValue:SVARSCLASS3:x2 := "" , "" ) - TEST_LINE( oValue:SVARSCLASS3:y2 := "" , "" ) - TEST_LINE( oValue:SVARSCLASS3:z2 := "" , "" ) - TEST_LINE( oValue:SVARSCLASS3:x3 := "" , "" ) - TEST_LINE( oValue:SVARSCLASS3:y3 := "" , "" ) - TEST_LINE( oValue:SVARSCLASS3:z3 := "" , "" ) + HBTEST oValue:SVARSCLASS3:x1 := "" IS "" + HBTEST oValue:SVARSCLASS3:y1 := "" IS "" + HBTEST oValue:SVARSCLASS3:z1 := "" IS "" + HBTEST oValue:SVARSCLASS3:x2 := "" IS "" + HBTEST oValue:SVARSCLASS3:y2 := "" IS "" + HBTEST oValue:SVARSCLASS3:z2 := "" IS "" + HBTEST oValue:SVARSCLASS3:x3 := "" IS "" + HBTEST oValue:SVARSCLASS3:y3 := "" IS "" + HBTEST oValue:SVARSCLASS3:z3 := "" IS "" - TEST_LINE( oValue:x1 , "" ) - TEST_LINE( oValue:y1 , "" ) - TEST_LINE( oValue:z1 , "" ) - TEST_LINE( oValue:x2 , "" ) - TEST_LINE( oValue:y2 , "" ) - TEST_LINE( oValue:z2 , "" ) - TEST_LINE( oValue:x3 , "" ) - TEST_LINE( oValue:y3 , "" ) - TEST_LINE( oValue:z3 , "" ) - TEST_LINE( oValue:x4 , " X4 " ) - TEST_LINE( oValue:y4 , " Y4 " ) - TEST_LINE( oValue:z4 , " Z4 " ) - TEST_LINE( oValue:SVARSCLASS1:x1 , "" ) - TEST_LINE( oValue:SVARSCLASS1:y1 , "" ) - TEST_LINE( oValue:SVARSCLASS1:z1 , "" ) - TEST_LINE( oValue:SVARSCLASS2:x1 , "" ) - TEST_LINE( oValue:SVARSCLASS2:y1 , "" ) - TEST_LINE( oValue:SVARSCLASS2:z1 , "" ) - TEST_LINE( oValue:SVARSCLASS2:x2 , "" ) - TEST_LINE( oValue:SVARSCLASS2:y2 , "" ) - TEST_LINE( oValue:SVARSCLASS2:z2 , "" ) - TEST_LINE( oValue:SVARSCLASS3:x1 , "" ) - TEST_LINE( oValue:SVARSCLASS3:y1 , "" ) - TEST_LINE( oValue:SVARSCLASS3:z1 , "" ) - TEST_LINE( oValue:SVARSCLASS3:x2 , "" ) - TEST_LINE( oValue:SVARSCLASS3:y2 , "" ) - TEST_LINE( oValue:SVARSCLASS3:z2 , "" ) - TEST_LINE( oValue:SVARSCLASS3:x3 , "" ) - TEST_LINE( oValue:SVARSCLASS3:y3 , "" ) - TEST_LINE( oValue:SVARSCLASS3:z3 , "" ) - TEST_LINE( oValue:SVARSCLASS4:x1 , "" ) - TEST_LINE( oValue:SVARSCLASS4:y1 , "" ) - TEST_LINE( oValue:SVARSCLASS4:z1 , "" ) - TEST_LINE( oValue:SVARSCLASS4:x2 , "" ) - TEST_LINE( oValue:SVARSCLASS4:y2 , "" ) - TEST_LINE( oValue:SVARSCLASS4:z2 , "" ) - TEST_LINE( oValue:SVARSCLASS4:x3 , "" ) - TEST_LINE( oValue:SVARSCLASS4:y3 , "" ) - TEST_LINE( oValue:SVARSCLASS4:z3 , "" ) - TEST_LINE( oValue:SVARSCLASS4:x4 , " X4 " ) - TEST_LINE( oValue:SVARSCLASS4:y4 , " Y4 " ) - TEST_LINE( oValue:SVARSCLASS4:z4 , " Z4 " ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS1:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS2:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS3:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:SVARSCLASS4:classH ) , 0 ) - TEST_LINE( __cls_CntClsData( oValue:classH ) , 0 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS1:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS2:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS3:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:SVARSCLASS4:classH ) , 3 ) - TEST_LINE( __cls_CntShrData( oValue:classH ) , 3 ) - TEST_LINE( INSTANCE_DATA( oValue ) , "[0]:" ) + HBTEST oValue:x1 IS "" + HBTEST oValue:y1 IS "" + HBTEST oValue:z1 IS "" + HBTEST oValue:x2 IS "" + HBTEST oValue:y2 IS "" + HBTEST oValue:z2 IS "" + HBTEST oValue:x3 IS "" + HBTEST oValue:y3 IS "" + HBTEST oValue:z3 IS "" + HBTEST oValue:x4 IS " X4 " + HBTEST oValue:y4 IS " Y4 " + HBTEST oValue:z4 IS " Z4 " + HBTEST oValue:SVARSCLASS1:x1 IS "" + HBTEST oValue:SVARSCLASS1:y1 IS "" + HBTEST oValue:SVARSCLASS1:z1 IS "" + HBTEST oValue:SVARSCLASS2:x1 IS "" + HBTEST oValue:SVARSCLASS2:y1 IS "" + HBTEST oValue:SVARSCLASS2:z1 IS "" + HBTEST oValue:SVARSCLASS2:x2 IS "" + HBTEST oValue:SVARSCLASS2:y2 IS "" + HBTEST oValue:SVARSCLASS2:z2 IS "" + HBTEST oValue:SVARSCLASS3:x1 IS "" + HBTEST oValue:SVARSCLASS3:y1 IS "" + HBTEST oValue:SVARSCLASS3:z1 IS "" + HBTEST oValue:SVARSCLASS3:x2 IS "" + HBTEST oValue:SVARSCLASS3:y2 IS "" + HBTEST oValue:SVARSCLASS3:z2 IS "" + HBTEST oValue:SVARSCLASS3:x3 IS "" + HBTEST oValue:SVARSCLASS3:y3 IS "" + HBTEST oValue:SVARSCLASS3:z3 IS "" + HBTEST oValue:SVARSCLASS4:x1 IS "" + HBTEST oValue:SVARSCLASS4:y1 IS "" + HBTEST oValue:SVARSCLASS4:z1 IS "" + HBTEST oValue:SVARSCLASS4:x2 IS "" + HBTEST oValue:SVARSCLASS4:y2 IS "" + HBTEST oValue:SVARSCLASS4:z2 IS "" + HBTEST oValue:SVARSCLASS4:x3 IS "" + HBTEST oValue:SVARSCLASS4:y3 IS "" + HBTEST oValue:SVARSCLASS4:z3 IS "" + HBTEST oValue:SVARSCLASS4:x4 IS " X4 " + HBTEST oValue:SVARSCLASS4:y4 IS " Y4 " + HBTEST oValue:SVARSCLASS4:z4 IS " Z4 " + HBTEST __cls_CntClsData( oValue:SVARSCLASS1:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS2:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS3:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:SVARSCLASS4:classH ) IS 0 + HBTEST __cls_CntClsData( oValue:classH ) IS 0 + HBTEST __cls_CntShrData( oValue:SVARSCLASS1:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS2:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS3:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:SVARSCLASS4:classH ) IS 3 + HBTEST __cls_CntShrData( oValue:classH ) IS 3 + HBTEST INSTANCE_DATA( oValue ) IS "[0]:" diff --git a/harbour/utils/hbtest/rt_date.prg b/harbour/utils/hbtest/rt_date.prg index 67d380e258..953343afd0 100644 --- a/harbour/utils/hbtest/rt_date.prg +++ b/harbour/utils/hbtest/rt_date.prg @@ -60,136 +60,136 @@ PROCEDURE Main_DATE() /* Year() */ - TEST_LINE( Year(NIL) , "E 1 BASE 1112 Argument error (YEAR) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( Year(100) , "E 1 BASE 1112 Argument error (YEAR) OS:0 #:0 A:1:N:100 F:S" ) + HBTEST Year(NIL) IS "E 1 BASE 1112 Argument error (YEAR) OS:0 #:0 A:1:U:NIL F:S" + HBTEST Year(100) IS "E 1 BASE 1112 Argument error (YEAR) OS:0 #:0 A:1:N:100 F:S" #ifdef __HARBOUR__ - TEST_LINE( Year(@sdDate) , 1984 ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1112 Argument error (YEAR) OS:0 #:0 A:1:U:19840325 F:S" */ + HBTEST Year(@sdDate) IS 1984 /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1112 Argument error (YEAR) OS:0 #:0 A:1:U:19840325 F:S" */ #endif - TEST_LINE( Year(sdDate) , 1984 ) - TEST_LINE( Year(sdDateE) , 0 ) - TEST_LINE( Str(Year(hb_SToD("19990905"))) , " 1999" ) + HBTEST Year(sdDate) IS 1984 + HBTEST Year(sdDateE) IS 0 + HBTEST Str(Year(hb_SToD("19990905"))) IS " 1999" /* Month() */ - TEST_LINE( Month(NIL) , "E 1 BASE 1113 Argument error (MONTH) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( Month(100) , "E 1 BASE 1113 Argument error (MONTH) OS:0 #:0 A:1:N:100 F:S" ) + HBTEST Month(NIL) IS "E 1 BASE 1113 Argument error (MONTH) OS:0 #:0 A:1:U:NIL F:S" + HBTEST Month(100) IS "E 1 BASE 1113 Argument error (MONTH) OS:0 #:0 A:1:N:100 F:S" #ifdef __HARBOUR__ - TEST_LINE( Month(@sdDate) , 3 ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1113 Argument error (MONTH) OS:0 #:0 A:1:U:19840325 F:S" */ + HBTEST Month(@sdDate) IS 3 /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1113 Argument error (MONTH) OS:0 #:0 A:1:U:19840325 F:S" */ #endif - TEST_LINE( Month(sdDate) , 3 ) - TEST_LINE( Month(sdDateE) , 0 ) - TEST_LINE( Str(Month(hb_SToD("19990905"))) , " 9" ) + HBTEST Month(sdDate) IS 3 + HBTEST Month(sdDateE) IS 0 + HBTEST Str(Month(hb_SToD("19990905"))) IS " 9" /* Day() */ - TEST_LINE( Day(NIL) , "E 1 BASE 1114 Argument error (DAY) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( Day(100) , "E 1 BASE 1114 Argument error (DAY) OS:0 #:0 A:1:N:100 F:S" ) + HBTEST Day(NIL) IS "E 1 BASE 1114 Argument error (DAY) OS:0 #:0 A:1:U:NIL F:S" + HBTEST Day(100) IS "E 1 BASE 1114 Argument error (DAY) OS:0 #:0 A:1:N:100 F:S" #ifdef __HARBOUR__ - TEST_LINE( Day(@sdDate) , 25 ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1114 Argument error (DAY) OS:0 #:0 A:1:U:19840325 F:S" */ + HBTEST Day(@sdDate) IS 25 /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1114 Argument error (DAY) OS:0 #:0 A:1:U:19840325 F:S" */ #endif - TEST_LINE( Day(sdDate) , 25 ) - TEST_LINE( Day(sdDateE) , 0 ) - TEST_LINE( Str(Day(hb_SToD("19990905"))) , " 5" ) + HBTEST Day(sdDate) IS 25 + HBTEST Day(sdDateE) IS 0 + HBTEST Str(Day(hb_SToD("19990905"))) IS " 5" /* Time() */ - TEST_LINE( Len(Time()) , 8 ) + HBTEST Len(Time()) IS 8 /* DoW() */ - TEST_LINE( DoW(NIL) , "E 1 BASE 1115 Argument error (DOW) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( DoW(100) , "E 1 BASE 1115 Argument error (DOW) OS:0 #:0 A:1:N:100 F:S" ) + HBTEST DoW(NIL) IS "E 1 BASE 1115 Argument error (DOW) OS:0 #:0 A:1:U:NIL F:S" + HBTEST DoW(100) IS "E 1 BASE 1115 Argument error (DOW) OS:0 #:0 A:1:N:100 F:S" #ifdef __HARBOUR__ - TEST_LINE( DoW(@sdDate) , 1 ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1115 Argument error (DOW) OS:0 #:0 A:1:U:19840325 F:S" */ + HBTEST DoW(@sdDate) IS 1 /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1115 Argument error (DOW) OS:0 #:0 A:1:U:19840325 F:S" */ #endif - TEST_LINE( DoW(sdDate) , 1 ) - TEST_LINE( DoW(sdDateE) , 0 ) - TEST_LINE( DoW(hb_SToD("20000222")) , 3 ) - TEST_LINE( DoW(hb_SToD("20000223")) , 4 ) - TEST_LINE( DoW(hb_SToD("20000224")) , 5 ) - TEST_LINE( DoW(hb_SToD("20000225")) , 6 ) - TEST_LINE( DoW(hb_SToD("20000226")) , 7 ) - TEST_LINE( DoW(hb_SToD("20000227")) , 1 ) - TEST_LINE( DoW(hb_SToD("20000228")) , 2 ) - TEST_LINE( DoW(hb_SToD("20000229")) , 3 ) - TEST_LINE( DoW(hb_SToD("20000230")) , 0 ) - TEST_LINE( DoW(hb_SToD("20000231")) , 0 ) - TEST_LINE( DoW(hb_SToD("20000301")) , 4 ) + HBTEST DoW(sdDate) IS 1 + HBTEST DoW(sdDateE) IS 0 + HBTEST DoW(hb_SToD("20000222")) IS 3 + HBTEST DoW(hb_SToD("20000223")) IS 4 + HBTEST DoW(hb_SToD("20000224")) IS 5 + HBTEST DoW(hb_SToD("20000225")) IS 6 + HBTEST DoW(hb_SToD("20000226")) IS 7 + HBTEST DoW(hb_SToD("20000227")) IS 1 + HBTEST DoW(hb_SToD("20000228")) IS 2 + HBTEST DoW(hb_SToD("20000229")) IS 3 + HBTEST DoW(hb_SToD("20000230")) IS 0 + HBTEST DoW(hb_SToD("20000231")) IS 0 + HBTEST DoW(hb_SToD("20000301")) IS 4 /* CMonth() */ - TEST_LINE( CMonth(NIL) , "E 1 BASE 1116 Argument error (CMONTH) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( CMonth(100) , "E 1 BASE 1116 Argument error (CMONTH) OS:0 #:0 A:1:N:100 F:S" ) + HBTEST CMonth(NIL) IS "E 1 BASE 1116 Argument error (CMONTH) OS:0 #:0 A:1:U:NIL F:S" + HBTEST CMonth(100) IS "E 1 BASE 1116 Argument error (CMONTH) OS:0 #:0 A:1:N:100 F:S" #ifdef __HARBOUR__ - TEST_LINE( CMonth(@sdDate) , "March" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1116 Argument error (CMONTH) OS:0 #:0 A:1:U:19840325 F:S" */ + HBTEST CMonth(@sdDate) IS "March" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1116 Argument error (CMONTH) OS:0 #:0 A:1:U:19840325 F:S" */ #endif - TEST_LINE( CMonth(sdDate) , "March" ) - TEST_LINE( CMonth(sdDateE) , "" ) - TEST_LINE( CMonth(hb_SToD("19990101")) , "January" ) - TEST_LINE( CMonth(hb_SToD("19990201")) , "February" ) - TEST_LINE( CMonth(hb_SToD("19990301")) , "March" ) - TEST_LINE( CMonth(hb_SToD("19990401")) , "April" ) - TEST_LINE( CMonth(hb_SToD("19990501")) , "May" ) - TEST_LINE( CMonth(hb_SToD("19990601")) , "June" ) - TEST_LINE( CMonth(hb_SToD("19990701")) , "July" ) - TEST_LINE( CMonth(hb_SToD("19990801")) , "August" ) - TEST_LINE( CMonth(hb_SToD("19990901")) , "September" ) - TEST_LINE( CMonth(hb_SToD("19991001")) , "October" ) - TEST_LINE( CMonth(hb_SToD("19991101")) , "November" ) - TEST_LINE( CMonth(hb_SToD("19991201")) , "December" ) + HBTEST CMonth(sdDate) IS "March" + HBTEST CMonth(sdDateE) IS "" + HBTEST CMonth(hb_SToD("19990101")) IS "January" + HBTEST CMonth(hb_SToD("19990201")) IS "February" + HBTEST CMonth(hb_SToD("19990301")) IS "March" + HBTEST CMonth(hb_SToD("19990401")) IS "April" + HBTEST CMonth(hb_SToD("19990501")) IS "May" + HBTEST CMonth(hb_SToD("19990601")) IS "June" + HBTEST CMonth(hb_SToD("19990701")) IS "July" + HBTEST CMonth(hb_SToD("19990801")) IS "August" + HBTEST CMonth(hb_SToD("19990901")) IS "September" + HBTEST CMonth(hb_SToD("19991001")) IS "October" + HBTEST CMonth(hb_SToD("19991101")) IS "November" + HBTEST CMonth(hb_SToD("19991201")) IS "December" /* CDoW() */ - TEST_LINE( CDoW(NIL) , "E 1 BASE 1117 Argument error (CDOW) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( CDoW(100) , "E 1 BASE 1117 Argument error (CDOW) OS:0 #:0 A:1:N:100 F:S" ) + HBTEST CDoW(NIL) IS "E 1 BASE 1117 Argument error (CDOW) OS:0 #:0 A:1:U:NIL F:S" + HBTEST CDoW(100) IS "E 1 BASE 1117 Argument error (CDOW) OS:0 #:0 A:1:N:100 F:S" #ifdef __HARBOUR__ - TEST_LINE( CDoW(@sdDate) , "Sunday" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1117 Argument error (CDOW) OS:0 #:0 A:1:U:19840325 F:S" */ + HBTEST CDoW(@sdDate) IS "Sunday" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1117 Argument error (CDOW) OS:0 #:0 A:1:U:19840325 F:S" */ #endif - TEST_LINE( CDoW(sdDate) , "Sunday" ) - TEST_LINE( CDoW(sdDateE) , "" ) - TEST_LINE( CDoW(hb_SToD("20000222")) , "Tuesday" ) - TEST_LINE( CDoW(hb_SToD("20000223")) , "Wednesday" ) - TEST_LINE( CDoW(hb_SToD("20000224")) , "Thursday" ) - TEST_LINE( CDoW(hb_SToD("20000225")) , "Friday" ) - TEST_LINE( CDoW(hb_SToD("20000226")) , "Saturday" ) - TEST_LINE( CDoW(hb_SToD("20000227")) , "Sunday" ) - TEST_LINE( CDoW(hb_SToD("20000228")) , "Monday" ) - TEST_LINE( CDoW(hb_SToD("20000229")) , "Tuesday" ) - TEST_LINE( CDoW(hb_SToD("20000230")) , "" ) - TEST_LINE( CDoW(hb_SToD("20000231")) , "" ) - TEST_LINE( CDoW(hb_SToD("20000301")) , "Wednesday" ) + HBTEST CDoW(sdDate) IS "Sunday" + HBTEST CDoW(sdDateE) IS "" + HBTEST CDoW(hb_SToD("20000222")) IS "Tuesday" + HBTEST CDoW(hb_SToD("20000223")) IS "Wednesday" + HBTEST CDoW(hb_SToD("20000224")) IS "Thursday" + HBTEST CDoW(hb_SToD("20000225")) IS "Friday" + HBTEST CDoW(hb_SToD("20000226")) IS "Saturday" + HBTEST CDoW(hb_SToD("20000227")) IS "Sunday" + HBTEST CDoW(hb_SToD("20000228")) IS "Monday" + HBTEST CDoW(hb_SToD("20000229")) IS "Tuesday" + HBTEST CDoW(hb_SToD("20000230")) IS "" + HBTEST CDoW(hb_SToD("20000231")) IS "" + HBTEST CDoW(hb_SToD("20000301")) IS "Wednesday" /* DToC() */ - TEST_LINE( DToC(NIL) , "E 1 BASE 1118 Argument error (DTOC) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( DToC(100) , "E 1 BASE 1118 Argument error (DTOC) OS:0 #:0 A:1:N:100 F:S" ) - TEST_LINE( DToC("") , "E 1 BASE 1118 Argument error (DTOC) OS:0 #:0 A:1:C: F:S" ) + HBTEST DToC(NIL) IS "E 1 BASE 1118 Argument error (DTOC) OS:0 #:0 A:1:U:NIL F:S" + HBTEST DToC(100) IS "E 1 BASE 1118 Argument error (DTOC) OS:0 #:0 A:1:N:100 F:S" + HBTEST DToC("") IS "E 1 BASE 1118 Argument error (DTOC) OS:0 #:0 A:1:C: F:S" #ifdef __HARBOUR__ - TEST_LINE( DToC(@sdDate) , "1984.03.25" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1118 Argument error (DTOC) OS:0 #:0 A:1:U:19840325 F:S" */ + HBTEST DToC(@sdDate) IS "1984.03.25" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1118 Argument error (DTOC) OS:0 #:0 A:1:U:19840325 F:S" */ #endif - TEST_LINE( DToC(sdDate) , "1984.03.25" ) - TEST_LINE( DToC(sdDateE) , " . . " ) + HBTEST DToC(sdDate) IS "1984.03.25" + HBTEST DToC(sdDateE) IS " . . " /* CToD() */ - TEST_LINE( CToD(NIL) , "E 1 BASE 1119 Argument error (CTOD) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( CToD(100) , "E 1 BASE 1119 Argument error (CTOD) OS:0 #:0 A:1:N:100 F:S" ) - TEST_LINE( CToD("") , hb_SToD(" ") ) + HBTEST CToD(NIL) IS "E 1 BASE 1119 Argument error (CTOD) OS:0 #:0 A:1:U:NIL F:S" + HBTEST CToD(100) IS "E 1 BASE 1119 Argument error (CTOD) OS:0 #:0 A:1:N:100 F:S" + HBTEST CToD("") IS hb_SToD(" ") #ifdef __HARBOUR__ - TEST_LINE( CToD(@cDate) , hb_SToD("19991125") ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1119 Argument error (CTOD) OS:0 #:0 A:1:U:1999/11/25 F:S" */ + HBTEST CToD(@cDate) IS hb_SToD("19991125") /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1119 Argument error (CTOD) OS:0 #:0 A:1:U:1999/11/25 F:S" */ #endif - TEST_LINE( CToD(cDate) , hb_SToD("19991125") ) - TEST_LINE( CToD("1999/11/25/10") , hb_SToD("19991125") ) + HBTEST CToD(cDate) IS hb_SToD("19991125") + HBTEST CToD("1999/11/25/10") IS hb_SToD("19991125") /* DToS() */ - TEST_LINE( DToS(NIL) , "E 1 BASE 1120 Argument error (DTOS) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( DToS(100) , "E 1 BASE 1120 Argument error (DTOS) OS:0 #:0 A:1:N:100 F:S" ) + HBTEST DToS(NIL) IS "E 1 BASE 1120 Argument error (DTOS) OS:0 #:0 A:1:U:NIL F:S" + HBTEST DToS(100) IS "E 1 BASE 1120 Argument error (DTOS) OS:0 #:0 A:1:N:100 F:S" #ifdef __HARBOUR__ - TEST_LINE( DToS(@sdDate) , "19840325" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1120 Argument error (DTOS) OS:0 #:0 A:1:U:19840325 F:S" */ + HBTEST DToS(@sdDate) IS "19840325" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1120 Argument error (DTOS) OS:0 #:0 A:1:U:19840325 F:S" */ #endif - TEST_LINE( DToS(sdDate) , "19840325" ) - TEST_LINE( DToS(sdDateE) , " " ) + HBTEST DToS(sdDate) IS "19840325" + HBTEST DToS(sdDateE) IS " " RETURN diff --git a/harbour/utils/hbtest/rt_file.prg b/harbour/utils/hbtest/rt_file.prg index 0c8df2607a..7a86f407f7 100644 --- a/harbour/utils/hbtest/rt_file.prg +++ b/harbour/utils/hbtest/rt_file.prg @@ -72,148 +72,148 @@ PROCEDURE Main_FILE() nFlags := FC_NORMAL fhnd := FCreate( cFileName, nFlags ) - TEST_LINE( FError() , 0 ) - TEST_LINE( TESTFIER( FWrite( fhnd, ">1234567890<" ) ) , "E: 0 R: 12" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "(123" + Chr(0) + "4567890)" ) ) , "E: 0 R: 13" ) + HBTEST FError() IS 0 + HBTEST TESTFIER( FWrite( fhnd, ">1234567890<" ) ) IS "E: 0 R: 12" + HBTEST TESTFIER( FWrite( fhnd, "(123" + Chr(0) + "4567890)" ) ) IS "E: 0 R: 13" #ifndef __XPP__ - TEST_LINE( TESTFIER( FSeek( fhnd ) ) , "E: 0 R: 0" ) + HBTEST TESTFIER( FSeek( fhnd ) ) IS "E: 0 R: 0" #endif - TEST_LINE( TESTFIER( FSeek( fhnd, 5 ) ) , "E: 0 R: 5" ) - TEST_LINE( TESTFIER( FSeek( fhnd, -1, FS_SET ) ) , "E: 25 R: 5" ) - TEST_LINE( TESTFIER( FSeek( fhnd, -10, FS_SET ) ) , "E: 25 R: 5" ) - TEST_LINE( TESTFIER( FSeek( fhnd, -100, FS_SET ) ) , "E: 25 R: 5" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "!" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, 1 ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "A" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, 2, FS_SET ) ) , "E: 0 R: 2" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "B" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, 3, FS_RELATIVE ) ) , "E: 0 R: 6" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "C" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, -1, FS_RELATIVE ) ) , "E: 0 R: 6" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "D" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, 3, FS_END ) ) , "E: 0 R: 28" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "E" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, -1, FS_END ) ) , "E: 0 R: 28" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "F" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, 0 ) ) , "E: 0 R: 0" ) + HBTEST TESTFIER( FSeek( fhnd, 5 ) ) IS "E: 0 R: 5" + HBTEST TESTFIER( FSeek( fhnd, -1, FS_SET ) ) IS "E: 25 R: 5" + HBTEST TESTFIER( FSeek( fhnd, -10, FS_SET ) ) IS "E: 25 R: 5" + HBTEST TESTFIER( FSeek( fhnd, -100, FS_SET ) ) IS "E: 25 R: 5" + HBTEST TESTFIER( FWrite( fhnd, "!" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, 1 ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FWrite( fhnd, "A" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, 2, FS_SET ) ) IS "E: 0 R: 2" + HBTEST TESTFIER( FWrite( fhnd, "B" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, 3, FS_RELATIVE ) ) IS "E: 0 R: 6" + HBTEST TESTFIER( FWrite( fhnd, "C" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, -1, FS_RELATIVE ) ) IS "E: 0 R: 6" + HBTEST TESTFIER( FWrite( fhnd, "D" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, 3, FS_END ) ) IS "E: 0 R: 28" + HBTEST TESTFIER( FWrite( fhnd, "E" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, -1, FS_END ) ) IS "E: 0 R: 28" + HBTEST TESTFIER( FWrite( fhnd, "F" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, 0 ) ) IS "E: 0 R: 0" #ifndef __XPP__ - TEST_LINE( TESTFIER( FRead( fhnd, mnLongP ) ) , "E: 0 R: 0" ) + HBTEST TESTFIER( FRead( fhnd, mnLongP ) ) IS "E: 0 R: 0" #endif - TEST_LINE( TESTFIER( FRead( fhnd, @mnLongP, 2 ) ) , "E: 0 R: 0" ) + HBTEST TESTFIER( FRead( fhnd, @mnLongP, 2 ) ) IS "E: 0 R: 0" #ifndef __XPP__ - TEST_LINE( TESTFIER( FRead( fhnd, cBuff4 ) ) , "E: 0 R: 0" ) + HBTEST TESTFIER( FRead( fhnd, cBuff4 ) ) IS "E: 0 R: 0" #endif - TEST_LINE( TESTFIER( FRead( fhnd, cBuff4, 2 ) ) , "E: 0 R: 0" ) + HBTEST TESTFIER( FRead( fhnd, cBuff4, 2 ) ) IS "E: 0 R: 0" #ifdef __CLIPPER__ -// TEST_LINE( TESTFIER( FRead( fhnd, @cBuff4, Len( cBuff4 ) + 1 ) ) , "E: 0 R: 0" ) +// HBTEST TESTFIER( FRead( fhnd, @cBuff4, Len( cBuff4 ) + 1 ) ) IS "E: 0 R: 0" #endif - TEST_LINE( TESTFIER( FRead( fhnd, @cBuff4, 1000 ) ) , 'E: 0 R: 0' ) - TEST_LINE( TESTFIER( FRead( fhnd, @cBuff4, 3 ) ) , 'E: 0 R: 3' ) - TEST_LINE( TESTFIER( FRead( fhnd, @cBuff100, 100 ) ) , 'E: 0 R: 26' ) - TEST_LINE( TESTFIER( FSeek( fhnd, 0 ) ) , 'E: 0 R: 0' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 4 ) ) , 'E: 0 R: ">AB3"' ) - TEST_LINE( TESTFIER( FSeek( fhnd, 0 ) ) , 'E: 0 R: 0' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 100 ) ) , 'E: 0 R: ">AB34!D7890<(123"' ) - TEST_LINE( TESTFIER( FSeek( fhnd, 1, FS_RELATIVE ) ) , 'E: 0 R: 30' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 2 ) ) , 'E: 0 R: ""' ) - TEST_LINE( TESTFIER( FSeek( fhnd, -4, FS_END ) ) , 'E: 0 R: 25' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 1 ) ) , 'E: 0 R: ""' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 20 ) ) , 'E: 0 R: ""' ) - TEST_LINE( TESTFIER( FSeek( fhnd, 0, FS_END ) ) , 'E: 0 R: 29' ) - TEST_LINE( TESTFIER( FWrite( fhnd, "_-_-_-_-_-_-_" ) ) , 'E: 0 R: 13' ) - TEST_LINE( TESTFIER( FSeek( fhnd, -4, FS_END ) ) , 'E: 0 R: 38' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 1 ) ) , 'E: 0 R: "-"' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 20 ) ) , 'E: 0 R: "_-_"' ) - TEST_LINE( TESTFIER( FSeek( fhnd, 3, FS_END ) ) , 'E: 0 R: 45' ) - TEST_LINE( TESTFIER( FWrite( fhnd, "V" ) ) , 'E: 0 R: 1' ) - TEST_LINE( TESTFIER( FSeek( fhnd, -3, FS_END ) ) , 'E: 0 R: 43' ) - TEST_LINE( TESTFIER( FWrite( fhnd, "W" ) ) , 'E: 0 R: 1' ) + HBTEST TESTFIER( FRead( fhnd, @cBuff4, 1000 ) ) IS 'E: 0 R: 0' + HBTEST TESTFIER( FRead( fhnd, @cBuff4, 3 ) ) IS 'E: 0 R: 3' + HBTEST TESTFIER( FRead( fhnd, @cBuff100, 100 ) ) IS 'E: 0 R: 26' + HBTEST TESTFIER( FSeek( fhnd, 0 ) ) IS 'E: 0 R: 0' + HBTEST TESTFIER( FReadStr( fhnd, 4 ) ) IS 'E: 0 R: ">AB3"' + HBTEST TESTFIER( FSeek( fhnd, 0 ) ) IS 'E: 0 R: 0' + HBTEST TESTFIER( FReadStr( fhnd, 100 ) ) IS 'E: 0 R: ">AB34!D7890<(123"' + HBTEST TESTFIER( FSeek( fhnd, 1, FS_RELATIVE ) ) IS 'E: 0 R: 30' + HBTEST TESTFIER( FReadStr( fhnd, 2 ) ) IS 'E: 0 R: ""' + HBTEST TESTFIER( FSeek( fhnd, -4, FS_END ) ) IS 'E: 0 R: 25' + HBTEST TESTFIER( FReadStr( fhnd, 1 ) ) IS 'E: 0 R: ""' + HBTEST TESTFIER( FReadStr( fhnd, 20 ) ) IS 'E: 0 R: ""' + HBTEST TESTFIER( FSeek( fhnd, 0, FS_END ) ) IS 'E: 0 R: 29' + HBTEST TESTFIER( FWrite( fhnd, "_-_-_-_-_-_-_" ) ) IS 'E: 0 R: 13' + HBTEST TESTFIER( FSeek( fhnd, -4, FS_END ) ) IS 'E: 0 R: 38' + HBTEST TESTFIER( FReadStr( fhnd, 1 ) ) IS 'E: 0 R: "-"' + HBTEST TESTFIER( FReadStr( fhnd, 20 ) ) IS 'E: 0 R: "_-_"' + HBTEST TESTFIER( FSeek( fhnd, 3, FS_END ) ) IS 'E: 0 R: 45' + HBTEST TESTFIER( FWrite( fhnd, "V" ) ) IS 'E: 0 R: 1' + HBTEST TESTFIER( FSeek( fhnd, -3, FS_END ) ) IS 'E: 0 R: 43' + HBTEST TESTFIER( FWrite( fhnd, "W" ) ) IS 'E: 0 R: 1' #ifndef __XPP__ - TEST_LINE( TESTFIER( FClose() ) , 'E: 0 R: .F.' ) + HBTEST TESTFIER( FClose() ) IS 'E: 0 R: .F.' #endif - TEST_LINE( TESTFIER( FClose( fhnd ) ) , 'E: 0 R: .T.' ) - TEST_LINE( TESTFIER( FClose( fhnd ) ) , 'E: 6 R: .F.' ) - TEST_LINE( TESTFIER( FErase( "NOT_HERE.$$$" ) ) , 'E: 2 R: -1' ) - TEST_LINE( TESTFIER( FErase( 1 ) ) , 'E: 3 R: -1' ) - TEST_LINE( TESTFIER( FErase( "NOT_HERE.$$$" ) ) , 'E: 2 R: -1' ) - TEST_LINE( TESTFIER( FRename( "NOT_HERE.$$$", 'A' ) ) , 'E: 2 R: -1' ) - TEST_LINE( TESTFIER( FOpen( "NOT_HERE.$$$" ) ) , 'E: 2 R: -1' ) + HBTEST TESTFIER( FClose( fhnd ) ) IS 'E: 0 R: .T.' + HBTEST TESTFIER( FClose( fhnd ) ) IS 'E: 6 R: .F.' + HBTEST TESTFIER( FErase( "NOT_HERE.$$$" ) ) IS 'E: 2 R: -1' + HBTEST TESTFIER( FErase( 1 ) ) IS 'E: 3 R: -1' + HBTEST TESTFIER( FErase( "NOT_HERE.$$$" ) ) IS 'E: 2 R: -1' + HBTEST TESTFIER( FRename( "NOT_HERE.$$$", 'A' ) ) IS 'E: 2 R: -1' + HBTEST TESTFIER( FOpen( "NOT_HERE.$$$" ) ) IS 'E: 2 R: -1' nFlags := FO_READWRITE fhnd := FOpen( cFileName, nFlags ) - TEST_LINE( FError() , 0 ) - TEST_LINE( TESTFIER( FWrite( fhnd, ">1234567890<" ) ) , "E: 0 R: 12" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "(123" + Chr(0) + "4567890)" ) ) , "E: 0 R: 13" ) + HBTEST FError() IS 0 + HBTEST TESTFIER( FWrite( fhnd, ">1234567890<" ) ) IS "E: 0 R: 12" + HBTEST TESTFIER( FWrite( fhnd, "(123" + Chr(0) + "4567890)" ) ) IS "E: 0 R: 13" #ifndef __XPP__ - TEST_LINE( TESTFIER( FSeek( fhnd ) ) , "E: 0 R: 0" ) + HBTEST TESTFIER( FSeek( fhnd ) ) IS "E: 0 R: 0" #endif - TEST_LINE( TESTFIER( FSeek( fhnd, 5 ) ) , "E: 0 R: 5" ) - TEST_LINE( TESTFIER( FSeek( fhnd, -1, FS_SET ) ) , "E: 25 R: 5" ) - TEST_LINE( TESTFIER( FSeek( fhnd, -10, FS_SET ) ) , "E: 25 R: 5" ) - TEST_LINE( TESTFIER( FSeek( fhnd, -100, FS_SET ) ) , "E: 25 R: 5" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "!" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, 1 ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "A" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, 2, FS_SET ) ) , "E: 0 R: 2" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "B" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, 3, FS_RELATIVE ) ) , "E: 0 R: 6" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "C" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, -1, FS_RELATIVE ) ) , "E: 0 R: 6" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "D" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, 3, FS_END ) ) , "E: 0 R: 49" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "E" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, -1, FS_END ) ) , "E: 0 R: 49" ) - TEST_LINE( TESTFIER( FWrite( fhnd, "F" ) ) , "E: 0 R: 1" ) - TEST_LINE( TESTFIER( FSeek( fhnd, 0 ) ) , "E: 0 R: 0" ) + HBTEST TESTFIER( FSeek( fhnd, 5 ) ) IS "E: 0 R: 5" + HBTEST TESTFIER( FSeek( fhnd, -1, FS_SET ) ) IS "E: 25 R: 5" + HBTEST TESTFIER( FSeek( fhnd, -10, FS_SET ) ) IS "E: 25 R: 5" + HBTEST TESTFIER( FSeek( fhnd, -100, FS_SET ) ) IS "E: 25 R: 5" + HBTEST TESTFIER( FWrite( fhnd, "!" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, 1 ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FWrite( fhnd, "A" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, 2, FS_SET ) ) IS "E: 0 R: 2" + HBTEST TESTFIER( FWrite( fhnd, "B" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, 3, FS_RELATIVE ) ) IS "E: 0 R: 6" + HBTEST TESTFIER( FWrite( fhnd, "C" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, -1, FS_RELATIVE ) ) IS "E: 0 R: 6" + HBTEST TESTFIER( FWrite( fhnd, "D" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, 3, FS_END ) ) IS "E: 0 R: 49" + HBTEST TESTFIER( FWrite( fhnd, "E" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, -1, FS_END ) ) IS "E: 0 R: 49" + HBTEST TESTFIER( FWrite( fhnd, "F" ) ) IS "E: 0 R: 1" + HBTEST TESTFIER( FSeek( fhnd, 0 ) ) IS "E: 0 R: 0" #ifndef __XPP__ - TEST_LINE( TESTFIER( FRead( fhnd, mnLongP ) ) , "E: 0 R: 0" ) + HBTEST TESTFIER( FRead( fhnd, mnLongP ) ) IS "E: 0 R: 0" #endif - TEST_LINE( TESTFIER( FRead( fhnd, @mnLongP, 2 ) ) , "E: 0 R: 0" ) + HBTEST TESTFIER( FRead( fhnd, @mnLongP, 2 ) ) IS "E: 0 R: 0" #ifndef __XPP__ - TEST_LINE( TESTFIER( FRead( fhnd, cBuff4 ) ) , "E: 0 R: 0" ) + HBTEST TESTFIER( FRead( fhnd, cBuff4 ) ) IS "E: 0 R: 0" #endif - TEST_LINE( TESTFIER( FRead( fhnd, cBuff4, 2 ) ) , "E: 0 R: 0" ) + HBTEST TESTFIER( FRead( fhnd, cBuff4, 2 ) ) IS "E: 0 R: 0" #ifdef __CLIPPER__ -// TEST_LINE( TESTFIER( FRead( fhnd, @cBuff4, Len( cBuff4 ) + 1 ) ) , "E: 0 R: 0" ) +// HBTEST TESTFIER( FRead( fhnd, @cBuff4, Len( cBuff4 ) + 1 ) ) IS "E: 0 R: 0" #endif - TEST_LINE( TESTFIER( FRead( fhnd, @cBuff4, 1000 ) ) , 'E: 0 R: 0' ) - TEST_LINE( TESTFIER( FRead( fhnd, @cBuff4, 3 ) ) , 'E: 0 R: 3' ) - TEST_LINE( TESTFIER( FRead( fhnd, @cBuff100, 100 ) ) , 'E: 0 R: 47' ) - TEST_LINE( TESTFIER( FSeek( fhnd, 0 ) ) , 'E: 0 R: 0' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 4 ) ) , 'E: 0 R: ">AB3"' ) - TEST_LINE( TESTFIER( FSeek( fhnd, 0 ) ) , 'E: 0 R: 0' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 100 ) ) , 'E: 0 R: ">AB34!D7890<(123"' ) - TEST_LINE( TESTFIER( FSeek( fhnd, 1, FS_RELATIVE ) ) , 'E: 0 R: 51' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 2 ) ) , 'E: 0 R: ""' ) - TEST_LINE( TESTFIER( FSeek( fhnd, -4, FS_END ) ) , 'E: 0 R: 46' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 1 ) ) , 'E: 0 R: ""' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 20 ) ) , 'E: 0 R: ""' ) - TEST_LINE( TESTFIER( FSeek( fhnd, 0, FS_END ) ) , 'E: 0 R: 50' ) - TEST_LINE( TESTFIER( FWrite( fhnd, "_-_-_-_-_-_-_" ) ) , 'E: 0 R: 13' ) - TEST_LINE( TESTFIER( FSeek( fhnd, -4, FS_END ) ) , 'E: 0 R: 59' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 1 ) ) , 'E: 0 R: "-"' ) - TEST_LINE( TESTFIER( FReadStr( fhnd, 20 ) ) , 'E: 0 R: "_-_"' ) - TEST_LINE( TESTFIER( FSeek( fhnd, 3, FS_END ) ) , 'E: 0 R: 66' ) - TEST_LINE( TESTFIER( FWrite( fhnd, "V" ) ) , 'E: 0 R: 1' ) - TEST_LINE( TESTFIER( FSeek( fhnd, -3, FS_END ) ) , 'E: 0 R: 64' ) - TEST_LINE( TESTFIER( FWrite( fhnd, "W" ) ) , 'E: 0 R: 1' ) - TEST_LINE( TESTFIER( FWrite( fhnd, "" ) ) , 'E: 0 R: 0' ) - TEST_LINE( TESTFIER( FSeek( fhnd, 0, FS_END ) ) , 'E: 0 R: 65' ) + HBTEST TESTFIER( FRead( fhnd, @cBuff4, 1000 ) ) IS 'E: 0 R: 0' + HBTEST TESTFIER( FRead( fhnd, @cBuff4, 3 ) ) IS 'E: 0 R: 3' + HBTEST TESTFIER( FRead( fhnd, @cBuff100, 100 ) ) IS 'E: 0 R: 47' + HBTEST TESTFIER( FSeek( fhnd, 0 ) ) IS 'E: 0 R: 0' + HBTEST TESTFIER( FReadStr( fhnd, 4 ) ) IS 'E: 0 R: ">AB3"' + HBTEST TESTFIER( FSeek( fhnd, 0 ) ) IS 'E: 0 R: 0' + HBTEST TESTFIER( FReadStr( fhnd, 100 ) ) IS 'E: 0 R: ">AB34!D7890<(123"' + HBTEST TESTFIER( FSeek( fhnd, 1, FS_RELATIVE ) ) IS 'E: 0 R: 51' + HBTEST TESTFIER( FReadStr( fhnd, 2 ) ) IS 'E: 0 R: ""' + HBTEST TESTFIER( FSeek( fhnd, -4, FS_END ) ) IS 'E: 0 R: 46' + HBTEST TESTFIER( FReadStr( fhnd, 1 ) ) IS 'E: 0 R: ""' + HBTEST TESTFIER( FReadStr( fhnd, 20 ) ) IS 'E: 0 R: ""' + HBTEST TESTFIER( FSeek( fhnd, 0, FS_END ) ) IS 'E: 0 R: 50' + HBTEST TESTFIER( FWrite( fhnd, "_-_-_-_-_-_-_" ) ) IS 'E: 0 R: 13' + HBTEST TESTFIER( FSeek( fhnd, -4, FS_END ) ) IS 'E: 0 R: 59' + HBTEST TESTFIER( FReadStr( fhnd, 1 ) ) IS 'E: 0 R: "-"' + HBTEST TESTFIER( FReadStr( fhnd, 20 ) ) IS 'E: 0 R: "_-_"' + HBTEST TESTFIER( FSeek( fhnd, 3, FS_END ) ) IS 'E: 0 R: 66' + HBTEST TESTFIER( FWrite( fhnd, "V" ) ) IS 'E: 0 R: 1' + HBTEST TESTFIER( FSeek( fhnd, -3, FS_END ) ) IS 'E: 0 R: 64' + HBTEST TESTFIER( FWrite( fhnd, "W" ) ) IS 'E: 0 R: 1' + HBTEST TESTFIER( FWrite( fhnd, "" ) ) IS 'E: 0 R: 0' + HBTEST TESTFIER( FSeek( fhnd, 0, FS_END ) ) IS 'E: 0 R: 65' #ifndef __XPP__ - TEST_LINE( TESTFIER( FClose() ) , 'E: 0 R: .F.' ) + HBTEST TESTFIER( FClose() ) IS 'E: 0 R: .F.' #endif - TEST_LINE( TESTFIER( FClose( fhnd ) ) , 'E: 0 R: .T.' ) - TEST_LINE( TESTFIER( FClose( fhnd ) ) , 'E: 6 R: .F.' ) - TEST_LINE( TESTFIER( FErase( "NOT_HERE.$$$" ) ) , 'E: 2 R: -1' ) - TEST_LINE( TESTFIER( FErase( 1 ) ) , 'E: 3 R: -1' ) - TEST_LINE( TESTFIER( FErase( "NOT_HERE.$$$" ) ) , 'E: 2 R: -1' ) - TEST_LINE( TESTFIER( FRename( "NOT_HERE.$$$", 'A' ) ) , 'E: 2 R: -1' ) + HBTEST TESTFIER( FClose( fhnd ) ) IS 'E: 0 R: .T.' + HBTEST TESTFIER( FClose( fhnd ) ) IS 'E: 6 R: .F.' + HBTEST TESTFIER( FErase( "NOT_HERE.$$$" ) ) IS 'E: 2 R: -1' + HBTEST TESTFIER( FErase( 1 ) ) IS 'E: 3 R: -1' + HBTEST TESTFIER( FErase( "NOT_HERE.$$$" ) ) IS 'E: 2 R: -1' + HBTEST TESTFIER( FRename( "NOT_HERE.$$$", 'A' ) ) IS 'E: 2 R: -1' - TEST_LINE( TESTFIER( File( cFileName ) ) , "E: 2 R: .T." ) - TEST_LINE( TESTFIER( File( "NOT_HERE.$$$" ) ) , "E: 2 R: .F." ) + HBTEST TESTFIER( File( cFileName ) ) IS "E: 2 R: .T." + HBTEST TESTFIER( File( "NOT_HERE.$$$" ) ) IS "E: 2 R: .F." - FErase("$$FILEIO.TMP") + FErase( "$$FILEIO.TMP" ) RETURN diff --git a/harbour/utils/hbtest/rt_hvm.prg b/harbour/utils/hbtest/rt_hvm.prg index cc43880cbb..6d567763b4 100644 --- a/harbour/utils/hbtest/rt_hvm.prg +++ b/harbour/utils/hbtest/rt_hvm.prg @@ -59,532 +59,532 @@ PROCEDURE Main_HVM() /* ValType() */ - TEST_LINE( ValType( scString ) , "C" ) - TEST_LINE( ValType( scStringE ) , "C" ) - TEST_LINE( ValType( scStringZ ) , "C" ) - TEST_LINE( ValType( snIntZ ) , "N" ) - TEST_LINE( ValType( snDoubleZ ) , "N" ) - TEST_LINE( ValType( snIntP ) , "N" ) - TEST_LINE( ValType( snLongP ) , "N" ) - TEST_LINE( ValType( snDoubleP ) , "N" ) - TEST_LINE( ValType( snIntN ) , "N" ) - TEST_LINE( ValType( snLongN ) , "N" ) - TEST_LINE( ValType( snDoubleN ) , "N" ) - TEST_LINE( ValType( snDoubleI ) , "N" ) - TEST_LINE( ValType( sdDateE ) , "D" ) - TEST_LINE( ValType( slFalse ) , "L" ) - TEST_LINE( ValType( slTrue ) , "L" ) - TEST_LINE( ValType( soObject ) , "O" ) - TEST_LINE( ValType( suNIL ) , "U" ) - TEST_LINE( ValType( sbBlock ) , "B" ) - TEST_LINE( ValType( saArray ) , "A" ) - TEST_LINE( ValType( { 1, 2, 3 } ) , "A" ) + HBTEST ValType( scString ) IS "C" + HBTEST ValType( scStringE ) IS "C" + HBTEST ValType( scStringZ ) IS "C" + HBTEST ValType( snIntZ ) IS "N" + HBTEST ValType( snDoubleZ ) IS "N" + HBTEST ValType( snIntP ) IS "N" + HBTEST ValType( snLongP ) IS "N" + HBTEST ValType( snDoubleP ) IS "N" + HBTEST ValType( snIntN ) IS "N" + HBTEST ValType( snLongN ) IS "N" + HBTEST ValType( snDoubleN ) IS "N" + HBTEST ValType( snDoubleI ) IS "N" + HBTEST ValType( sdDateE ) IS "D" + HBTEST ValType( slFalse ) IS "L" + HBTEST ValType( slTrue ) IS "L" + HBTEST ValType( soObject ) IS "O" + HBTEST ValType( suNIL ) IS "U" + HBTEST ValType( sbBlock ) IS "B" + HBTEST ValType( saArray ) IS "A" + HBTEST ValType( { 1, 2, 3 } ) IS "A" IF TEST_DBFAvail() - TEST_LINE( ValType( w_TEST->TYPE_C ) , "C" ) - TEST_LINE( ValType( w_TEST->TYPE_D ) , "D" ) - TEST_LINE( ValType( w_TEST->TYPE_M ) , "M" ) - TEST_LINE( ValType( w_TEST->TYPE_N_I ) , "N" ) - TEST_LINE( ValType( w_TEST->TYPE_N_D ) , "N" ) - TEST_LINE( ValType( w_TEST->TYPE_L ) , "L" ) + HBTEST ValType( w_TEST->TYPE_C ) IS "C" + HBTEST ValType( w_TEST->TYPE_D ) IS "D" + HBTEST ValType( w_TEST->TYPE_M ) IS "M" + HBTEST ValType( w_TEST->TYPE_N_I ) IS "N" + HBTEST ValType( w_TEST->TYPE_N_D ) IS "N" + HBTEST ValType( w_TEST->TYPE_L ) IS "L" ENDIF #ifdef __HARBOUR__ - TEST_LINE( ValType( @scString ) , "C" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @scStringE ) , "C" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @scStringZ ) , "C" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @snIntZ ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @snDoubleZ ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @snIntP ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @snLongP ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @snDoubleP ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @snIntN ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @snLongN ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @snDoubleN ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @snDoubleI ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @sdDateE ) , "D" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @slFalse ) , "L" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @slTrue ) , "L" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @soObject ) , "O" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @suNIL ) , "U" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @sbBlock ) , "B" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @saArray ) , "A" ) /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @scString ) IS "C" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @scStringE ) IS "C" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @scStringZ ) IS "C" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @snIntZ ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @snDoubleZ ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @snIntP ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @snLongP ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @snDoubleP ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @snIntN ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @snLongN ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @snDoubleN ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @snDoubleI ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @sdDateE ) IS "D" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @slFalse ) IS "L" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @slTrue ) IS "L" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @soObject ) IS "O" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @suNIL ) IS "U" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @sbBlock ) IS "B" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @saArray ) IS "A" /* Bug in CA-Cl*pper, it will return "U" */ #endif - TEST_LINE( ValType( mcString ) , "C" ) - TEST_LINE( ValType( mcStringE ) , "C" ) - TEST_LINE( ValType( mcStringZ ) , "C" ) - TEST_LINE( ValType( mnIntZ ) , "N" ) - TEST_LINE( ValType( mnDoubleZ ) , "N" ) - TEST_LINE( ValType( mnIntP ) , "N" ) - TEST_LINE( ValType( mnLongP ) , "N" ) - TEST_LINE( ValType( mnDoubleP ) , "N" ) - TEST_LINE( ValType( mnIntN ) , "N" ) - TEST_LINE( ValType( mnLongN ) , "N" ) - TEST_LINE( ValType( mnDoubleN ) , "N" ) - TEST_LINE( ValType( mnDoubleI ) , "N" ) - TEST_LINE( ValType( mdDateE ) , "D" ) - TEST_LINE( ValType( mlFalse ) , "L" ) - TEST_LINE( ValType( mlTrue ) , "L" ) - TEST_LINE( ValType( moObject ) , "O" ) - TEST_LINE( ValType( muNIL ) , "U" ) - TEST_LINE( ValType( mbBlock ) , "B" ) - TEST_LINE( ValType( maArray ) , "A" ) + HBTEST ValType( mcString ) IS "C" + HBTEST ValType( mcStringE ) IS "C" + HBTEST ValType( mcStringZ ) IS "C" + HBTEST ValType( mnIntZ ) IS "N" + HBTEST ValType( mnDoubleZ ) IS "N" + HBTEST ValType( mnIntP ) IS "N" + HBTEST ValType( mnLongP ) IS "N" + HBTEST ValType( mnDoubleP ) IS "N" + HBTEST ValType( mnIntN ) IS "N" + HBTEST ValType( mnLongN ) IS "N" + HBTEST ValType( mnDoubleN ) IS "N" + HBTEST ValType( mnDoubleI ) IS "N" + HBTEST ValType( mdDateE ) IS "D" + HBTEST ValType( mlFalse ) IS "L" + HBTEST ValType( mlTrue ) IS "L" + HBTEST ValType( moObject ) IS "O" + HBTEST ValType( muNIL ) IS "U" + HBTEST ValType( mbBlock ) IS "B" + HBTEST ValType( maArray ) IS "A" #ifdef __HARBOUR__ - TEST_LINE( ValType( @mcString ) , "C" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mcStringE ) , "C" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mcStringZ ) , "C" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mnIntZ ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mnDoubleZ ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mnIntP ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mnLongP ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mnDoubleP ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mnIntN ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mnLongN ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mnDoubleN ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mnDoubleI ) , "N" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mdDateE ) , "D" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mlFalse ) , "L" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mlTrue ) , "L" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @moObject ) , "O" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @muNIL ) , "U" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @mbBlock ) , "B" ) /* Bug in CA-Cl*pper, it will return "U" */ - TEST_LINE( ValType( @maArray ) , "A" ) /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mcString ) IS "C" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mcStringE ) IS "C" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mcStringZ ) IS "C" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mnIntZ ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mnDoubleZ ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mnIntP ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mnLongP ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mnDoubleP ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mnIntN ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mnLongN ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mnDoubleN ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mnDoubleI ) IS "N" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mdDateE ) IS "D" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mlFalse ) IS "L" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mlTrue ) IS "L" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @moObject ) IS "O" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @muNIL ) IS "U" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @mbBlock ) IS "B" /* Bug in CA-Cl*pper, it will return "U" */ + HBTEST ValType( @maArray ) IS "A" /* Bug in CA-Cl*pper, it will return "U" */ #endif /* Type() */ #ifndef __XPP__ - TEST_LINE( Type( NIL ) , "E 1 BASE 1121 Argument error (TYPE) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( Type( 100 ) , "E 1 BASE 1121 Argument error (TYPE) OS:0 #:0 A:1:N:100 F:S" ) - TEST_LINE( Type( {} ) , "E 1 BASE 1121 Argument error (TYPE) OS:0 #:0 A:1:A:{.[0].} F:S" ) + HBTEST Type( NIL ) IS "E 1 BASE 1121 Argument error (TYPE) OS:0 #:0 A:1:U:NIL F:S" + HBTEST Type( 100 ) IS "E 1 BASE 1121 Argument error (TYPE) OS:0 #:0 A:1:N:100 F:S" + HBTEST Type( {} ) IS "E 1 BASE 1121 Argument error (TYPE) OS:0 #:0 A:1:A:{.[0].} F:S" #endif IF TEST_DBFAvail() - TEST_LINE( Type( "w_TEST->TYPE_C" ) , "C" ) - TEST_LINE( Type( "w_TEST->TYPE_D" ) , "D" ) - TEST_LINE( Type( "w_TEST->TYPE_M" ) , "M" ) - TEST_LINE( Type( "w_TEST->TYPE_N_I" ) , "N" ) - TEST_LINE( Type( "w_TEST->TYPE_N_D" ) , "N" ) - TEST_LINE( Type( "w_TEST->TYPE_L" ) , "L" ) + HBTEST Type( "w_TEST->TYPE_C" ) IS "C" + HBTEST Type( "w_TEST->TYPE_D" ) IS "D" + HBTEST Type( "w_TEST->TYPE_M" ) IS "M" + HBTEST Type( "w_TEST->TYPE_N_I" ) IS "N" + HBTEST Type( "w_TEST->TYPE_N_D" ) IS "N" + HBTEST Type( "w_TEST->TYPE_L" ) IS "L" ENDIF - TEST_LINE( Type( "mxNotHere" ) , "U" ) - TEST_LINE( Type( "mcString" ) , "C" ) - TEST_LINE( Type( "mcStringE" ) , "C" ) - TEST_LINE( Type( "mcStringZ" ) , "C" ) - TEST_LINE( Type( "mnIntZ" ) , "N" ) - TEST_LINE( Type( "mnDoubleZ" ) , "N" ) - TEST_LINE( Type( "mnIntP" ) , "N" ) - TEST_LINE( Type( "mnLongP" ) , "N" ) - TEST_LINE( Type( "mnDoubleP" ) , "N" ) - TEST_LINE( Type( "mnIntN" ) , "N" ) - TEST_LINE( Type( "mnLongN" ) , "N" ) - TEST_LINE( Type( "mnDoubleN" ) , "N" ) - TEST_LINE( Type( "mnDoubleI" ) , "N" ) - TEST_LINE( Type( "mdDateE" ) , "D" ) - TEST_LINE( Type( "mlFalse" ) , "L" ) - TEST_LINE( Type( "mlTrue" ) , "L" ) - TEST_LINE( Type( "moObject" ) , "O" ) - TEST_LINE( Type( "muNIL" ) , "U" ) - TEST_LINE( Type( "mbBlock" ) , "B" ) - TEST_LINE( Type( "maArray" ) , "A" ) + HBTEST Type( "mxNotHere" ) IS "U" + HBTEST Type( "mcString" ) IS "C" + HBTEST Type( "mcStringE" ) IS "C" + HBTEST Type( "mcStringZ" ) IS "C" + HBTEST Type( "mnIntZ" ) IS "N" + HBTEST Type( "mnDoubleZ" ) IS "N" + HBTEST Type( "mnIntP" ) IS "N" + HBTEST Type( "mnLongP" ) IS "N" + HBTEST Type( "mnDoubleP" ) IS "N" + HBTEST Type( "mnIntN" ) IS "N" + HBTEST Type( "mnLongN" ) IS "N" + HBTEST Type( "mnDoubleN" ) IS "N" + HBTEST Type( "mnDoubleI" ) IS "N" + HBTEST Type( "mdDateE" ) IS "D" + HBTEST Type( "mlFalse" ) IS "L" + HBTEST Type( "mlTrue" ) IS "L" + HBTEST Type( "moObject" ) IS "O" + HBTEST Type( "muNIL" ) IS "U" + HBTEST Type( "mbBlock" ) IS "B" + HBTEST Type( "maArray" ) IS "A" /* Special internal messages */ /* Harbour compiler not yet handles these */ #ifndef __HARBOUR__ #ifndef __XPP__ - TEST_LINE( NIL:className() , "NIL" ) + HBTEST NIL:className() IS "NIL" +#endif #endif -#endif ) #ifndef __XPP__ - TEST_LINE( "":className() , "CHARACTER" ) - TEST_LINE( 0:className() , "NUMERIC" ) - TEST_LINE( hb_SToD( "" ):className() , "DATE" ) - TEST_LINE( .F.:className() , "LOGICAL" ) - TEST_LINE( {|| NIL }:className() , "BLOCK" ) - TEST_LINE( {}:className() , "ARRAY" ) + HBTEST "":className() IS "CHARACTER" + HBTEST 0:className() IS "NUMERIC" + HBTEST hb_SToD( "" ):className() IS "DATE" + HBTEST .F.:className() IS "LOGICAL" + HBTEST {|| NIL }:className() IS "BLOCK" + HBTEST {}:className() IS "ARRAY" #endif - TEST_LINE( ErrorNew():className() , "ERROR" ) - TEST_LINE( ErrorNew():className , "ERROR" ) + HBTEST ErrorNew():className() IS "ERROR" + HBTEST ErrorNew():className IS "ERROR" /* Harbour compiler not yet handles these */ #ifndef __HARBOUR__ #ifndef __XPP__ - TEST_LINE( NIL:classH() , 0 ) + HBTEST NIL:classH() IS 0 #endif #endif #ifndef __XPP__ - TEST_LINE( "":classH() , 0 ) - TEST_LINE( 0:classH() , 0 ) - TEST_LINE( hb_SToD( "" ):classH() , 0 ) - TEST_LINE( .F.:classH() , 0 ) - TEST_LINE( {|| NIL }:classH() , 0 ) - TEST_LINE( {}:classH() , 0 ) + HBTEST "":classH() IS 0 + HBTEST 0:classH() IS 0 + HBTEST hb_SToD( "" ):classH() IS 0 + HBTEST .F.:classH() IS 0 + HBTEST {|| NIL }:classH() IS 0 + HBTEST {}:classH() IS 0 #endif - TEST_LINE( ErrorNew():classH() > 0 , .T. ) - TEST_LINE( ErrorNew():classH > 0 , .T. ) + HBTEST ErrorNew():classH() > 0 IS .T. + HBTEST ErrorNew():classH > 0 IS .T. /* Harbour compiler not yet handles these */ #ifndef __HARBOUR__ #ifndef __XPP__ - TEST_LINE( suNIL:className() , "NIL" ) + HBTEST suNIL:className() IS "NIL" #endif #endif #ifndef __XPP__ - TEST_LINE( scString:className() , "CHARACTER" ) - TEST_LINE( snIntP:className() , "NUMERIC" ) - TEST_LINE( sdDateE:className() , "DATE" ) - TEST_LINE( slFalse:className() , "LOGICAL" ) - TEST_LINE( sbBlock:className() , "BLOCK" ) - TEST_LINE( saArray:className() , "ARRAY" ) + HBTEST scString:className() IS "CHARACTER" + HBTEST snIntP:className() IS "NUMERIC" + HBTEST sdDateE:className() IS "DATE" + HBTEST slFalse:className() IS "LOGICAL" + HBTEST sbBlock:className() IS "BLOCK" + HBTEST saArray:className() IS "ARRAY" #endif - TEST_LINE( soObject:className() , "ERROR" ) - TEST_LINE( soObject:className , "ERROR" ) + HBTEST soObject:className() IS "ERROR" + HBTEST soObject:className IS "ERROR" /* Harbour compiler not yet handles these */ #ifndef __HARBOUR__ #ifndef __XPP__ - TEST_LINE( suNIL:classH() , 0 ) + HBTEST suNIL:classH() IS 0 #endif #endif #ifndef __XPP__ - TEST_LINE( scString:classH() , 0 ) - TEST_LINE( snIntP:classH() , 0 ) - TEST_LINE( sdDateE:classH() , 0 ) - TEST_LINE( slFalse:classH() , 0 ) - TEST_LINE( sbBlock:classH() , 0 ) - TEST_LINE( saArray:classH() , 0 ) + HBTEST scString:classH() IS 0 + HBTEST snIntP:classH() IS 0 + HBTEST sdDateE:classH() IS 0 + HBTEST slFalse:classH() IS 0 + HBTEST sbBlock:classH() IS 0 + HBTEST saArray:classH() IS 0 #endif - TEST_LINE( soObject:classH() > 0 , .T. ) - TEST_LINE( soObject:classH > 0 , .T. ) + HBTEST soObject:classH() > 0 IS .T. + HBTEST soObject:classH > 0 IS .T. /* (operators) */ /* <= */ - TEST_LINE( 2 <= 1 , .F. ) - TEST_LINE( 1 <= 2 , .T. ) - TEST_LINE( 2.0 <= 2 , .T. ) - TEST_LINE( 2 <= 2.0 , .T. ) - TEST_LINE( 2.5 <= 3.7 , .T. ) - TEST_LINE( 3.7 <= 2.5 , .F. ) - TEST_LINE( 10 <= 10.50 , .T. ) - TEST_LINE( .F. <= .F. , .T. ) - TEST_LINE( .T. <= .F. , .F. ) - TEST_LINE( .F. <= .T. , .T. ) - TEST_LINE( hb_SToD("") <= hb_SToD("") , .T. ) - TEST_LINE( hb_SToD("") <= hb_SToD("19800101") , .T. ) - TEST_LINE( hb_SToD("19800101") <= hb_SToD("") , .F. ) - TEST_LINE( "" <= "AAA" , .T. ) - TEST_LINE( "AAA" <= "" , .T. ) - TEST_LINE( "AAA" <= "AA" , .T. ) - TEST_LINE( "AAA" <= Chr(255) , .T. ) - TEST_LINE( Chr(150) <= Chr(255) , .T. ) - TEST_LINE( "A" <= "a" , .T. ) - TEST_LINE( "A" <= "Z" , .T. ) - TEST_LINE( "Z" <= " " , .F. ) - TEST_LINE( Chr(0) <= " " , .T. ) - TEST_LINE( "Hallo" <= "Hello" , .T. ) - TEST_LINE( "Hello" <= "Hello" , .T. ) - TEST_LINE( "Hell" <= "Hello" , .T. ) - TEST_LINE( "Hellow" <= "Hello" , .T. ) - TEST_LINE( "J" <= "Hello" , .F. ) - TEST_LINE( "" <= "Hello" , .T. ) - TEST_LINE( "J" <= "" , .T. ) - TEST_LINE( "" <= "" , .T. ) + HBTEST 2 <= 1 IS .F. + HBTEST 1 <= 2 IS .T. + HBTEST 2.0 <= 2 IS .T. + HBTEST 2 <= 2.0 IS .T. + HBTEST 2.5 <= 3.7 IS .T. + HBTEST 3.7 <= 2.5 IS .F. + HBTEST 10 <= 10.50 IS .T. + HBTEST .F. <= .F. IS .T. + HBTEST .T. <= .F. IS .F. + HBTEST .F. <= .T. IS .T. + HBTEST hb_SToD("") <= hb_SToD("") IS .T. + HBTEST hb_SToD("") <= hb_SToD("19800101") IS .T. + HBTEST hb_SToD("19800101") <= hb_SToD("") IS .F. + HBTEST "" <= "AAA" IS .T. + HBTEST "AAA" <= "" IS .T. + HBTEST "AAA" <= "AA" IS .T. + HBTEST "AAA" <= Chr(255) IS .T. + HBTEST Chr(150) <= Chr(255) IS .T. + HBTEST "A" <= "a" IS .T. + HBTEST "A" <= "Z" IS .T. + HBTEST "Z" <= " " IS .F. + HBTEST Chr(0) <= " " IS .T. + HBTEST "Hallo" <= "Hello" IS .T. + HBTEST "Hello" <= "Hello" IS .T. + HBTEST "Hell" <= "Hello" IS .T. + HBTEST "Hellow" <= "Hello" IS .T. + HBTEST "J" <= "Hello" IS .F. + HBTEST "" <= "Hello" IS .T. + HBTEST "J" <= "" IS .T. + HBTEST "" <= "" IS .T. /* < */ - TEST_LINE( 2 < 1 , .F. ) - TEST_LINE( 1 < 2 , .T. ) - TEST_LINE( 2.0 < 2 , .F. ) - TEST_LINE( 2 < 2.0 , .F. ) - TEST_LINE( 2.5 < 3.7 , .T. ) - TEST_LINE( 3.7 < 2.5 , .F. ) - TEST_LINE( 10.50 < 10 , .F. ) - TEST_LINE( .F. < .F. , .F. ) - TEST_LINE( .T. < .F. , .F. ) - TEST_LINE( .F. < .T. , .T. ) - TEST_LINE( hb_SToD("") < hb_SToD("") , .F. ) - TEST_LINE( hb_SToD("") < hb_SToD("19800101") , .T. ) - TEST_LINE( hb_SToD("19800101") < hb_SToD("") , .F. ) - TEST_LINE( "" < "AAA" , .T. ) - TEST_LINE( "AAA" < "" , .F. ) - TEST_LINE( "AAA" < "AA" , .F. ) - TEST_LINE( "AAA" < Chr(255) , .T. ) - TEST_LINE( Chr(150) < Chr(255) , .T. ) - TEST_LINE( "A" < "a" , .T. ) - TEST_LINE( "A" < "Z" , .T. ) - TEST_LINE( "Z" < "A" , .F. ) - TEST_LINE( Chr(0) < " " , .T. ) - TEST_LINE( "Hallo" < "Hello" , .T. ) - TEST_LINE( "Hello" < "Hello" , .F. ) - TEST_LINE( "Hell" < "Hello" , .T. ) - TEST_LINE( "Hellow" < "Hello" , .F. ) - TEST_LINE( "J" < "Hello" , .F. ) - TEST_LINE( "" < "Hello" , .T. ) - TEST_LINE( "J" < "" , .F. ) - TEST_LINE( "" < "" , .F. ) + HBTEST 2 < 1 IS .F. + HBTEST 1 < 2 IS .T. + HBTEST 2.0 < 2 IS .F. + HBTEST 2 < 2.0 IS .F. + HBTEST 2.5 < 3.7 IS .T. + HBTEST 3.7 < 2.5 IS .F. + HBTEST 10.50 < 10 IS .F. + HBTEST .F. < .F. IS .F. + HBTEST .T. < .F. IS .F. + HBTEST .F. < .T. IS .T. + HBTEST hb_SToD("") < hb_SToD("") IS .F. + HBTEST hb_SToD("") < hb_SToD("19800101") IS .T. + HBTEST hb_SToD("19800101") < hb_SToD("") IS .F. + HBTEST "" < "AAA" IS .T. + HBTEST "AAA" < "" IS .F. + HBTEST "AAA" < "AA" IS .F. + HBTEST "AAA" < Chr(255) IS .T. + HBTEST Chr(150) < Chr(255) IS .T. + HBTEST "A" < "a" IS .T. + HBTEST "A" < "Z" IS .T. + HBTEST "Z" < "A" IS .F. + HBTEST Chr(0) < " " IS .T. + HBTEST "Hallo" < "Hello" IS .T. + HBTEST "Hello" < "Hello" IS .F. + HBTEST "Hell" < "Hello" IS .T. + HBTEST "Hellow" < "Hello" IS .F. + HBTEST "J" < "Hello" IS .F. + HBTEST "" < "Hello" IS .T. + HBTEST "J" < "" IS .F. + HBTEST "" < "" IS .F. /* >= */ - TEST_LINE( 2 >= 1 , .T. ) - TEST_LINE( 1 >= 2 , .F. ) - TEST_LINE( 2.0 >= 2 , .T. ) - TEST_LINE( 2 >= 2.0 , .T. ) - TEST_LINE( 2.5 >= 3.7 , .F. ) - TEST_LINE( 3.7 >= 2.5 , .T. ) - TEST_LINE( 10.50 >= 10 , .T. ) - TEST_LINE( .F. >= .F. , .T. ) - TEST_LINE( .T. >= .F. , .T. ) - TEST_LINE( .F. >= .T. , .F. ) - TEST_LINE( hb_SToD("") >= hb_SToD("") , .T. ) - TEST_LINE( hb_SToD("") >= hb_SToD("19800101") , .F. ) - TEST_LINE( hb_SToD("19800101") >= hb_SToD("") , .T. ) - TEST_LINE( "" >= "AAA" , .F. ) - TEST_LINE( "AAA" >= "" , .T. ) - TEST_LINE( "AAA" >= "AA" , .T. ) - TEST_LINE( "AAA" >= Chr(255) , .F. ) - TEST_LINE( Chr(150) >= Chr(255) , .F. ) - TEST_LINE( "A" >= "a" , .F. ) - TEST_LINE( "A" >= "Z" , .F. ) - TEST_LINE( "Z" >= "A" , .T. ) - TEST_LINE( Chr(0) >= " " , .F. ) - TEST_LINE( "Hallo" >= "Hello" , .F. ) - TEST_LINE( "Hello" >= "Hello" , .T. ) - TEST_LINE( "Hell" >= "Hello" , .F. ) - TEST_LINE( "Hellow" >= "Hello" , .T. ) - TEST_LINE( "J" >= "Hello" , .T. ) - TEST_LINE( "" >= "Hello" , .F. ) - TEST_LINE( "J" >= "" , .T. ) - TEST_LINE( "" >= "" , .T. ) + HBTEST 2 >= 1 IS .T. + HBTEST 1 >= 2 IS .F. + HBTEST 2.0 >= 2 IS .T. + HBTEST 2 >= 2.0 IS .T. + HBTEST 2.5 >= 3.7 IS .F. + HBTEST 3.7 >= 2.5 IS .T. + HBTEST 10.50 >= 10 IS .T. + HBTEST .F. >= .F. IS .T. + HBTEST .T. >= .F. IS .T. + HBTEST .F. >= .T. IS .F. + HBTEST hb_SToD("") >= hb_SToD("") IS .T. + HBTEST hb_SToD("") >= hb_SToD("19800101") IS .F. + HBTEST hb_SToD("19800101") >= hb_SToD("") IS .T. + HBTEST "" >= "AAA" IS .F. + HBTEST "AAA" >= "" IS .T. + HBTEST "AAA" >= "AA" IS .T. + HBTEST "AAA" >= Chr(255) IS .F. + HBTEST Chr(150) >= Chr(255) IS .F. + HBTEST "A" >= "a" IS .F. + HBTEST "A" >= "Z" IS .F. + HBTEST "Z" >= "A" IS .T. + HBTEST Chr(0) >= " " IS .F. + HBTEST "Hallo" >= "Hello" IS .F. + HBTEST "Hello" >= "Hello" IS .T. + HBTEST "Hell" >= "Hello" IS .F. + HBTEST "Hellow" >= "Hello" IS .T. + HBTEST "J" >= "Hello" IS .T. + HBTEST "" >= "Hello" IS .F. + HBTEST "J" >= "" IS .T. + HBTEST "" >= "" IS .T. /* > */ - TEST_LINE( 2 > 1 , .T. ) - TEST_LINE( 1 > 2 , .F. ) - TEST_LINE( 2.0 > 2 , .F. ) - TEST_LINE( 2 > 2.0 , .F. ) - TEST_LINE( 2.5 > 3.7 , .F. ) - TEST_LINE( 3.7 > 2.5 , .T. ) - TEST_LINE( 10.50 > 10 , .T. ) - TEST_LINE( .F. > .F. , .F. ) - TEST_LINE( .T. > .F. , .T. ) - TEST_LINE( .F. > .T. , .F. ) - TEST_LINE( hb_SToD("") > hb_SToD("") , .F. ) - TEST_LINE( hb_SToD("") > hb_SToD("19800101") , .F. ) - TEST_LINE( hb_SToD("19800101") > hb_SToD("") , .T. ) - TEST_LINE( "" > "AAA" , .F. ) - TEST_LINE( "AAA" > "" , .F. ) - TEST_LINE( "AAA" > "AA" , .F. ) - TEST_LINE( "AAA" > Chr(255) , .F. ) - TEST_LINE( Chr(150) > Chr(255) , .F. ) - TEST_LINE( "A" > "a" , .F. ) - TEST_LINE( "A" > "Z" , .F. ) - TEST_LINE( "Z" > "A" , .T. ) - TEST_LINE( Chr(0) > " " , .F. ) - TEST_LINE( "Hallo" > "Hello" , .F. ) - TEST_LINE( "Hello" > "Hello" , .F. ) - TEST_LINE( "Hell" > "Hello" , .F. ) - TEST_LINE( "Hellow" > "Hello" , .F. ) - TEST_LINE( "J" > "Hello" , .T. ) - TEST_LINE( "" > "Hello" , .F. ) - TEST_LINE( "J" > "" , .F. ) - TEST_LINE( "" > "" , .F. ) + HBTEST 2 > 1 IS .T. + HBTEST 1 > 2 IS .F. + HBTEST 2.0 > 2 IS .F. + HBTEST 2 > 2.0 IS .F. + HBTEST 2.5 > 3.7 IS .F. + HBTEST 3.7 > 2.5 IS .T. + HBTEST 10.50 > 10 IS .T. + HBTEST .F. > .F. IS .F. + HBTEST .T. > .F. IS .T. + HBTEST .F. > .T. IS .F. + HBTEST hb_SToD("") > hb_SToD("") IS .F. + HBTEST hb_SToD("") > hb_SToD("19800101") IS .F. + HBTEST hb_SToD("19800101") > hb_SToD("") IS .T. + HBTEST "" > "AAA" IS .F. + HBTEST "AAA" > "" IS .F. + HBTEST "AAA" > "AA" IS .F. + HBTEST "AAA" > Chr(255) IS .F. + HBTEST Chr(150) > Chr(255) IS .F. + HBTEST "A" > "a" IS .F. + HBTEST "A" > "Z" IS .F. + HBTEST "Z" > "A" IS .T. + HBTEST Chr(0) > " " IS .F. + HBTEST "Hallo" > "Hello" IS .F. + HBTEST "Hello" > "Hello" IS .F. + HBTEST "Hell" > "Hello" IS .F. + HBTEST "Hellow" > "Hello" IS .F. + HBTEST "J" > "Hello" IS .T. + HBTEST "" > "Hello" IS .F. + HBTEST "J" > "" IS .F. + HBTEST "" > "" IS .F. /* =, == */ SET EXACT ON - TEST_LINE( "123" = "123 " , .T. ) - TEST_LINE( " 123" = "123" , .F. ) - TEST_LINE( "123" = "12345" , .F. ) - TEST_LINE( "12345" = "123" , .F. ) - TEST_LINE( "123" = "" , .F. ) - TEST_LINE( "" = "123" , .F. ) - TEST_LINE( "A" == "A" , .T. ) - TEST_LINE( "Z" == "A" , .F. ) - TEST_LINE( "A" == "A " , .F. ) - TEST_LINE( "AA" == "A" , .F. ) + HBTEST "123" = "123 " IS .T. + HBTEST " 123" = "123" IS .F. + HBTEST "123" = "12345" IS .F. + HBTEST "12345" = "123" IS .F. + HBTEST "123" = "" IS .F. + HBTEST "" = "123" IS .F. + HBTEST "A" == "A" IS .T. + HBTEST "Z" == "A" IS .F. + HBTEST "A" == "A " IS .F. + HBTEST "AA" == "A" IS .F. SET EXACT OFF - TEST_LINE( "123" = "123 " , .F. ) - TEST_LINE( " 123" = "123" , .F. ) - TEST_LINE( "123" = "12345" , .F. ) - TEST_LINE( "12345" = "123" , .T. ) - TEST_LINE( "123" = "" , .T. ) - TEST_LINE( "" = "123" , .F. ) - TEST_LINE( "A" == "A" , .T. ) - TEST_LINE( "Z" == "A" , .F. ) - TEST_LINE( "A" == "A " , .F. ) - TEST_LINE( "AA" == "A" , .F. ) - TEST_LINE( "Hallo" == "Hello" , .F. ) - TEST_LINE( "Hello" == "Hello" , .T. ) - TEST_LINE( "Hell" == "Hello" , .F. ) - TEST_LINE( "Hellow" == "Hello" , .F. ) - TEST_LINE( "J" == "Hello" , .F. ) - TEST_LINE( "" == "Hello" , .F. ) - TEST_LINE( "J" == "" , .F. ) - TEST_LINE( "" == "" , .T. ) + HBTEST "123" = "123 " IS .F. + HBTEST " 123" = "123" IS .F. + HBTEST "123" = "12345" IS .F. + HBTEST "12345" = "123" IS .T. + HBTEST "123" = "" IS .T. + HBTEST "" = "123" IS .F. + HBTEST "A" == "A" IS .T. + HBTEST "Z" == "A" IS .F. + HBTEST "A" == "A " IS .F. + HBTEST "AA" == "A" IS .F. + HBTEST "Hallo" == "Hello" IS .F. + HBTEST "Hello" == "Hello" IS .T. + HBTEST "Hell" == "Hello" IS .F. + HBTEST "Hellow" == "Hello" IS .F. + HBTEST "J" == "Hello" IS .F. + HBTEST "" == "Hello" IS .F. + HBTEST "J" == "" IS .F. + HBTEST "" == "" IS .T. - TEST_LINE( scString = scString , .T. ) - TEST_LINE( scString = scStringE , .T. ) - TEST_LINE( scString = scStringZ , .F. ) - TEST_LINE( scStringE = scString , .F. ) - TEST_LINE( scStringE = scStringE , .T. ) - TEST_LINE( scStringE = scStringZ , .F. ) - TEST_LINE( scStringZ = scString , .F. ) - TEST_LINE( scStringZ = scStringE , .T. ) - TEST_LINE( scStringZ = scStringZ , .T. ) + HBTEST scString = scString IS .T. + HBTEST scString = scStringE IS .T. + HBTEST scString = scStringZ IS .F. + HBTEST scStringE = scString IS .F. + HBTEST scStringE = scStringE IS .T. + HBTEST scStringE = scStringZ IS .F. + HBTEST scStringZ = scString IS .F. + HBTEST scStringZ = scStringE IS .T. + HBTEST scStringZ = scStringZ IS .T. /* != */ SET EXACT ON - TEST_LINE( "123" != "123 " , .F. ) - TEST_LINE( " 123" != "123" , .T. ) - TEST_LINE( "123" != "12345" , .T. ) - TEST_LINE( "12345" != "123" , .T. ) - TEST_LINE( "123" != "" , .T. ) - TEST_LINE( "" != "123" , .T. ) - TEST_LINE( "A" != "A" , .F. ) - TEST_LINE( "Z" != "A" , .T. ) - TEST_LINE( "A" != "A " , .F. ) - TEST_LINE( "AA" != "A" , .T. ) + HBTEST "123" != "123 " IS .F. + HBTEST " 123" != "123" IS .T. + HBTEST "123" != "12345" IS .T. + HBTEST "12345" != "123" IS .T. + HBTEST "123" != "" IS .T. + HBTEST "" != "123" IS .T. + HBTEST "A" != "A" IS .F. + HBTEST "Z" != "A" IS .T. + HBTEST "A" != "A " IS .F. + HBTEST "AA" != "A" IS .T. SET EXACT OFF - TEST_LINE( "123" != "123 " , .T. ) - TEST_LINE( " 123" != "123" , .T. ) - TEST_LINE( "123" != "12345" , .T. ) - TEST_LINE( "12345" != "123" , .F. ) - TEST_LINE( "123" != "" , .F. ) - TEST_LINE( "" != "123" , .T. ) - TEST_LINE( "A" != "A" , .F. ) - TEST_LINE( "Z" != "A" , .T. ) - TEST_LINE( "A" != "A " , .T. ) - TEST_LINE( "AA" != "A" , .F. ) - TEST_LINE( "Hallo" != "Hello" , .T. ) - TEST_LINE( "Hello" != "Hello" , .F. ) - TEST_LINE( "Hell" != "Hello" , .T. ) - TEST_LINE( "Hellow" != "Hello" , .F. ) - TEST_LINE( "J" != "Hello" , .T. ) - TEST_LINE( "" != "Hello" , .T. ) - TEST_LINE( "J" != "" , .F. ) - TEST_LINE( "" != "" , .F. ) + HBTEST "123" != "123 " IS .T. + HBTEST " 123" != "123" IS .T. + HBTEST "123" != "12345" IS .T. + HBTEST "12345" != "123" IS .F. + HBTEST "123" != "" IS .F. + HBTEST "" != "123" IS .T. + HBTEST "A" != "A" IS .F. + HBTEST "Z" != "A" IS .T. + HBTEST "A" != "A " IS .T. + HBTEST "AA" != "A" IS .F. + HBTEST "Hallo" != "Hello" IS .T. + HBTEST "Hello" != "Hello" IS .F. + HBTEST "Hell" != "Hello" IS .T. + HBTEST "Hellow" != "Hello" IS .F. + HBTEST "J" != "Hello" IS .T. + HBTEST "" != "Hello" IS .T. + HBTEST "J" != "" IS .F. + HBTEST "" != "" IS .F. - TEST_LINE( scString != scString , .F. ) - TEST_LINE( scString != scStringE , .F. ) - TEST_LINE( scString != scStringZ , .T. ) - TEST_LINE( scStringE != scString , .T. ) - TEST_LINE( scStringE != scStringE , .F. ) - TEST_LINE( scStringE != scStringZ , .T. ) - TEST_LINE( scStringZ != scString , .T. ) - TEST_LINE( scStringZ != scStringE , .F. ) - TEST_LINE( scStringZ != scStringZ , .F. ) + HBTEST scString != scString IS .F. + HBTEST scString != scStringE IS .F. + HBTEST scString != scStringZ IS .T. + HBTEST scStringE != scString IS .T. + HBTEST scStringE != scStringE IS .F. + HBTEST scStringE != scStringZ IS .T. + HBTEST scStringZ != scString IS .T. + HBTEST scStringZ != scStringE IS .F. + HBTEST scStringZ != scStringZ IS .F. /* == special */ - TEST_LINE( NIL == NIL , .T. ) - TEST_LINE( 1 == NIL , .F. ) - TEST_LINE( NIL == 1 , .F. ) - TEST_LINE( "" == NIL , .F. ) - TEST_LINE( NIL == "" , .F. ) - TEST_LINE( 1 == suNIL , .F. ) - TEST_LINE( suNIL == 1 , .F. ) - TEST_LINE( "" == suNIL , .F. ) - TEST_LINE( suNIL == "" , .F. ) - TEST_LINE( scString == NIL , .F. ) - TEST_LINE( "A" == 1 , "E 1 BASE 1070 Argument error (==) OS:0 #:0 A:2:C:A;N:1 F:S" ) - TEST_LINE( scString == 1 , "E 1 BASE 1070 Argument error (==) OS:0 #:0 A:2:C:HELLO;N:1 F:S" ) - TEST_LINE( soObject == "" , "E 1 BASE 1070 Argument error (==) OS:0 #:0 A:2:O:ERROR Object;C: F:S" ) - TEST_LINE( soObject == soObject , .T. ) - TEST_LINE( soObject == ErrorNew() , .F. ) - TEST_LINE( ErrorNew() == ErrorNew() , .F. ) - TEST_LINE( soObject == TBColumnNew() , .F. ) - TEST_LINE( saArray == saArray , .T. ) - TEST_LINE( {} == {} , .F. ) - TEST_LINE( {|| NIL } == {|| NIL } , "E 1 BASE 1070 Argument error (==) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" ) + HBTEST NIL == NIL IS .T. + HBTEST 1 == NIL IS .F. + HBTEST NIL == 1 IS .F. + HBTEST "" == NIL IS .F. + HBTEST NIL == "" IS .F. + HBTEST 1 == suNIL IS .F. + HBTEST suNIL == 1 IS .F. + HBTEST "" == suNIL IS .F. + HBTEST suNIL == "" IS .F. + HBTEST scString == NIL IS .F. + HBTEST "A" == 1 IS "E 1 BASE 1070 Argument error (==) OS:0 #:0 A:2:C:A;N:1 F:S" + HBTEST scString == 1 IS "E 1 BASE 1070 Argument error (==) OS:0 #:0 A:2:C:HELLO;N:1 F:S" + HBTEST soObject == "" IS "E 1 BASE 1070 Argument error (==) OS:0 #:0 A:2:O:ERROR Object;C: F:S" + HBTEST soObject == soObject IS .T. + HBTEST soObject == ErrorNew() IS .F. + HBTEST ErrorNew() == ErrorNew() IS .F. + HBTEST soObject == TBColumnNew() IS .F. + HBTEST saArray == saArray IS .T. + HBTEST {} == {} IS .F. + HBTEST {|| NIL } == {|| NIL } IS "E 1 BASE 1070 Argument error (==) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" /* = special */ - TEST_LINE( NIL = NIL , .T. ) - TEST_LINE( scString = NIL , .F. ) - TEST_LINE( "A" = 1 , "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:C:A;N:1 F:S" ) - TEST_LINE( scString = 1 , "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:C:HELLO;N:1 F:S" ) - TEST_LINE( soObject = "" , "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:O:ERROR Object;C: F:S" ) - TEST_LINE( soObject = soObject , "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( soObject = ErrorNew() , "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( ErrorNew() = ErrorNew() , "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( soObject = TBColumnNew() , "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:O:ERROR Object;O:TBCOLUMN Object F:S" ) - TEST_LINE( saArray = saArray , "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:A:{.[1].};A:{.[1].} F:S" ) - TEST_LINE( {} = {} , "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:A:{.[0].};A:{.[0].} F:S" ) - TEST_LINE( {|| NIL } = {|| NIL } , "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" ) + HBTEST NIL = NIL IS .T. + HBTEST scString = NIL IS .F. + HBTEST "A" = 1 IS "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:C:A;N:1 F:S" + HBTEST scString = 1 IS "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:C:HELLO;N:1 F:S" + HBTEST soObject = "" IS "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:O:ERROR Object;C: F:S" + HBTEST soObject = soObject IS "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST soObject = ErrorNew() IS "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST ErrorNew() = ErrorNew() IS "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST soObject = TBColumnNew() IS "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:O:ERROR Object;O:TBCOLUMN Object F:S" + HBTEST saArray = saArray IS "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:A:{.[1].};A:{.[1].} F:S" + HBTEST {} = {} IS "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:A:{.[0].};A:{.[0].} F:S" + HBTEST {|| NIL } = {|| NIL } IS "E 1 BASE 1071 Argument error (=) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" /* != special */ - TEST_LINE( NIL != NIL , .F. ) - TEST_LINE( scString != NIL , .T. ) - TEST_LINE( "A" != 1 , "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:C:A;N:1 F:S" ) - TEST_LINE( scString != 1 , "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:C:HELLO;N:1 F:S" ) - TEST_LINE( soObject != "" , "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:O:ERROR Object;C: F:S" ) - TEST_LINE( soObject != soObject , "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( soObject != ErrorNew() , "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( ErrorNew() != ErrorNew() , "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( soObject != TBColumnNew() , "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:O:ERROR Object;O:TBCOLUMN Object F:S" ) - TEST_LINE( saArray != saArray , "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:A:{.[1].};A:{.[1].} F:S" ) - TEST_LINE( {} != {} , "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:A:{.[0].};A:{.[0].} F:S" ) - TEST_LINE( {|| NIL } != {|| NIL } , "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" ) + HBTEST NIL != NIL IS .F. + HBTEST scString != NIL IS .T. + HBTEST "A" != 1 IS "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:C:A;N:1 F:S" + HBTEST scString != 1 IS "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:C:HELLO;N:1 F:S" + HBTEST soObject != "" IS "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:O:ERROR Object;C: F:S" + HBTEST soObject != soObject IS "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST soObject != ErrorNew() IS "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST ErrorNew() != ErrorNew() IS "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST soObject != TBColumnNew() IS "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:O:ERROR Object;O:TBCOLUMN Object F:S" + HBTEST saArray != saArray IS "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:A:{.[1].};A:{.[1].} F:S" + HBTEST {} != {} IS "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:A:{.[0].};A:{.[0].} F:S" + HBTEST {|| NIL } != {|| NIL } IS "E 1 BASE 1072 Argument error (<>) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" /* < special */ - TEST_LINE( NIL < NIL , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) - TEST_LINE( scString < NIL , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:C:HELLO;U:NIL F:S" ) - TEST_LINE( "A" < 1 , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:C:A;N:1 F:S" ) - TEST_LINE( scString < 1 , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:C:HELLO;N:1 F:S" ) - TEST_LINE( soObject < "" , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:O:ERROR Object;C: F:S" ) - TEST_LINE( soObject < soObject , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( soObject < ErrorNew() , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( ErrorNew() < ErrorNew() , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( soObject < TBColumnNew() , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:O:ERROR Object;O:TBCOLUMN Object F:S" ) - TEST_LINE( saArray < saArray , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:A:{.[1].};A:{.[1].} F:S" ) - TEST_LINE( {} < {} , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:A:{.[0].};A:{.[0].} F:S" ) - TEST_LINE( {|| NIL } < {|| NIL } , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" ) + HBTEST NIL < NIL IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:U:NIL;U:NIL F:S" + HBTEST scString < NIL IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:C:HELLO;U:NIL F:S" + HBTEST "A" < 1 IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:C:A;N:1 F:S" + HBTEST scString < 1 IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:C:HELLO;N:1 F:S" + HBTEST soObject < "" IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:O:ERROR Object;C: F:S" + HBTEST soObject < soObject IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST soObject < ErrorNew() IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST ErrorNew() < ErrorNew() IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST soObject < TBColumnNew() IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:O:ERROR Object;O:TBCOLUMN Object F:S" + HBTEST saArray < saArray IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:A:{.[1].};A:{.[1].} F:S" + HBTEST {} < {} IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:A:{.[0].};A:{.[0].} F:S" + HBTEST {|| NIL } < {|| NIL } IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" /* <= special */ - TEST_LINE( NIL <= NIL , "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) - TEST_LINE( scString <= NIL , "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:C:HELLO;U:NIL F:S" ) - TEST_LINE( "A" <= 1 , "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:C:A;N:1 F:S" ) - TEST_LINE( scString <= 1 , "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:C:HELLO;N:1 F:S" ) - TEST_LINE( soObject <= "" , "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:O:ERROR Object;C: F:S" ) - TEST_LINE( soObject <= soObject , "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( soObject <= ErrorNew() , "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( ErrorNew() <= ErrorNew() , "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( soObject <= TBColumnNew() , "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:O:ERROR Object;O:TBCOLUMN Object F:S" ) - TEST_LINE( saArray <= saArray , "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:A:{.[1].};A:{.[1].} F:S" ) - TEST_LINE( {} <= {} , "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:A:{.[0].};A:{.[0].} F:S" ) - TEST_LINE( {|| NIL } <= {|| NIL } , "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" ) + HBTEST NIL <= NIL IS "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:U:NIL;U:NIL F:S" + HBTEST scString <= NIL IS "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:C:HELLO;U:NIL F:S" + HBTEST "A" <= 1 IS "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:C:A;N:1 F:S" + HBTEST scString <= 1 IS "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:C:HELLO;N:1 F:S" + HBTEST soObject <= "" IS "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:O:ERROR Object;C: F:S" + HBTEST soObject <= soObject IS "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST soObject <= ErrorNew() IS "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST ErrorNew() <= ErrorNew() IS "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST soObject <= TBColumnNew() IS "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:O:ERROR Object;O:TBCOLUMN Object F:S" + HBTEST saArray <= saArray IS "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:A:{.[1].};A:{.[1].} F:S" + HBTEST {} <= {} IS "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:A:{.[0].};A:{.[0].} F:S" + HBTEST {|| NIL } <= {|| NIL } IS "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" /* > special */ - TEST_LINE( NIL > NIL , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) - TEST_LINE( scString > NIL , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:C:HELLO;U:NIL F:S" ) - TEST_LINE( "A" > 1 , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:C:A;N:1 F:S" ) - TEST_LINE( scString > 1 , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:C:HELLO;N:1 F:S" ) - TEST_LINE( soObject > "" , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:O:ERROR Object;C: F:S" ) - TEST_LINE( soObject > soObject , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( soObject > ErrorNew() , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( ErrorNew() > ErrorNew() , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( soObject > TBColumnNew() , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:O:ERROR Object;O:TBCOLUMN Object F:S" ) - TEST_LINE( saArray > saArray , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:A:{.[1].};A:{.[1].} F:S" ) - TEST_LINE( {} > {} , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:A:{.[0].};A:{.[0].} F:S" ) - TEST_LINE( {|| NIL } > {|| NIL } , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" ) + HBTEST NIL > NIL IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:U:NIL;U:NIL F:S" + HBTEST scString > NIL IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:C:HELLO;U:NIL F:S" + HBTEST "A" > 1 IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:C:A;N:1 F:S" + HBTEST scString > 1 IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:C:HELLO;N:1 F:S" + HBTEST soObject > "" IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:O:ERROR Object;C: F:S" + HBTEST soObject > soObject IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST soObject > ErrorNew() IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST ErrorNew() > ErrorNew() IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST soObject > TBColumnNew() IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:O:ERROR Object;O:TBCOLUMN Object F:S" + HBTEST saArray > saArray IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:A:{.[1].};A:{.[1].} F:S" + HBTEST {} > {} IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:A:{.[0].};A:{.[0].} F:S" + HBTEST {|| NIL } > {|| NIL } IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" /* >= special */ - TEST_LINE( NIL >= NIL , "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) - TEST_LINE( scString >= NIL , "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:C:HELLO;U:NIL F:S" ) - TEST_LINE( "A" >= 1 , "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:C:A;N:1 F:S" ) - TEST_LINE( scString >= 1 , "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:C:HELLO;N:1 F:S" ) - TEST_LINE( soObject >= "" , "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:O:ERROR Object;C: F:S" ) - TEST_LINE( soObject >= soObject , "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( soObject >= ErrorNew() , "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( ErrorNew() >= ErrorNew() , "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" ) - TEST_LINE( soObject >= TBColumnNew() , "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:O:ERROR Object;O:TBCOLUMN Object F:S" ) - TEST_LINE( saArray >= saArray , "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:A:{.[1].};A:{.[1].} F:S" ) - TEST_LINE( {} >= {} , "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:A:{.[0].};A:{.[0].} F:S" ) - TEST_LINE( {|| NIL } >= {|| NIL } , "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" ) + HBTEST NIL >= NIL IS "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:U:NIL;U:NIL F:S" + HBTEST scString >= NIL IS "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:C:HELLO;U:NIL F:S" + HBTEST "A" >= 1 IS "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:C:A;N:1 F:S" + HBTEST scString >= 1 IS "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:C:HELLO;N:1 F:S" + HBTEST soObject >= "" IS "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:O:ERROR Object;C: F:S" + HBTEST soObject >= soObject IS "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST soObject >= ErrorNew() IS "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST ErrorNew() >= ErrorNew() IS "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:O:ERROR Object;O:ERROR Object F:S" + HBTEST soObject >= TBColumnNew() IS "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:O:ERROR Object;O:TBCOLUMN Object F:S" + HBTEST saArray >= saArray IS "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:A:{.[1].};A:{.[1].} F:S" + HBTEST {} >= {} IS "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:A:{.[0].};A:{.[0].} F:S" + HBTEST {|| NIL } >= {|| NIL } IS "E 1 BASE 1076 Argument error (>=) OS:0 #:0 A:2:B:{||...};B:{||...} F:S" RETURN diff --git a/harbour/utils/hbtest/rt_hvma.prg b/harbour/utils/hbtest/rt_hvma.prg index 46b7672ee6..79cb283037 100644 --- a/harbour/utils/hbtest/rt_hvma.prg +++ b/harbour/utils/hbtest/rt_hvma.prg @@ -60,97 +60,97 @@ PROCEDURE Main_HVMA() // NOTE: These are compiler tests. // The expressions have to be written with no separators! - TEST_LINE( mnIntP==10.OR.mnIntP==0 , .T. ) - TEST_LINE( mnIntP==10.AND.mnLongP==0 , .F. ) + 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 - TEST_LINE( NIL + 1 , "E 1 BASE 1081 Argument error (+) OS:0 #:0 A:2:U:NIL;N:1 F:S" ) - TEST_LINE( NIL - 1 , "E 1 BASE 1082 Argument error (-) OS:0 #:0 A:2:U:NIL;N:1 F:S" ) + 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 - TEST_LINE( scString + NIL , "E 1 BASE 1081 Argument error (+) OS:0 #:0 A:2:C:HELLO;U:NIL F:S" ) - TEST_LINE( scString - NIL , "E 1 BASE 1082 Argument error (-) OS:0 #:0 A:2:C:HELLO;U:NIL F:S" ) + 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 - TEST_LINE( 1 + NIL , "E 1 BASE 1081 Argument error (+) OS:0 #:0 A:2:N:1;U:NIL F:S" ) + 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 - TEST_LINE( 1 - NIL , "E 1 BASE 1082 Argument error (-) OS:0 #:0 A:2:N:1;U:NIL F:S" ) + HBTEST 1 - NIL IS "E 1 BASE 1082 Argument error (-) OS:0 #:0 A:2:N:1;U:NIL F:S" - TEST_LINE( "A" - "B" , "AB" ) - TEST_LINE( "A " - "B" , "AB " ) - TEST_LINE( "A " - "B " , "AB " ) - TEST_LINE( "A " - " B" , "A B " ) - TEST_LINE( " " - "B " , "B " ) + 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 " - TEST_LINE( 1 / 0 , "E 5 BASE 1340 Zero divisor (/) OS:0 #:0 A:2:N:1;N:0 F:S" ) - TEST_LINE( 1 / NIL , "E 1 BASE 1084 Argument error (/) OS:0 #:0 A:2:N:1;U:NIL F:S" ) - TEST_LINE( 1 * NIL , "E 1 BASE 1083 Argument error (*) OS:0 #:0 A:2:N:1;U:NIL F:S" ) - TEST_LINE( 1 ** NIL , "E 1 BASE 1088 Argument error (^) OS:0 #:0 A:2:N:1;U:NIL F:S" ) - TEST_LINE( 1 ^ NIL , "E 1 BASE 1088 Argument error (^) OS:0 #:0 A:2:N:1;U:NIL F:S" ) - TEST_LINE( 1 % 0 , "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:1;N:0 F:S" ) - TEST_LINE( 1 % NIL , "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:N:1;U:NIL F:S" ) + 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" - TEST_LINE( Str( 1 / 0 ) , "E 5 BASE 1340 Zero divisor (/) OS:0 #:0 A:2:N:1;N:0 F:S" ) - TEST_LINE( Str( 2 / 4 ) , " 0.50" ) - TEST_LINE( Str( 4 / 2 ) , " 2" ) - TEST_LINE( Str( 4 / 2.0 ) , " 2.00" ) - TEST_LINE( Str( 1 * 0 ) , " 0" ) - TEST_LINE( Str( 2 * 4 ) , " 8" ) - TEST_LINE( Str( 4 * 2.0 ) , " 8.0" ) - TEST_LINE( Str( 2 * 0.5 ) , " 1.0" ) - TEST_LINE( Str( 1 + 0 ) , " 1" ) - TEST_LINE( Str( 2 + 4 ) , " 6" ) - TEST_LINE( Str( 4 + 2.0 ) , " 6.0" ) - TEST_LINE( Str( 2 + 0.5 ) , " 2.5" ) - TEST_LINE( Str( 1 - 0 ) , " 1" ) - TEST_LINE( Str( 2 - 4 ) , " -2" ) - TEST_LINE( Str( 4 - 2.0 ) , " 2.0" ) - TEST_LINE( Str( 2 - 0.5 ) , " 1.5" ) - TEST_LINE( Str( 1 % 0 ) , "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:1;N:0 F:S" ) - TEST_LINE( Str( 2 % 4 ) , " 2" ) - TEST_LINE( Str( 4 % 2 ) , " 0" ) - TEST_LINE( Str( 4 % 2.0 ) , " 0.00" ) - TEST_LINE( Str( 2 % 4.0 ) , " 2.00" ) + 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" - TEST_LINE( Str( 3 % 3 ) , " 0" ) - TEST_LINE( Str( 3 % 2 ) , " 1" ) - TEST_LINE( Str( 3 % 1 ) , " 0" ) - TEST_LINE( Str( 3 % 0 ) , "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:3;N:0 F:S" ) - TEST_LINE( Str( 3 % -1 ) , " 0" ) - TEST_LINE( Str( 3 % -2 ) , " 1" ) - TEST_LINE( Str( 3 % -3 ) , " 0" ) - TEST_LINE( Str( -3 % 3 ) , " 0" ) - TEST_LINE( Str( -3 % 2 ) , " -1" ) - TEST_LINE( Str( -3 % 1 ) , " 0" ) - TEST_LINE( Str( -3 % 0 ) , "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:-3;N:0 F:S" ) - TEST_LINE( Str( -3 % -1 ) , " 0" ) - TEST_LINE( Str( -3 % -2 ) , " -1" ) - TEST_LINE( Str( -3 % -3 ) , " 0" ) - TEST_LINE( Str( 3 % 3 ) , " 0" ) - TEST_LINE( Str( 2 % 3 ) , " 2" ) - TEST_LINE( Str( 1 % 3 ) , " 1" ) - TEST_LINE( Str( 0 % 3 ) , " 0" ) - TEST_LINE( Str( -1 % 3 ) , " -1" ) - TEST_LINE( Str( -2 % 3 ) , " -2" ) - TEST_LINE( Str( -3 % 3 ) , " 0" ) - TEST_LINE( Str( 3 % -3 ) , " 0" ) - TEST_LINE( Str( 2 % -3 ) , " 2" ) - TEST_LINE( Str( 1 % -3 ) , " 1" ) - TEST_LINE( Str( 0 % -3 ) , " 0" ) - TEST_LINE( Str( -1 % -3 ) , " -1" ) - TEST_LINE( Str( -2 % -3 ) , " -2" ) - TEST_LINE( Str( -3 % -3 ) , " 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( -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 */ @@ -158,104 +158,104 @@ PROCEDURE Main_HVMA() nB := 2 nC := 3 - TEST_LINE( nA , 1 ) - TEST_LINE( nB , 2 ) - TEST_LINE( nC , 3 ) + HBTEST nA IS 1 + HBTEST nB IS 2 + HBTEST nC IS 3 - TEST_LINE( nA + nB , 3 ) - TEST_LINE( nB - nA , 1 ) - TEST_LINE( nB * nC , 6 ) - TEST_LINE( nB * nC / 2 , 3 ) - TEST_LINE( nA += nB , 3 ) - TEST_LINE( nA , 3 ) - TEST_LINE( nA -= nB , 1 ) - TEST_LINE( nA , 1 ) - TEST_LINE( nA < nB , .T. ) - TEST_LINE( nA > nB , .F. ) - TEST_LINE( nA + nB <= nC , .T. ) - TEST_LINE( nA + nB >= nC , .T. ) - TEST_LINE( nA *= nB , 2 ) - TEST_LINE( nA /= nB , 1 ) - TEST_LINE( nA , 1 ) - TEST_LINE( nB ** 3 , 8 ) - TEST_LINE( nB ^ 3 , 8 ) - TEST_LINE( 8 % 3 , 2 ) - TEST_LINE( nA++ , 1 ) - TEST_LINE( nA , 2 ) - TEST_LINE( ++nA , 3 ) - TEST_LINE( nA , 3 ) - TEST_LINE( nA-- , 3 ) - TEST_LINE( nA , 2 ) - TEST_LINE( --nA , 1 ) - TEST_LINE( nA , 1 ) + 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__ - TEST_LINE( { 1, 2 }[ ( 2, 1 ) ]++ , 1 ) - TEST_LINE( ++{ 1, 2 }[ ( 2, 1 ) ] , 2 ) - TEST_LINE( { 1, 2 }[ 1 ]++ , 1 ) - TEST_LINE( ++{ 1, 2 }[ 1 ] , 2 ) + 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__ - TEST_LINE( ({ 1, 2 }[ 1 ])++ , 1 ) - TEST_LINE( ++({ 1, 2 }[ 1 ]) , 2 ) + HBTEST ({ 1, 2 }[ 1 ])++ IS 1 + HBTEST ++({ 1, 2 }[ 1 ]) IS 2 #endif #endif /* Operator precedence */ - TEST_LINE( 1 + 2 * 3 / 4 - 2 ** 2 ^ 3 , -61.50 ) - TEST_LINE( 1 + 2 * 3 / 4 - 2 ** 2 ^ 3 == 2 , .F. ) + HBTEST 1 + 2 * 3 / 4 - 2 ** 2 ^ 3 IS -61.50 + HBTEST 1 + 2 * 3 / 4 - 2 ** 2 ^ 3 == 2 IS .F. /* */ - TEST_LINE( -Month(sdDate) , -3 ) - TEST_LINE( Str(-(Month(sdDate))) , " -3" ) - TEST_LINE( Str(-(Val("10"))) , " -10" ) - TEST_LINE( Str(-(Val("100000"))) , " -100000" ) - TEST_LINE( Str(-(Val("20.876"))) , " -20.876" ) - TEST_LINE( -(0) , 0 ) - TEST_LINE( -(10) , -10 ) - TEST_LINE( -(10.505) , -10.505 ) - TEST_LINE( -(100000) , -100000 ) - TEST_LINE( -(-10) , 10 ) - TEST_LINE( -("1") , "E 1 BASE 1080 Argument error (-) OS:0 #:0 A:1:C:1 F:S" ) + 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" - TEST_LINE( "AA" $ 1 , "E 1 BASE 1109 Argument error ($) OS:0 #:0 A:2:C:AA;N:1 F:S" ) - TEST_LINE( scString $ 1 , "E 1 BASE 1109 Argument error ($) OS:0 #:0 A:2:C:HELLO;N:1 F:S" ) - TEST_LINE( 1 $ "AA" , "E 1 BASE 1109 Argument error ($) OS:0 #:0 A:2:N:1;C:AA 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" - TEST_LINE( ! scStringE $ "XE" , .T. ) - TEST_LINE( ! ( scStringE $ "XE" ) , .T. ) - TEST_LINE( scStringE $ "XE" , .F. ) - TEST_LINE( ! "X" $ "XE" , .F. ) - TEST_LINE( ! ( "X" $ "XE" ) , .F. ) - TEST_LINE( "X" $ "XE" , .T. ) - TEST_LINE( "X" $ Chr(0) + "X" , .T. ) - TEST_LINE( ( "X" ) $ Chr(0) + "X" , .T. ) - TEST_LINE( scString $ Chr(0) + scString , .T. ) + 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. - TEST_LINE( scStringE $ scStringE , .F. ) - TEST_LINE( scStringE $ "bcde" , .F. ) + HBTEST scStringE $ scStringE IS .F. + HBTEST scStringE $ "bcde" IS .F. /* disable Harbour extensions in compiler to replicate Clipper bugs */ #ifdef __HARBOUR__ #pragma -kh- #endif - TEST_LINE( "" $ "" , .T. ) /* Bug in CA-Cl*ppers compiler optimizer. It should return .F. */ - TEST_LINE( "" $ "bcde" , .T. ) /* Bug in CA-Cl*ppers compiler optimizer. It should return .F. */ + HBTEST "" $ "" IS .T. /* Bug in CA-Cl*ppers compiler optimizer. It should return .F. */ + HBTEST "" $ "bcde" IS .T. /* Bug in CA-Cl*ppers compiler optimizer. It should return .F. */ #ifdef __HARBOUR__ /* enable Harbour extensions and test correct results results */ #pragma -kh+ - TEST_LINE( "" $ "" , .F. ) /* Bug in CA-Cl*ppers compiler optimizer. It should return .F. */ - TEST_LINE( "" $ "bcde" , .F. ) /* Bug in CA-Cl*ppers compiler optimizer. It should return .F. */ + HBTEST "" $ "" IS .F. /* Bug in CA-Cl*ppers compiler optimizer. It should return .F. */ + HBTEST "" $ "bcde" IS .F. /* Bug in CA-Cl*ppers compiler optimizer. It should return .F. */ #endif - TEST_LINE( "d" $ "bcde" , .T. ) - TEST_LINE( "D" $ "BCDE" , .T. ) - TEST_LINE( "a" $ "bcde" , .F. ) - TEST_LINE( "d" $ "BCDE" , .F. ) - TEST_LINE( "D" $ "bcde" , .F. ) - TEST_LINE( "de" $ "bcde" , .T. ) - TEST_LINE( "bd" $ "bcde" , .F. ) - TEST_LINE( "BD" $ "bcde" , .F. ) + 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__ @@ -263,378 +263,378 @@ PROCEDURE Main_HVMA() /* With the shortcut optimization *ON* */ - TEST_LINE( "1" .AND. "2" , "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:C:1 " ) - TEST_LINE( 1 .AND. 2 , "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:N:1 " ) - TEST_LINE( NIL .AND. NIL , "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:U:NIL " ) - TEST_LINE( scString .AND. scString , "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:C:HELLO " ) - TEST_LINE( .T. .AND. 1 , 1 ) - TEST_LINE( .T. .AND. 1.567 , 1.567 ) - TEST_LINE( .T. .AND. scString , "HELLO" ) - TEST_LINE( .T. .AND. hb_SToD("") , hb_SToD(" ") ) - TEST_LINE( .T. .AND. NIL , NIL ) - TEST_LINE( .T. .AND. {} , "{.[0].}" ) - TEST_LINE( .T. .AND. {|| NIL } , "{||...}" ) - TEST_LINE( .F. .AND. 1 , .F. ) - TEST_LINE( .F. .AND. 1.567 , .F. ) - TEST_LINE( .F. .AND. scString , .F. ) - TEST_LINE( .F. .AND. hb_SToD("") , .F. ) - TEST_LINE( .F. .AND. NIL , .F. ) - TEST_LINE( .F. .AND. {} , .F. ) - TEST_LINE( .F. .AND. {|| NIL } , .F. ) - TEST_LINE( "1" .AND. .F. , .F. ) - TEST_LINE( 1 .AND. .F. , .F. ) - TEST_LINE( 1.567 .AND. .F. , .F. ) - TEST_LINE( scString .AND. .F. , .F. ) + 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. - TEST_LINE( "1" .OR. "2" , "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:C:1 " ) - TEST_LINE( 1 .OR. 2 , "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:N:1 " ) - TEST_LINE( .F. .OR. 2 , 2 ) - TEST_LINE( .F. .OR. 1.678 , 1.678 ) - TEST_LINE( .F. .OR. scString , "HELLO" ) - TEST_LINE( .T. .OR. 2 , .T. ) - TEST_LINE( .T. .OR. 1.678 , .T. ) - TEST_LINE( .T. .OR. scString , .T. ) - TEST_LINE( "1" .OR. .F. , "1" ) - TEST_LINE( 1 .OR. .F. , 1 ) - TEST_LINE( 1.0 .OR. .F. , 1.0 ) - TEST_LINE( scString .OR. .F. , "HELLO" ) + 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) */ - TEST_LINE( "1" .AND. "2" , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:C:1;C:2 F:S" ) - TEST_LINE( 1 .AND. 2 , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:N:1;N:2 F:S" ) - TEST_LINE( NIL .AND. NIL , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) - TEST_LINE( scString .AND. scString , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:C:HELLO;C:HELLO F:S" ) - TEST_LINE( .T. .AND. 1 , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;N:1 F:S" ) - TEST_LINE( .T. .AND. 1.567 , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;N:1.567 F:S" ) - TEST_LINE( .T. .AND. scString , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;C:HELLO F:S" ) - TEST_LINE( .T. .AND. hb_SToD("") , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;D: F:S" ) - TEST_LINE( .T. .AND. NIL , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;U:NIL F:S" ) - TEST_LINE( .T. .AND. {} , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;A:{.[0].} F:S" ) - TEST_LINE( .T. .AND. {|| NIL } , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.T.;B:{||...} F:S" ) - TEST_LINE( .F. .AND. 1 , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;N:1 F:S" ) - TEST_LINE( .F. .AND. 1.567 , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;N:1.567 F:S" ) - TEST_LINE( .F. .AND. scString , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;C:HELLO F:S" ) - TEST_LINE( .F. .AND. hb_SToD("") , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;D: F:S" ) - TEST_LINE( .F. .AND. NIL , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;U:NIL F:S" ) - TEST_LINE( .F. .AND. {} , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;A:{.[0].} F:S" ) - TEST_LINE( .F. .AND. {|| NIL } , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:L:.F.;B:{||...} F:S" ) - TEST_LINE( "1" .AND. .F. , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:C:1;L:.F. F:S" ) - TEST_LINE( 1 .AND. .F. , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:N:1;L:.F. F:S" ) - TEST_LINE( 1.567 .AND. .F. , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:N:1.567;L:.F. F:S" ) - TEST_LINE( scString .AND. .F. , "E 1 BASE 1078 Argument error (.AND.) OS:0 #:0 A:2:C:HELLO;L:.F. F:S" ) + 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: 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: 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" - TEST_LINE( "1" .OR. "2" , "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:C:1;C:2 F:S" ) - TEST_LINE( 1 .OR. 2 , "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:N:1;N:2 F:S" ) - TEST_LINE( .F. .OR. 2 , "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:L:.F.;N:2 F:S" ) - TEST_LINE( .F. .OR. 1.678 , "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:L:.F.;N:1.678 F:S" ) - TEST_LINE( .F. .OR. scString , "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:L:.F.;C:HELLO F:S" ) - TEST_LINE( .T. .OR. 2 , "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:L:.T.;N:2 F:S" ) - TEST_LINE( .T. .OR. 1.678 , "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:L:.T.;N:1.678 F:S" ) - TEST_LINE( .T. .OR. scString , "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:L:.T.;C:HELLO F:S" ) - TEST_LINE( "1" .OR. .F. , "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:C:1;L:.F. F:S" ) - TEST_LINE( 1 .OR. .F. , "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:N:1;L:.F. F:S" ) - TEST_LINE( 1.0 .OR. .F. , "E 1 BASE 1079 Argument error (.OR.) OS:0 #:0 A:2:N:1.0;L:.F. F:S" ) - TEST_LINE( scString .OR. .F. , "E 1 BASE 1079 Argument error (.OR.) 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 - TEST_LINE( .NOT. .T. , .F. ) - TEST_LINE( .NOT. .F. , .T. ) - TEST_LINE( .NOT. 1 , "E 1 BASE 1077 Argument error (.NOT.) OS:0 #:0 A:1:N:1 F:S" ) + 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 - TEST_LINE( iif( "A", ":T:", ":F:" ) , "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:C:A " ) + HBTEST iif( "A", ":T:", ":F:" ) IS "E 1 BASE 1066 Argument error (conditional) OS:0 #:0 A:1:C:A " #endif #endif - TEST_LINE( iif( .T., ":T:", ":F:" ) , ":T:" ) - TEST_LINE( iif( .F., ":T:", ":F:" ) , ":F:" ) + HBTEST iif( .T., ":T:", ":F:" ) IS ":T:" + HBTEST iif( .F., ":T:", ":F:" ) IS ":F:" - TEST_LINE( scString++ , "E 1 BASE 1086 Argument error (++) OS:0 #:0 A:1:C:HELLO F:S" ) - TEST_LINE( scString-- , "E 1 BASE 1087 Argument error (--) OS:0 #:0 A:1:C:HELLO F:S" ) + 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" - TEST_LINE( mxNotHere , "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 */ + 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__ - TEST_LINE( __mvGet("MXUNDECL") , "E 14 BASE 1003 Variable does not exist (MXUNDECL) OS:0 #:1 F:R" ) + HBTEST __mvGet("MXUNDECL") IS "E 14 BASE 1003 Variable does not exist (MXUNDECL) OS:0 #:1 F:R" #endif mxNotHere ="MXUNDECL" - TEST_LINE( &mxNotHere. , "E 14 BASE 1003 Variable does not exist (MXUNDECL) OS:0 #:1 F:R" ) + 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 - TEST_LINE( saArray[ 0 ] , "E 2 BASE 1132 Bound error (array access) OS:0 #:0 " ) - TEST_LINE( saArray[ 0 ] := 1 , "E 2 BASE 1133 Bound error (array assign) OS:0 #:0 " ) + 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 - TEST_LINE( saArray[ 1000 ] , "E 2 BASE 1132 Bound error (array access) OS:0 #:0 " ) - TEST_LINE( saArray[ 1000 ] := 1 , "E 2 BASE 1133 Bound error (array assign) OS:0 #:0 " ) + HBTEST saArray[ 1000 ] IS "E 2 BASE 1132 Bound error (array access) OS:0 #:0 " + HBTEST saArray[ 1000 ] := 1 IS "E 2 BASE 1133 Bound error (array assign) OS:0 #:0 " #ifndef __HARBOUR__ // this error is reported at compile time - TEST_LINE( saArray[ -1 ] , "E 2 BASE 1132 Bound error (array access) OS:0 #:0 " ) - TEST_LINE( saArray[ -1 ] := 1 , "E 2 BASE 1133 Bound error (array assign) OS:0 #:0 " ) - TEST_LINE( saArray[ "1" ] , "E 1 BASE 1068 Argument error (array access) OS:0 #:0 A:2:A:{.[1].};C:1 F:S" ) - TEST_LINE( saArray[ "1" ] := 1 , "E 1 BASE 1069 Argument error (array assign) OS:0 #:0 A:3:N:1;A:{.[1].};C:1 " ) + 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 */ - TEST_LINE( ("NOTHERE")->NOFIELD , "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R" ) - TEST_LINE( (mcString)->NOFIELD , "E 15 BASE 1002 Alias does not exist (HELLO) OS:0 #:1 F:R" ) - TEST_Line( ({})->NOFIELD , "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:A:{.[0].};C:NOFIELD F:S" ) - TEST_LINE( ({|| NIL })->NOFIELD , "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:B:{||...};C:NOFIELD F:S" ) - TEST_LINE( (.T.)->NOFIELD , "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:L:.T.;C:NOFIELD F:S" ) - TEST_LINE( (.F.)->NOFIELD , "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:L:.F.;C:NOFIELD F:S" ) - TEST_LINE( (NIL)->NOFIELD , "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:U:NIL;C:NOFIELD F:S" ) - TEST_LINE( (2)->NOFIELD , "E 14 BASE 1003 Variable does not exist (NOFIELD) OS:0 #:1 F:R" ) - TEST_LINE( (2.5)->NOFIELD , "E 14 BASE 1003 Variable does not exist (NOFIELD) OS:0 #:1 F:R" ) - TEST_LINE( (hb_SToD(""))->NOFIELD , "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:D: ;C:NOFIELD F:S" ) - TEST_LINE( (ErrorNew())->NOFIELD , "E 1 BASE 1065 Argument error (&) OS:0 #:0 A:2:O:ERROR Object;C:NOFIELD F:S" ) + 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: ;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 - TEST_LINE( ("NOTHERE")->(Eof()) , .T. ) + HBTEST ("NOTHERE")->(Eof()) IS .T. #ifdef __HARBOUR__ #pragma -ko+ #endif - TEST_LINE( (mcString)->(Eof()) , .T. ) - TEST_LINE( ({})->(Eof()) , .T. ) - TEST_LINE( ({|| NIL })->(Eof()) , .T. ) - TEST_LINE( (.T.)->(Eof()) , .T. ) - TEST_LINE( (.F.)->(Eof()) , .T. ) - TEST_LINE( (NIL)->(Eof()) , .T. ) - TEST_LINE( (2)->(Eof()) , .T. ) - TEST_LINE( (2.5)->(Eof()) , .T. ) - TEST_LINE( (hb_SToD(""))->(Eof()) , .T. ) - TEST_LINE( (ErrorNew())->(Eof()) , .T. ) + 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 - TEST_LINE( NOTHERE->NOFIELD , "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R" ) - TEST_LINE( NOTHERE->("NOFIELD") , "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R" ) - TEST_LINE( NOTHERE->(mcString) , "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R" ) - TEST_LINE( NOTHERE->({}) , "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R" ) - TEST_LINE( NOTHERE->({|| NIL }) , "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R" ) - TEST_LINE( NOTHERE->(.T.) , "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R" ) - TEST_LINE( NOTHERE->(.F.) , "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R" ) - TEST_LINE( NOTHERE->(NIL) , "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R" ) - TEST_LINE( NOTHERE->(1) , "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R" ) - TEST_LINE( NOTHERE->(1.5) , "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R" ) - TEST_LINE( NOTHERE->(hb_SToD("")) , "E 15 BASE 1002 Alias does not exist (NOTHERE) OS:0 #:1 F:R" ) - TEST_LINE( NOTHERE->(ErrorNew()) , "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->("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" - TEST_LINE( 200->NOFIELD , "E 14 BASE 1003 Variable does not exist (NOFIELD) OS:0 #:1 F:R" ) - TEST_LINE( 200->("NOFIELD") , "NOFIELD" ) - TEST_LINE( 200->(mcString) , "HELLO" ) - TEST_LINE( 200->({}) , "{.[0].}" ) - TEST_LINE( 200->({|| NIL }) , "{||...}" ) - TEST_LINE( 200->(.T.) , .T. ) - TEST_LINE( 200->(.F.) , .F. ) - TEST_LINE( 200->(NIL) , NIL ) - TEST_LINE( 200->(1) , 1 ) - TEST_LINE( 200->(1.5) , 1.5 ) - TEST_LINE( 200->(hb_SToD("")) , hb_SToD(" ") ) - TEST_LINE( 200->(ErrorNew()) , "ERROR Object" ) + 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" - TEST_LINE( soObject:hello , "E 13 BASE 1004 No exported method (HELLO) OS:0 #:0 A:1:O:ERROR Object F:S" ) - TEST_LINE( soObject:hello := 1 , "E 16 BASE 1005 No exported variable (HELLO) OS:0 #:0 A:2:O:ERROR Object;N:1 F:S" ) + 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() */ - TEST_LINE( Len( NIL ) , "E 1 BASE 1111 Argument error (LEN) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( Len( 123 ) , "E 1 BASE 1111 Argument error (LEN) OS:0 #:0 A:1:N:123 F:S" ) - TEST_LINE( Len( "" ) , 0 ) - TEST_LINE( Len( "123" ) , 3 ) - TEST_LINE( Len( "123"+Chr(0)+"456 " ) , 8 ) + 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() - TEST_LINE( Len( w_TEST->TYPE_C ) , 15 ) - TEST_LINE( Len( w_TEST->TYPE_C_E ) , 15 ) - TEST_LINE( Len( w_TEST->TYPE_M ) , 11 ) - TEST_LINE( Len( w_TEST->TYPE_M_E ) , 0 ) + 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 - TEST_LINE( Len( saArray ) , 1 ) + HBTEST Len( saArray ) IS 1 #ifdef __HARBOUR__ - TEST_LINE( Len( ErrorNew() ) , 12 ) - TEST_LINE( Len( Space( 1000000 ) ) , 1000000 ) + HBTEST Len( ErrorNew() ) IS 12 + HBTEST Len( Space( 1000000 ) ) IS 1000000 #else - TEST_LINE( Len( ErrorNew() ) , 7 ) - TEST_LINE( Len( Space( 40000 ) ) , 40000 ) + HBTEST Len( ErrorNew() ) IS 7 + HBTEST Len( Space( 40000 ) ) IS 40000 #endif /* Empty() */ #ifdef __HARBOUR__ - TEST_LINE( Empty( @scString ) , .F. ) /* Bug in CA-Cl*pper, it will return .T. */ - TEST_LINE( Empty( @scStringE ) , .T. ) - TEST_LINE( Empty( @snIntP ) , .F. ) /* Bug in CA-Cl*pper, it will return .T. */ - TEST_LINE( Empty( @snIntZ ) , .T. ) + 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 - TEST_LINE( Empty( "Hallo" ) , .F. ) - TEST_LINE( Empty( "" ) , .T. ) - TEST_LINE( Empty( " " ) , .T. ) - TEST_LINE( Empty( " "+Chr(0) ) , .F. ) - TEST_LINE( Empty( " "+Chr(13)+Chr(9) ) , .T. ) - TEST_LINE( Empty( " A" ) , .F. ) - TEST_LINE( Empty( " x " ) , .F. ) - TEST_LINE( Empty( " x"+Chr(0) ) , .F. ) - TEST_LINE( Empty( " "+Chr(13)+"x"+Chr(9) ) , .F. ) + 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() - TEST_LINE( Empty( w_TEST->TYPE_C ) , .F. ) - TEST_LINE( Empty( w_TEST->TYPE_C_E ) , .T. ) - TEST_LINE( Empty( w_TEST->TYPE_D ) , .F. ) - TEST_LINE( Empty( w_TEST->TYPE_D_E ) , .T. ) - TEST_LINE( Empty( w_TEST->TYPE_M ) , .F. ) - TEST_LINE( Empty( w_TEST->TYPE_M_E ) , .T. ) - TEST_LINE( Empty( w_TEST->TYPE_N_I ) , .F. ) - TEST_LINE( Empty( w_TEST->TYPE_N_IE ) , .T. ) - TEST_LINE( Empty( w_TEST->TYPE_N_D ) , .F. ) - TEST_LINE( Empty( w_TEST->TYPE_N_DE ) , .T. ) - TEST_LINE( Empty( w_TEST->TYPE_L ) , .F. ) - TEST_LINE( Empty( w_TEST->TYPE_L_E ) , .T. ) + 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 - TEST_LINE( Empty( 0 ) , .T. ) - TEST_LINE( Empty( -0 ) , .T. ) - TEST_LINE( Empty( 0.0 ) , .T. ) - TEST_LINE( Empty( 70000-70000 ) , .T. ) - TEST_LINE( Empty( 1.5 * 1.5 - 2.25 ) , .T. ) - TEST_LINE( Empty( 10 ) , .F. ) - TEST_LINE( Empty( 10.0 ) , .F. ) - TEST_LINE( Empty( 70000+70000 ) , .F. ) - TEST_LINE( Empty( 1.5 * 1.5 * 2.25 ) , .F. ) - TEST_LINE( Empty( hb_SToD( "18241010" ) ) , .F. ) - TEST_LINE( Empty( hb_SToD( "18250231" ) ) , .T. ) - TEST_LINE( Empty( hb_SToD( "99999999" ) ) , .T. ) - TEST_LINE( Empty( hb_SToD( " " ) ) , .T. ) - TEST_LINE( Empty( hb_SToD( "" ) ) , .T. ) - TEST_LINE( Empty( .T. ) , .F. ) - TEST_LINE( Empty( .F. ) , .T. ) - TEST_LINE( Empty( NIL ) , .T. ) - TEST_LINE( Empty( { 1 } ) , .F. ) - TEST_LINE( Empty( {} ) , .T. ) - TEST_LINE( Empty( { 0 } ) , .F. ) - TEST_LINE( Empty( {| x | x + x } ) , .F. ) - TEST_LINE( Empty( ErrorNew() ) , .F. ) + 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 */ - TEST_LINE( RTSTR( 50000000 ) , " 10 50000000" ) - TEST_LINE( RTSTR( 99999999 ) , " 10 99999999" ) - TEST_LINE( RTSTR( 100000000 ) , " 10 100000000" ) - TEST_LINE( RTSTR( 500000000 ) , " 10 500000000" ) - TEST_LINE( RTSTR( 999999999 ) , " 10 999999999" ) - TEST_LINE( RTSTR( 999999999.99 ) , " 13 999999999.99" ) - TEST_LINE( RTSTR( 1000000000 ) , " 11 1000000000" ) - TEST_LINE( RTSTR( 1000000000.0 ) , " 12 1000000000.0" ) - TEST_LINE( RTSTR( 1000000000.00 ) , " 13 1000000000.00" ) - TEST_LINE( RTSTR( 1000000000.99 ) , " 13 1000000000.99" ) - TEST_LINE( RTSTR( 4000000000 ) , " 11 4000000000" ) - TEST_LINE( RTSTR( 00005 ) , " 10 5" ) - TEST_LINE( RTSTR( 00005.5 ) , " 12 5.5" ) - TEST_LINE( RTSTR( 5000000000 ) , " 11 5000000000" ) - TEST_LINE( RTSTR( 50000000000 ) , " 12 50000000000" ) - TEST_LINE( RTSTR( 500000000000 ) , " 13 500000000000" ) - TEST_LINE( RTSTR( 500000000000.0 ) , " 14 500000000000.0" ) - TEST_LINE( RTSTR( 5000000000000 ) , " 14 5000000000000" ) - TEST_LINE( RTSTR( 50000000000000 ) , " 15 50000000000000" ) - TEST_LINE( RTSTR( 500000000000000 ) , " 16 500000000000000" ) - TEST_LINE( RTSTR( 00000000000005 ) , " 10 5" ) - TEST_LINE( RTSTR( 00000500000000000000 ) , " 21 500000000000000" ) - TEST_LINE( RTSTR( 0500000000000000 ) , " 17 500000000000000" ) - TEST_LINE( RTSTR( 0500000000000000.5 ) , " 18 500000000000000.5" ) - TEST_LINE( RTSTR( 5000000000000000 ) , " 17 5000000000000000" ) - TEST_LINE( RTSTR( 50000000000000000 ) , " 18 50000000000000000" ) - TEST_LINE( RTSTR( 500000000000000000 ) , " 19 500000000000000000" ) - TEST_LINE( RTSTR( 5000000000000000000 ) , " 20 5000000000000000000" ) - TEST_LINE( RTSTR( 50000000000000000000 ) , " 21 50000000000000000000" ) - TEST_LINE( RTSTR( 500000000000000000000 ) , " 22 500000000000000000000" ) - TEST_LINE( RTSTR( 5000000000000000000000 ) , " 23 5000000000000000000000" ) - TEST_LINE( RTSTR( 50000000000000000000000 ) , " 24 50000000000000000000000" ) - TEST_LINE( RTSTR( 500000000000000000000000 ) , " 25 500000000000000000000000" ) - TEST_LINE( RTSTR( 5000000000000000000000000 ) , " 26 5000000000000000000000000" ) - TEST_LINE( RTSTR( 5000000000000000000000000.0 ) , " 27 5000000000000000000000000.0" ) - TEST_LINE( RTSTR( -50000000 ) , " 10 -50000000" ) - TEST_LINE( RTSTR( -50000000.0 ) , " 12 -50000000.0" ) - TEST_LINE( RTSTR( -500000000 ) , " 10 -500000000" ) - TEST_LINE( RTSTR( -999999999 ) , " 10 -999999999" ) - TEST_LINE( RTSTR( -1000000000 ) , " 20 -1000000000" ) - TEST_LINE( RTSTR( -1000000000.0 ) , " 22 -1000000000.0" ) - TEST_LINE( RTSTR( -4000000000 ) , " 20 -4000000000" ) - TEST_LINE( RTSTR( -5000000000 ) , " 20 -5000000000" ) - TEST_LINE( RTSTR( -50000000000 ) , " 20 -50000000000" ) - TEST_LINE( RTSTR( -500000000000 ) , " 20 -500000000000" ) - TEST_LINE( RTSTR( -500000000000.0 ) , " 22 -500000000000.0" ) - TEST_LINE( RTSTR( -5000000000000 ) , " 20 -5000000000000" ) - TEST_LINE( RTSTR( -50000000000000 ) , " 20 -50000000000000" ) - TEST_LINE( RTSTR( -500000000000000 ) , " 20 -500000000000000" ) - TEST_LINE( RTSTR( -5000000000000000 ) , " 20 -5000000000000000" ) - TEST_LINE( RTSTR( -50000000000000000 ) , " 20 -50000000000000000" ) - TEST_LINE( RTSTR( -500000000000000000 ) , " 20 -500000000000000000" ) - TEST_LINE( RTSTR( -5000000000000000000 ) , " 20 -5000000000000000000" ) - TEST_LINE( RTSTR( -50000000000000000000 ) , " 20 ********************" ) - TEST_LINE( RTSTR( -500000000000000000000 ) , " 20 ********************" ) - TEST_LINE( RTSTR( -5000000000000000000000 ) , " 20 ********************" ) - TEST_LINE( RTSTR( -50000000000000000000000 ) , " 20 ********************" ) - TEST_LINE( RTSTR( -500000000000000000000000 ) , " 20 ********************" ) - TEST_LINE( RTSTR( -5000000000000000000000000 ) , " 20 ********************" ) + 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" + HBTEST RTSTR( 0500000000000000 ) IS " 17 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 ********************" - TEST_LINE(( nA := 50000000 , RTSTR( -nA )) , " 10 -50000000" ) - TEST_LINE(( nA := 50000000.0 , RTSTR( -nA )) , " 12 -50000000.0" ) - TEST_LINE(( nA := 99999999 , RTSTR( -nA )) , " 10 -99999999" ) - TEST_LINE(( nA := 99999999.9 , RTSTR( -nA )) , " 12 -99999999.9" ) - TEST_LINE(( nA := 100000000 , RTSTR( -nA )) , " 10 -100000000" ) - TEST_LINE(( nA := 100000000.0 , RTSTR( -nA )) , " 12 -100000000.0" ) - TEST_LINE(( nA := 500000000 , RTSTR( -nA )) , " 10 -500000000" ) - TEST_LINE(( nA := 999999999 , RTSTR( -nA )) , " 10 -999999999" ) - TEST_LINE(( nA := 999999999.99 , RTSTR( -nA )) , " 23 -999999999.99" ) - TEST_LINE(( nA := 1000000000 , RTSTR( -nA )) , " 20 -1000000000" ) - TEST_LINE(( nA := 1000000000.0 , RTSTR( -nA )) , " 22 -1000000000.0" ) - TEST_LINE(( nA := 1000000000.00 , RTSTR( -nA )) , " 23 -1000000000.00" ) - TEST_LINE(( nA := 1000000000.99 , RTSTR( -nA )) , " 23 -1000000000.99" ) - TEST_LINE(( nA := 4000000000 , RTSTR( -nA )) , " 20 -4000000000" ) - TEST_LINE(( nA := 5000000000 , RTSTR( -nA )) , " 20 -5000000000" ) - TEST_LINE(( nA := 50000000000 , RTSTR( -nA )) , " 20 -50000000000" ) - TEST_LINE(( nA := 500000000000 , RTSTR( -nA )) , " 20 -500000000000" ) - TEST_LINE(( nA := 5000000000000 , RTSTR( -nA )) , " 20 -5000000000000" ) - TEST_LINE(( nA := 50000000000000 , RTSTR( -nA )) , " 20 -50000000000000" ) - TEST_LINE(( nA := 500000000000000 , RTSTR( -nA )) , " 20 -500000000000000" ) - TEST_LINE(( nA := 5000000000000000 , RTSTR( -nA )) , " 20 -5000000000000000" ) - TEST_LINE(( nA := 50000000000000000 , RTSTR( -nA )) , " 20 -50000000000000000" ) - TEST_LINE(( nA := 500000000000000000 , RTSTR( -nA )) , " 20 -500000000000000000" ) - TEST_LINE(( nA := 5000000000000000000 , RTSTR( -nA )) , " 20 -5000000000000000000" ) - TEST_LINE(( nA := 50000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := 500000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := 5000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := 50000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := 500000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := 5000000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := 5000000000000000000000000.0 , RTSTR( -nA )) , " 22 **********************" ) - TEST_LINE(( nA := -50000000 , RTSTR( -nA )) , " 10 50000000" ) - TEST_LINE(( nA := -50000000.0 , RTSTR( -nA )) , " 12 50000000.0" ) - TEST_LINE(( nA := -500000000 , RTSTR( -nA )) , " 10 500000000" ) - TEST_LINE(( nA := -999999999 , RTSTR( -nA )) , " 10 999999999" ) - TEST_LINE(( nA := -1000000000 , RTSTR( -nA )) , " 10 1000000000" ) - TEST_LINE(( nA := -4000000000 , RTSTR( -nA )) , " 10 4000000000" ) - TEST_LINE(( nA := -5000000000 , RTSTR( -nA )) , " 10 5000000000" ) - TEST_LINE(( nA := -50000000000 , RTSTR( -nA )) , " 20 50000000000" ) - TEST_LINE(( nA := -500000000000 , RTSTR( -nA )) , " 20 500000000000" ) - TEST_LINE(( nA := -5000000000000 , RTSTR( -nA )) , " 20 5000000000000" ) - TEST_LINE(( nA := -50000000000000 , RTSTR( -nA )) , " 20 50000000000000" ) - TEST_LINE(( nA := -500000000000000 , RTSTR( -nA )) , " 20 500000000000000" ) - TEST_LINE(( nA := -5000000000000000 , RTSTR( -nA )) , " 20 5000000000000000" ) - TEST_LINE(( nA := -50000000000000000 , RTSTR( -nA )) , " 20 50000000000000000" ) - TEST_LINE(( nA := -500000000000000000 , RTSTR( -nA )) , " 20 500000000000000000" ) - TEST_LINE(( nA := -5000000000000000000 , RTSTR( -nA )) , " 20 5000000000000000000" ) - TEST_LINE(( nA := -50000000000000000000 , RTSTR( -nA )) , " 20 50000000000000000000" ) - TEST_LINE(( nA := -500000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := -5000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := -50000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := -500000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := -5000000000000000000000000 , RTSTR( -nA )) , " 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 diff --git a/harbour/utils/hbtest/rt_main.ch b/harbour/utils/hbtest/rt_main.ch index ea09c758a5..aa3b7237b6 100644 --- a/harbour/utils/hbtest/rt_main.ch +++ b/harbour/utils/hbtest/rt_main.ch @@ -50,7 +50,7 @@ * */ -#translate TEST_LINE( , ) => TEST_CALL( #, {|| }, ) +#translate HBTEST IS => TEST_CALL( #, {|| }, ) #ifndef __HARBOUR__ #ifndef __XPP__ diff --git a/harbour/utils/hbtest/rt_math.prg b/harbour/utils/hbtest/rt_math.prg index e3c6d9112f..bc8e857e94 100644 --- a/harbour/utils/hbtest/rt_math.prg +++ b/harbour/utils/hbtest/rt_math.prg @@ -63,467 +63,467 @@ PROCEDURE Main_MATH() /* Log() */ - TEST_LINE( Log("A") , "E 1 BASE 1095 Argument error (LOG) OS:0 #:0 A:1:C:A F:S" ) - TEST_LINE( Str(Log(-1)) , "***********************" ) -// TEST_LINE( Str(Log(0)) , "***********************" ) - TEST_LINE( Str(Log(1)) , " 0.00" ) - TEST_LINE( Str(Log(12)) , " 2.48" ) - TEST_LINE( Str(Log(snIntP)) , " 2.30" ) + HBTEST Log("A") IS "E 1 BASE 1095 Argument error (LOG) OS:0 #:0 A:1:C:A F:S" + HBTEST Str(Log(-1)) IS "***********************" +// HBTEST Str(Log(0)) IS "***********************" + HBTEST Str(Log(1)) IS " 0.00" + HBTEST Str(Log(12)) IS " 2.48" + HBTEST Str(Log(snIntP)) IS " 2.30" #ifdef __HARBOUR__ - TEST_LINE( Str(Log(@snIntP)) , " 2.30" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1095 Argument error (LOG) OS:0 #:0 A:1:U:10 F:S" */ + HBTEST Str(Log(@snIntP)) IS " 2.30" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1095 Argument error (LOG) OS:0 #:0 A:1:U:10 F:S" */ #endif /* Sqrt() */ - TEST_LINE( Sqrt("A") , "E 1 BASE 1097 Argument error (SQRT) OS:0 #:0 A:1:C:A F:S" ) - TEST_LINE( Sqrt(-1) , 0 ) - TEST_LINE( Sqrt(0) , 0 ) - TEST_LINE( Sqrt(4) , 2 ) - TEST_LINE( Str(Sqrt(snIntP)) , " 3.16" ) + HBTEST Sqrt("A") IS "E 1 BASE 1097 Argument error (SQRT) OS:0 #:0 A:1:C:A F:S" + HBTEST Sqrt(-1) IS 0 + HBTEST Sqrt(0) IS 0 + HBTEST Sqrt(4) IS 2 + HBTEST Str(Sqrt(snIntP)) IS " 3.16" #ifdef __HARBOUR__ - TEST_LINE( Str(Sqrt(@snIntP)) , " 3.16" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1097 Argument error (SQRT) OS:0 #:0 A:1:U:10 F:S" */ + HBTEST Str(Sqrt(@snIntP)) IS " 3.16" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1097 Argument error (SQRT) OS:0 #:0 A:1:U:10 F:S" */ #endif - TEST_LINE( Str(Sqrt(4),21,18) , " 2.000000000000000000" ) - TEST_LINE( Str(Sqrt(3),21,18) , " 1.732050807568877000" ) + HBTEST Str(Sqrt(4),21,18) IS " 2.000000000000000000" + HBTEST Str(Sqrt(3),21,18) IS " 1.732050807568877000" /* Abs() */ - TEST_LINE( Abs("A") , "E 1 BASE 1089 Argument error (ABS) OS:0 #:0 A:1:C:A F:S" ) - TEST_LINE( Abs(0) , 0 ) - TEST_LINE( Abs(10) , 10 ) - TEST_LINE( Abs(-10) , 10 ) - TEST_LINE( Str(Abs(snIntN)) , " 10" ) + HBTEST Abs("A") IS "E 1 BASE 1089 Argument error (ABS) OS:0 #:0 A:1:C:A F:S" + HBTEST Abs(0) IS 0 + HBTEST Abs(10) IS 10 + HBTEST Abs(-10) IS 10 + HBTEST Str(Abs(snIntN)) IS " 10" #ifdef __HARBOUR__ - TEST_LINE( Str(Abs(@snIntN)) , " 10" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1089 Argument error (ABS) OS:0 #:0 A:1:U:-10 F:S" */ + HBTEST Str(Abs(@snIntN)) IS " 10" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1089 Argument error (ABS) OS:0 #:0 A:1:U:-10 F:S" */ #endif - TEST_LINE( Abs(Month(sdDate)) , 3 ) - TEST_LINE( Abs(-Month(sdDate)) , 3 ) - TEST_LINE( Str(Abs(Year(sdDateE))) , " 0" ) - TEST_LINE( Str(Abs(-Year(sdDateE))) , " 0" ) - TEST_LINE( Str(Abs(Year(sdDate))) , " 1984" ) - TEST_LINE( Str(Abs(-Year(sdDate))) , " 1984" ) - TEST_LINE( Str(Abs(Month(sdDate))) , " 3" ) - TEST_LINE( Str(Abs(-Month(sdDate))) , " 3" ) - TEST_LINE( Str(Abs(0)) , " 0" ) - TEST_LINE( Str(Abs(0.0)) , " 0.0" ) - TEST_LINE( Str(Abs(-0)) , " 0" ) - TEST_LINE( Str(Abs(150)) , " 150" ) - TEST_LINE( Str(Abs(-150)) , " 150" ) - TEST_LINE( Str(Abs(150.245)) , " 150.245" ) - TEST_LINE( Str(Abs(-150.245)) , " 150.245" ) - TEST_LINE( Str(Abs(Val("0"))) , "0" ) - TEST_LINE( Str(Abs(Val("-0"))) , " 0" ) - TEST_LINE( Str(Abs(Val("150"))) , "150" ) - TEST_LINE( Str(Abs(Val("-150"))) , " 150" ) - TEST_LINE( Str(Abs(Val("150.245"))) , " 150.245" ) - TEST_LINE( Str(Abs(Val("-150.245"))) , " 150.245" ) - TEST_LINE( Abs(0.1) , 0.1 ) - TEST_LINE( Abs(10.5) , 10.5 ) - TEST_LINE( Abs(-10.7) , 10.7 ) - TEST_LINE( Abs(10.578) , 10.578 ) - TEST_LINE( Abs(-10.578) , 10.578 ) - TEST_LINE( Abs(100000) , 100000 ) - TEST_LINE( Abs(-100000) , 100000 ) + HBTEST Abs(Month(sdDate)) IS 3 + HBTEST Abs(-Month(sdDate)) IS 3 + HBTEST Str(Abs(Year(sdDateE))) IS " 0" + HBTEST Str(Abs(-Year(sdDateE))) IS " 0" + HBTEST Str(Abs(Year(sdDate))) IS " 1984" + HBTEST Str(Abs(-Year(sdDate))) IS " 1984" + HBTEST Str(Abs(Month(sdDate))) IS " 3" + HBTEST Str(Abs(-Month(sdDate))) IS " 3" + HBTEST Str(Abs(0)) IS " 0" + HBTEST Str(Abs(0.0)) IS " 0.0" + HBTEST Str(Abs(-0)) IS " 0" + HBTEST Str(Abs(150)) IS " 150" + HBTEST Str(Abs(-150)) IS " 150" + HBTEST Str(Abs(150.245)) IS " 150.245" + HBTEST Str(Abs(-150.245)) IS " 150.245" + HBTEST Str(Abs(Val("0"))) IS "0" + HBTEST Str(Abs(Val("-0"))) IS " 0" + HBTEST Str(Abs(Val("150"))) IS "150" + HBTEST Str(Abs(Val("-150"))) IS " 150" + HBTEST Str(Abs(Val("150.245"))) IS " 150.245" + HBTEST Str(Abs(Val("-150.245"))) IS " 150.245" + HBTEST Abs(0.1) IS 0.1 + HBTEST Abs(10.5) IS 10.5 + HBTEST Abs(-10.7) IS 10.7 + HBTEST Abs(10.578) IS 10.578 + HBTEST Abs(-10.578) IS 10.578 + HBTEST Abs(100000) IS 100000 + HBTEST Abs(-100000) IS 100000 /* Exp() */ - TEST_LINE( Exp("A") , "E 1 BASE 1096 Argument error (EXP) OS:0 #:0 A:1:C:A F:S" ) - TEST_LINE( Exp(0) , 1.00 ) - TEST_LINE( Str(Exp(15)) , " 3269017.37" ) - TEST_LINE( Str(Exp(snIntZ)) , " 1.00" ) + HBTEST Exp("A") IS "E 1 BASE 1096 Argument error (EXP) OS:0 #:0 A:1:C:A F:S" + HBTEST Exp(0) IS 1.00 + HBTEST Str(Exp(15)) IS " 3269017.37" + HBTEST Str(Exp(snIntZ)) IS " 1.00" #ifdef __HARBOUR__ - TEST_LINE( Str(Exp(@snIntZ)) , " 1.00" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1096 Argument error (EXP) OS:0 #:0 A:1:U:0 F:S" */ + HBTEST Str(Exp(@snIntZ)) IS " 1.00" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1096 Argument error (EXP) OS:0 #:0 A:1:U:0 F:S" */ #endif - TEST_LINE( Round(Exp(1),2) , 2.72 ) - TEST_LINE( Str(Exp(1),20,10) , " 2.7182818285" ) - TEST_LINE( Round(Exp(10),2) , 22026.47 ) - TEST_LINE( Str(Exp(10),20,10) , " 22026.4657948067" ) + HBTEST Round(Exp(1),2) IS 2.72 + HBTEST Str(Exp(1),20,10) IS " 2.7182818285" + HBTEST Round(Exp(10),2) IS 22026.47 + HBTEST Str(Exp(10),20,10) IS " 22026.4657948067" /* Round() */ - TEST_LINE( Round(snDoubleP, snIntZ) , 11 ) + HBTEST Round(snDoubleP, snIntZ) IS 11 #ifdef __HARBOUR__ - TEST_LINE( Round(@snDoubleP, @snIntZ) , 11 ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1094 Argument error (ROUND) OS:0 #:0 A:2:U:10.567;U:0 F:S" */ + HBTEST Round(@snDoubleP, @snIntZ) IS 11 /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1094 Argument error (ROUND) OS:0 #:0 A:2:U:10.567;U:0 F:S" */ #endif - TEST_LINE( Round(NIL, 0) , "E 1 BASE 1094 Argument error (ROUND) OS:0 #:0 A:2:U:NIL;N:0 F:S" ) - TEST_LINE( Round(0, NIL) , "E 1 BASE 1094 Argument error (ROUND) OS:0 #:0 A:2:N:0;U:NIL F:S" ) - TEST_LINE( Round(0, 0) , 0 ) - TEST_LINE( Round(0, 2) , 0.00 ) - TEST_LINE( Round(0, -2) , 0 ) - TEST_LINE( Round(0.5, 0) , 1 ) - TEST_LINE( Round(0.5, 1) , 0.5 ) - TEST_LINE( Round(0.5, 2) , 0.50 ) - TEST_LINE( Round(0.5, -1) , 0 ) - TEST_LINE( Round(0.5, -2) , 0 ) - TEST_LINE( Round(0.50, 0) , 1 ) - TEST_LINE( Round(0.50, 1) , 0.5 ) - TEST_LINE( Round(0.50, 2) , 0.50 ) - TEST_LINE( Round(0.50, -1) , 0 ) - TEST_LINE( Round(0.50, -2) , 0 ) - TEST_LINE( Round(0.55, 0) , 1 ) - TEST_LINE( Round(0.55, 1) , 0.6 ) - TEST_LINE( Round(0.55, 2) , 0.55 ) - TEST_LINE( Round(0.55, -1) , 0 ) - TEST_LINE( Round(0.55, -2) , 0 ) - TEST_LINE( Round(0.557, 0) , 1 ) - TEST_LINE( Round(0.557, 1) , 0.6 ) - TEST_LINE( Round(0.557, 2) , 0.56 ) - TEST_LINE( Round(0.557, -1) , 0 ) - TEST_LINE( Round(0.557, -2) , 0 ) - TEST_LINE( Round(50, 0) , 50 ) - TEST_LINE( Round(50, 1) , 50.0 ) - TEST_LINE( Round(50, 2) , 50.00 ) - TEST_LINE( Round(50, -1) , 50 ) - TEST_LINE( Round(50, -2) , 100 ) - TEST_LINE( Round(10.50, 0) , 11 ) - TEST_LINE( Round(10.50, -1) , 10 ) - TEST_LINE( Round(500000, 0) , 500000 ) - TEST_LINE( Round(500000, 1) , 500000.0 ) - TEST_LINE( Round(500000, 2) , 500000.00 ) - TEST_LINE( Round(500000, -1) , 500000 ) - TEST_LINE( Round(500000, -2) , 500000 ) - TEST_LINE( Round(500000, -2) , 500000 ) - TEST_LINE( Round(5000000000, 0) , 5000000000 ) - TEST_LINE( Round(5000000000, 1) , 5000000000.0 ) - TEST_LINE( Round(5000000000, 2) , 5000000000.00 ) - TEST_LINE( Round(5000000000, -1) , 5000000000 ) - TEST_LINE( Round(5000000000, -2) , 5000000000 ) - TEST_LINE( Round(5000000000, -2) , 5000000000 ) - TEST_LINE( Round(5000000000.129, 0) , 5000000000 ) - TEST_LINE( Round(5000000000.129, 1) , 5000000000.1 ) - TEST_LINE( Round(5000000000.129, 2) , 5000000000.13 ) - TEST_LINE( Round(5000000000.129, -1) , 5000000000 ) - TEST_LINE( Round(5000000000.129, -2) , 5000000000 ) - TEST_LINE( Round(5000000000.129, -2) , 5000000000 ) - TEST_LINE( Round(-0.5, 0) , -1 ) - TEST_LINE( Round(-0.5, 1) , -0.5 ) - TEST_LINE( Round(-0.5, 2) , -0.50 ) - TEST_LINE( Round(-0.5, -1) , 0 ) - TEST_LINE( Round(-0.5, -2) , 0 ) - TEST_LINE( Round(-0.50, 0) , -1 ) - TEST_LINE( Round(-0.50, 1) , -0.5 ) - TEST_LINE( Round(-0.50, 2) , -0.50 ) - TEST_LINE( Round(-0.50, -1) , 0 ) - TEST_LINE( Round(-0.50, -2) , 0 ) - TEST_LINE( Round(-0.55, 0) , -1 ) - TEST_LINE( Round(-0.55, 1) , -0.6 ) - TEST_LINE( Round(-0.55, 2) , -0.55 ) - TEST_LINE( Round(-0.55, -1) , 0 ) - TEST_LINE( Round(-0.55, -2) , 0 ) - TEST_LINE( Round(-0.557, 0) , -1 ) - TEST_LINE( Round(-0.557, 1) , -0.6 ) - TEST_LINE( Round(-0.557, 2) , -0.56 ) - TEST_LINE( Round(-0.557, -1) , 0 ) - TEST_LINE( Round(-0.557, -2) , 0 ) - TEST_LINE( Round(-50, 0) , -50 ) - TEST_LINE( Round(-50, 1) , -50.0 ) - TEST_LINE( Round(-50, 2) , -50.00 ) - TEST_LINE( Round(-50, -1) , -50 ) - TEST_LINE( Round(-50, -2) , -100 ) - TEST_LINE( Round(-10.50, 0) , -11 ) - TEST_LINE( Round(-10.50, -1) , -10 ) - TEST_LINE( Round(-500000, 0) , -500000 ) - TEST_LINE( Round(-500000, 1) , -500000.0 ) - TEST_LINE( Round(-500000, 2) , -500000.00 ) - TEST_LINE( Round(-500000, -1) , -500000 ) - TEST_LINE( Round(-500000, -2) , -500000 ) - TEST_LINE( Round(-500000, -2) , -500000 ) - TEST_LINE( Round(-5000000000, 0) , -5000000000 ) - TEST_LINE( Round(-5000000000, 1) , -5000000000.0 ) - TEST_LINE( Round(-5000000000, 2) , -5000000000.00 ) - TEST_LINE( Round(-5000000000, -1) , -5000000000 ) - TEST_LINE( Round(-5000000000, -2) , -5000000000 ) - TEST_LINE( Round(-5000000000, -2) , -5000000000 ) - TEST_LINE( Round(-5000000000.129, 0) , -5000000000 ) - TEST_LINE( Round(-5000000000.129, 1) , -5000000000.1 ) - TEST_LINE( Round(-5000000000.129, 2) , -5000000000.13 ) - TEST_LINE( Round(-5000000000.129, -1) , -5000000000 ) - TEST_LINE( Round(-5000000000.129, -2) , -5000000000 ) - TEST_LINE( Round(-5000000000.129, -2) , -5000000000 ) + HBTEST Round(NIL, 0) IS "E 1 BASE 1094 Argument error (ROUND) OS:0 #:0 A:2:U:NIL;N:0 F:S" + HBTEST Round(0, NIL) IS "E 1 BASE 1094 Argument error (ROUND) OS:0 #:0 A:2:N:0;U:NIL F:S" + HBTEST Round(0, 0) IS 0 + HBTEST Round(0, 2) IS 0.00 + HBTEST Round(0, -2) IS 0 + HBTEST Round(0.5, 0) IS 1 + HBTEST Round(0.5, 1) IS 0.5 + HBTEST Round(0.5, 2) IS 0.50 + HBTEST Round(0.5, -1) IS 0 + HBTEST Round(0.5, -2) IS 0 + HBTEST Round(0.50, 0) IS 1 + HBTEST Round(0.50, 1) IS 0.5 + HBTEST Round(0.50, 2) IS 0.50 + HBTEST Round(0.50, -1) IS 0 + HBTEST Round(0.50, -2) IS 0 + HBTEST Round(0.55, 0) IS 1 + HBTEST Round(0.55, 1) IS 0.6 + HBTEST Round(0.55, 2) IS 0.55 + HBTEST Round(0.55, -1) IS 0 + HBTEST Round(0.55, -2) IS 0 + HBTEST Round(0.557, 0) IS 1 + HBTEST Round(0.557, 1) IS 0.6 + HBTEST Round(0.557, 2) IS 0.56 + HBTEST Round(0.557, -1) IS 0 + HBTEST Round(0.557, -2) IS 0 + HBTEST Round(50, 0) IS 50 + HBTEST Round(50, 1) IS 50.0 + HBTEST Round(50, 2) IS 50.00 + HBTEST Round(50, -1) IS 50 + HBTEST Round(50, -2) IS 100 + HBTEST Round(10.50, 0) IS 11 + HBTEST Round(10.50, -1) IS 10 + HBTEST Round(500000, 0) IS 500000 + HBTEST Round(500000, 1) IS 500000.0 + HBTEST Round(500000, 2) IS 500000.00 + HBTEST Round(500000, -1) IS 500000 + HBTEST Round(500000, -2) IS 500000 + HBTEST Round(500000, -2) IS 500000 + HBTEST Round(5000000000, 0) IS 5000000000 + HBTEST Round(5000000000, 1) IS 5000000000.0 + HBTEST Round(5000000000, 2) IS 5000000000.00 + HBTEST Round(5000000000, -1) IS 5000000000 + HBTEST Round(5000000000, -2) IS 5000000000 + HBTEST Round(5000000000, -2) IS 5000000000 + HBTEST Round(5000000000.129, 0) IS 5000000000 + HBTEST Round(5000000000.129, 1) IS 5000000000.1 + HBTEST Round(5000000000.129, 2) IS 5000000000.13 + HBTEST Round(5000000000.129, -1) IS 5000000000 + HBTEST Round(5000000000.129, -2) IS 5000000000 + HBTEST Round(5000000000.129, -2) IS 5000000000 + HBTEST Round(-0.5, 0) IS -1 + HBTEST Round(-0.5, 1) IS -0.5 + HBTEST Round(-0.5, 2) IS -0.50 + HBTEST Round(-0.5, -1) IS 0 + HBTEST Round(-0.5, -2) IS 0 + HBTEST Round(-0.50, 0) IS -1 + HBTEST Round(-0.50, 1) IS -0.5 + HBTEST Round(-0.50, 2) IS -0.50 + HBTEST Round(-0.50, -1) IS 0 + HBTEST Round(-0.50, -2) IS 0 + HBTEST Round(-0.55, 0) IS -1 + HBTEST Round(-0.55, 1) IS -0.6 + HBTEST Round(-0.55, 2) IS -0.55 + HBTEST Round(-0.55, -1) IS 0 + HBTEST Round(-0.55, -2) IS 0 + HBTEST Round(-0.557, 0) IS -1 + HBTEST Round(-0.557, 1) IS -0.6 + HBTEST Round(-0.557, 2) IS -0.56 + HBTEST Round(-0.557, -1) IS 0 + HBTEST Round(-0.557, -2) IS 0 + HBTEST Round(-50, 0) IS -50 + HBTEST Round(-50, 1) IS -50.0 + HBTEST Round(-50, 2) IS -50.00 + HBTEST Round(-50, -1) IS -50 + HBTEST Round(-50, -2) IS -100 + HBTEST Round(-10.50, 0) IS -11 + HBTEST Round(-10.50, -1) IS -10 + HBTEST Round(-500000, 0) IS -500000 + HBTEST Round(-500000, 1) IS -500000.0 + HBTEST Round(-500000, 2) IS -500000.00 + HBTEST Round(-500000, -1) IS -500000 + HBTEST Round(-500000, -2) IS -500000 + HBTEST Round(-500000, -2) IS -500000 + HBTEST Round(-5000000000, 0) IS -5000000000 + HBTEST Round(-5000000000, 1) IS -5000000000.0 + HBTEST Round(-5000000000, 2) IS -5000000000.00 + HBTEST Round(-5000000000, -1) IS -5000000000 + HBTEST Round(-5000000000, -2) IS -5000000000 + HBTEST Round(-5000000000, -2) IS -5000000000 + HBTEST Round(-5000000000.129, 0) IS -5000000000 + HBTEST Round(-5000000000.129, 1) IS -5000000000.1 + HBTEST Round(-5000000000.129, 2) IS -5000000000.13 + HBTEST Round(-5000000000.129, -1) IS -5000000000 + HBTEST Round(-5000000000.129, -2) IS -5000000000 + HBTEST Round(-5000000000.129, -2) IS -5000000000 /* Int() */ - TEST_LINE( Int( NIL ) , "E 1 BASE 1090 Argument error (INT) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( Int( "A" ) , "E 1 BASE 1090 Argument error (INT) OS:0 #:0 A:1:C:A F:S" ) - TEST_LINE( Int( {} ) , "E 1 BASE 1090 Argument error (INT) OS:0 #:0 A:1:A:{.[0].} F:S" ) - TEST_LINE( Int( 0 ) , 0 ) - TEST_LINE( Int( 0.0 ) , 0 ) - TEST_LINE( Int( 10 ) , 10 ) - TEST_LINE( Int( snIntP ) , 10 ) + HBTEST Int( NIL ) IS "E 1 BASE 1090 Argument error (INT) OS:0 #:0 A:1:U:NIL F:S" + HBTEST Int( "A" ) IS "E 1 BASE 1090 Argument error (INT) OS:0 #:0 A:1:C:A F:S" + HBTEST Int( {} ) IS "E 1 BASE 1090 Argument error (INT) OS:0 #:0 A:1:A:{.[0].} F:S" + HBTEST Int( 0 ) IS 0 + HBTEST Int( 0.0 ) IS 0 + HBTEST Int( 10 ) IS 10 + HBTEST Int( snIntP ) IS 10 #ifdef __HARBOUR__ - TEST_LINE( Int( @snIntP ) , 10 ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1090 Argument error (INT) OS:0 #:0 A:1:U:10 F:S" */ + HBTEST Int( @snIntP ) IS 10 /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1090 Argument error (INT) OS:0 #:0 A:1:U:10 F:S" */ #endif - TEST_LINE( Int( -10 ) , -10 ) - TEST_LINE( Int( 100000 ) , 100000 ) - TEST_LINE( Int( -100000 ) , -100000 ) - TEST_LINE( Int( 10.5 ) , 10 ) - TEST_LINE( Int( -10.5 ) , -10 ) - TEST_LINE( Str(Int(Val("100.290"))) , "100" ) - TEST_LINE( Str(Int(Val(" 100.290"))) , " 100" ) - TEST_LINE( Str(Int(Val(" 100"))) , " 100" ) - TEST_LINE( Int(5000000000.90) , 5000000000 ) - TEST_LINE( Int(-5000000000.90) , -5000000000 ) - TEST_LINE( Int(5000000000) , 5000000000 ) - TEST_LINE( Int(-5000000000) , -5000000000 ) - TEST_LINE( Int(5000000000) / 100000 , 50000 ) - TEST_LINE( Int(-5000000000) / 100000 , -50000 ) + HBTEST Int( -10 ) IS -10 + HBTEST Int( 100000 ) IS 100000 + HBTEST Int( -100000 ) IS -100000 + HBTEST Int( 10.5 ) IS 10 + HBTEST Int( -10.5 ) IS -10 + HBTEST Str(Int(Val("100.290"))) IS "100" + HBTEST Str(Int(Val(" 100.290"))) IS " 100" + HBTEST Str(Int(Val(" 100"))) IS " 100" + HBTEST Int(5000000000.90) IS 5000000000 + HBTEST Int(-5000000000.90) IS -5000000000 + HBTEST Int(5000000000) IS 5000000000 + HBTEST Int(-5000000000) IS -5000000000 + HBTEST Int(5000000000) / 100000 IS 50000 + HBTEST Int(-5000000000) / 100000 IS -50000 /* Min()/Max() */ - TEST_LINE( Max(NIL, NIL) , "E 1 BASE 1093 Argument error (MAX) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) - TEST_LINE( Max(10, NIL) , "E 1 BASE 1093 Argument error (MAX) OS:0 #:0 A:2:N:10;U:NIL F:S" ) - TEST_LINE( Max(hb_SToD("19800101"), 10) , "E 1 BASE 1093 Argument error (MAX) OS:0 #:0 A:2:D:19800101;N:10 F:S" ) - TEST_LINE( Max(hb_SToD("19800101"), hb_SToD("19800101")) , hb_SToD("19800101") ) - TEST_LINE( Max(hb_SToD("19800102"), hb_SToD("19800101")) , hb_SToD("19800102") ) - TEST_LINE( Max(hb_SToD("19800101"), hb_SToD("19800102")) , hb_SToD("19800102") ) - TEST_LINE( Max(snIntP, snLongP) , 100000 ) + HBTEST Max(NIL, NIL) IS "E 1 BASE 1093 Argument error (MAX) OS:0 #:0 A:2:U:NIL;U:NIL F:S" + HBTEST Max(10, NIL) IS "E 1 BASE 1093 Argument error (MAX) OS:0 #:0 A:2:N:10;U:NIL F:S" + HBTEST Max(hb_SToD("19800101"), 10) IS "E 1 BASE 1093 Argument error (MAX) OS:0 #:0 A:2:D:19800101;N:10 F:S" + HBTEST Max(hb_SToD("19800101"), hb_SToD("19800101")) IS hb_SToD("19800101") + HBTEST Max(hb_SToD("19800102"), hb_SToD("19800101")) IS hb_SToD("19800102") + HBTEST Max(hb_SToD("19800101"), hb_SToD("19800102")) IS hb_SToD("19800102") + HBTEST Max(snIntP, snLongP) IS 100000 #ifdef __HARBOUR__ - TEST_LINE( Max(@snIntP, @snLongP) , 100000 ) /* Bug in CA-Cl*pper, it will return: "E 1 BASE 1093 Argument error (MAX) OS:0 #:0 A:2:U:10;U:100000 F:S" */ + HBTEST Max(@snIntP, @snLongP) IS 100000 /* Bug in CA-Cl*pper, it will return: "E 1 BASE 1093 Argument error (MAX) OS:0 #:0 A:2:U:10;U:100000 F:S" */ #endif - TEST_LINE( Min(NIL, NIL) , "E 1 BASE 1092 Argument error (MIN) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) - TEST_LINE( Min(10, NIL) , "E 1 BASE 1092 Argument error (MIN) OS:0 #:0 A:2:N:10;U:NIL F:S" ) - TEST_LINE( Min(hb_SToD("19800101"), 10) , "E 1 BASE 1092 Argument error (MIN) OS:0 #:0 A:2:D:19800101;N:10 F:S" ) - TEST_LINE( Min(hb_SToD("19800101"), hb_SToD("19800101")) , hb_SToD("19800101") ) - TEST_LINE( Min(hb_SToD("19800102"), hb_SToD("19800101")) , hb_SToD("19800101") ) - TEST_LINE( Min(hb_SToD("19800101"), hb_SToD("19800102")) , hb_SToD("19800101") ) - TEST_LINE( Min(snIntP, snLongP) , 10 ) + HBTEST Min(NIL, NIL) IS "E 1 BASE 1092 Argument error (MIN) OS:0 #:0 A:2:U:NIL;U:NIL F:S" + HBTEST Min(10, NIL) IS "E 1 BASE 1092 Argument error (MIN) OS:0 #:0 A:2:N:10;U:NIL F:S" + HBTEST Min(hb_SToD("19800101"), 10) IS "E 1 BASE 1092 Argument error (MIN) OS:0 #:0 A:2:D:19800101;N:10 F:S" + HBTEST Min(hb_SToD("19800101"), hb_SToD("19800101")) IS hb_SToD("19800101") + HBTEST Min(hb_SToD("19800102"), hb_SToD("19800101")) IS hb_SToD("19800101") + HBTEST Min(hb_SToD("19800101"), hb_SToD("19800102")) IS hb_SToD("19800101") + HBTEST Min(snIntP, snLongP) IS 10 #ifdef __HARBOUR__ - TEST_LINE( Min(@snIntP, @snLongP) , 10 ) /* Bug in CA-Cl*pper, it will return: "E 1 BASE 1092 Argument error (MIN) OS:0 #:0 A:2:U:10;U:100000 F:S" */ + HBTEST Min(@snIntP, @snLongP) IS 10 /* Bug in CA-Cl*pper, it will return: "E 1 BASE 1092 Argument error (MIN) OS:0 #:0 A:2:U:10;U:100000 F:S" */ #endif /* Decimals handling */ - TEST_LINE( Str(Max(10, 12) ) , " 12" ) - TEST_LINE( Str(Max(10.50, 10) ) , " 10.50" ) - TEST_LINE( Str(Max(10, 9.50) ) , " 10" ) - TEST_LINE( Str(Max(100000, 10) ) , " 100000" ) - TEST_LINE( Str(Max(20.50, 20.670) ) , " 20.670" ) - TEST_LINE( Str(Max(20.5125, 20.670) ) , " 20.670" ) - TEST_LINE( Str(Min(10, 12) ) , " 10" ) - TEST_LINE( Str(Min(10.50, 10) ) , " 10" ) - TEST_LINE( Str(Min(10, 9.50) ) , " 9.50" ) - TEST_LINE( Str(Min(100000, 10) ) , " 10" ) - TEST_LINE( Str(Min(20.50, 20.670) ) , " 20.50" ) - TEST_LINE( Str(Min(20.5125, 20.670) ) , " 20.5125" ) - TEST_LINE( Str(Val("0x10") ) , " 0" ) - TEST_LINE( Str(Val("0X10") ) , " 0" ) - TEST_LINE( Str(Val("15E2") ) , " 15" ) - TEST_LINE( Str(Val("15E21") ) , " 15" ) - TEST_LINE( Str(Val("15.1A10") ) , "15.1000" ) - TEST_LINE( Str(Val("15.1A1") ) , "15.100" ) - TEST_LINE( Str(Val("A") ) , "0" ) - TEST_LINE( Str(Val("AAA0") ) , " 0" ) - TEST_LINE( Str(Val("AAA2") ) , " 0" ) - TEST_LINE( Str(Val("") ) , " 0" ) - TEST_LINE( Str(Val("0") ) , "0" ) - TEST_LINE( Str(Val(" 0") ) , " 0" ) - TEST_LINE( Str(Val("-0") ) , " 0" ) - TEST_LINE( Str(Val("00") ) , " 0" ) - TEST_LINE( Str(Val("1") ) , "1" ) - TEST_LINE( Str(Val("15") ) , "15" ) - TEST_LINE( Str(Val("200") ) , "200" ) - TEST_LINE( Str(Val(" 200") ) , " 200" ) - TEST_LINE( Str(Val("200 ") ) , " 200" ) - TEST_LINE( Str(Val(" 200 ") ) , " 200" ) - TEST_LINE( Str(Val("-200") ) , "-200" ) - TEST_LINE( Str(Val(" -200") ) , " -200" ) - TEST_LINE( Str(Val("-200 ") ) , " -200" ) - TEST_LINE( Str(Val(" -200 ") ) , " -200" ) - TEST_LINE( Str(Val("15.0") ) , "15.0" ) - TEST_LINE( Str(Val("15.00") ) , "15.00" ) - TEST_LINE( Str(Val("15.000") ) , "15.000" ) - TEST_LINE( Str(Val("15.001 ") ) , "15.0010" ) - TEST_LINE( Str(Val("100000000") ) , "100000000" ) - TEST_LINE( Str(Val("5000000000") ) , "5000000000" ) - TEST_LINE( Str(10 ) , " 10" ) - TEST_LINE( Str(15.0 ) , " 15.0" ) - TEST_LINE( Str(10.1 ) , " 10.1" ) - TEST_LINE( Str(15.00 ) , " 15.00" ) -// TEST_LINE( Str(Log(0) ) , "***********************" ) - TEST_LINE( Str(100.2 * 200.12 ) , " 20052.024" ) - TEST_LINE( Str(100.20 * 200.12 ) , " 20052.0240" ) - TEST_LINE( Str(1000.2 * 200.12 ) , " 200160.024" ) - TEST_LINE( Str(100/1000 ) , " 0.10" ) - TEST_LINE( Str(100/100000 ) , " 0.00" ) - TEST_LINE( Str(10 * 10 ) , " 100" ) - TEST_LINE( Str(100 / 10 ) , " 10" ) - TEST_LINE( Str(100 / 13 ) , " 7.69" ) - TEST_LINE( Str(100.0 / 10 ) , " 10.00" ) - TEST_LINE( Str(100.0 / 10.00 ) , " 10.00" ) - TEST_LINE( Str(100.0 / 10.000 ) , " 10.00" ) - TEST_LINE( Str(100 / 10.00 ) , " 10.00" ) - TEST_LINE( Str(100 / 10.000 ) , " 10.00" ) - TEST_LINE( Str(100.00 / 10.0 ) , " 10.00" ) - TEST_LINE( Str(sdDate - sdDateE ) , " 2445785" ) - TEST_LINE( Str(sdDate - sdDate ) , " 0" ) - TEST_LINE( Str(1234567890 * 1234567890 ) , " 1524157875019052000" ) // real val is 1524157875019052100 + HBTEST Str(Max(10, 12) ) IS " 12" + HBTEST Str(Max(10.50, 10) ) IS " 10.50" + HBTEST Str(Max(10, 9.50) ) IS " 10" + HBTEST Str(Max(100000, 10) ) IS " 100000" + HBTEST Str(Max(20.50, 20.670) ) IS " 20.670" + HBTEST Str(Max(20.5125, 20.670) ) IS " 20.670" + HBTEST Str(Min(10, 12) ) IS " 10" + HBTEST Str(Min(10.50, 10) ) IS " 10" + HBTEST Str(Min(10, 9.50) ) IS " 9.50" + HBTEST Str(Min(100000, 10) ) IS " 10" + HBTEST Str(Min(20.50, 20.670) ) IS " 20.50" + HBTEST Str(Min(20.5125, 20.670) ) IS " 20.5125" + HBTEST Str(Val("0x10") ) IS " 0" + HBTEST Str(Val("0X10") ) IS " 0" + HBTEST Str(Val("15E2") ) IS " 15" + HBTEST Str(Val("15E21") ) IS " 15" + HBTEST Str(Val("15.1A10") ) IS "15.1000" + HBTEST Str(Val("15.1A1") ) IS "15.100" + HBTEST Str(Val("A") ) IS "0" + HBTEST Str(Val("AAA0") ) IS " 0" + HBTEST Str(Val("AAA2") ) IS " 0" + HBTEST Str(Val("") ) IS " 0" + HBTEST Str(Val("0") ) IS "0" + HBTEST Str(Val(" 0") ) IS " 0" + HBTEST Str(Val("-0") ) IS " 0" + HBTEST Str(Val("00") ) IS " 0" + HBTEST Str(Val("1") ) IS "1" + HBTEST Str(Val("15") ) IS "15" + HBTEST Str(Val("200") ) IS "200" + HBTEST Str(Val(" 200") ) IS " 200" + HBTEST Str(Val("200 ") ) IS " 200" + HBTEST Str(Val(" 200 ") ) IS " 200" + HBTEST Str(Val("-200") ) IS "-200" + HBTEST Str(Val(" -200") ) IS " -200" + HBTEST Str(Val("-200 ") ) IS " -200" + HBTEST Str(Val(" -200 ") ) IS " -200" + HBTEST Str(Val("15.0") ) IS "15.0" + HBTEST Str(Val("15.00") ) IS "15.00" + HBTEST Str(Val("15.000") ) IS "15.000" + HBTEST Str(Val("15.001 ") ) IS "15.0010" + HBTEST Str(Val("100000000") ) IS "100000000" + HBTEST Str(Val("5000000000") ) IS "5000000000" + HBTEST Str(10 ) IS " 10" + HBTEST Str(15.0 ) IS " 15.0" + HBTEST Str(10.1 ) IS " 10.1" + HBTEST Str(15.00 ) IS " 15.00" +// HBTEST Str(Log(0) ) IS "***********************" + HBTEST Str(100.2 * 200.12 ) IS " 20052.024" + HBTEST Str(100.20 * 200.12 ) IS " 20052.0240" + HBTEST Str(1000.2 * 200.12 ) IS " 200160.024" + HBTEST Str(100/1000 ) IS " 0.10" + HBTEST Str(100/100000 ) IS " 0.00" + HBTEST Str(10 * 10 ) IS " 100" + HBTEST Str(100 / 10 ) IS " 10" + HBTEST Str(100 / 13 ) IS " 7.69" + HBTEST Str(100.0 / 10 ) IS " 10.00" + HBTEST Str(100.0 / 10.00 ) IS " 10.00" + HBTEST Str(100.0 / 10.000 ) IS " 10.00" + HBTEST Str(100 / 10.00 ) IS " 10.00" + HBTEST Str(100 / 10.000 ) IS " 10.00" + HBTEST Str(100.00 / 10.0 ) IS " 10.00" + HBTEST Str(sdDate - sdDateE ) IS " 2445785" + HBTEST Str(sdDate - sdDate ) IS " 0" + HBTEST Str(1234567890 * 1234567890 ) IS " 1524157875019052000" /* real val is 1524157875019052100 */ /* Mod() */ - TEST_LINE( Mod() , "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) - TEST_LINE( Mod( NIL ) , "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) - TEST_LINE( Mod( 100 ) , "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:N:100;U:NIL F:S" ) - TEST_LINE( Mod( "A", "B" ) , "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:C:A;C:B F:S" ) - TEST_LINE( Mod( "A", 100 ) , "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:C:A;N:100 F:S" ) - TEST_LINE( Mod( 100, "B" ) , "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:N:100;C:B F:S" ) - TEST_LINE( Mod( NIL, NIL ) , "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) - TEST_LINE( Mod( 100, 60, "A" ) , 40.00 ) + HBTEST Mod() IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:U:NIL;U:NIL F:S" + HBTEST Mod( NIL ) IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:U:NIL;U:NIL F:S" + HBTEST Mod( 100 ) IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:N:100;U:NIL F:S" + HBTEST Mod( "A", "B" ) IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:C:A;C:B F:S" + HBTEST Mod( "A", 100 ) IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:C:A;N:100 F:S" + HBTEST Mod( 100, "B" ) IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:N:100;C:B F:S" + HBTEST Mod( NIL, NIL ) IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:U:NIL;U:NIL F:S" + HBTEST Mod( 100, 60, "A" ) IS 40.00 - TEST_LINE( Mod( 1, 0 ) , "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:1;N:0 F:S" ) - TEST_LINE( Mod( 1, NIL ) , "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:N:1;U:NIL F:S" ) - TEST_LINE( Str( Mod( 1, 0 ) ) , "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:1;N:0 F:S" ) - TEST_LINE( Str( Mod( 2, 4 ) ) , " 2.00" ) - TEST_LINE( Str( Mod( 4, 2 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( 4, 2.0 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( 2, 4.0 ) ) , " 2.00" ) - TEST_LINE( Str( Mod( 8, 3 ) ) , " 2.00" ) + HBTEST Mod( 1, 0 ) IS "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:1;N:0 F:S" + HBTEST Mod( 1, NIL ) IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:N:1;U:NIL F:S" + HBTEST Str( Mod( 1, 0 ) ) IS "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:1;N:0 F:S" + HBTEST Str( Mod( 2, 4 ) ) IS " 2.00" + HBTEST Str( Mod( 4, 2 ) ) IS " 0.00" + HBTEST Str( Mod( 4, 2.0 ) ) IS " 0.00" + HBTEST Str( Mod( 2, 4.0 ) ) IS " 2.00" + HBTEST Str( Mod( 8, 3 ) ) IS " 2.00" - TEST_LINE( Str( Mod( 3, 3 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( 3, 2 ) ) , " 1.00" ) - TEST_LINE( Str( Mod( 3, 1 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( 3, 0 ) ) , "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:3;N:0 F:S" ) - TEST_LINE( Str( Mod( 3, -1 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( 3, -2 ) ) , " -1.00" ) - TEST_LINE( Str( Mod( 3, -3 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( -3, 3 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( -3, 2 ) ) , " 1.00" ) - TEST_LINE( Str( Mod( -3, 1 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( -3, 0 ) ) , "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:-3;N:0 F:S" ) - TEST_LINE( Str( Mod( -3, -1 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( -3, -2 ) ) , " -1.00" ) - TEST_LINE( Str( Mod( -3, -3 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( 3, 3 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( 2, 3 ) ) , " 2.00" ) - TEST_LINE( Str( Mod( 1, 3 ) ) , " 1.00" ) - TEST_LINE( Str( Mod( 0, 3 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( -1, 3 ) ) , " 2.00" ) - TEST_LINE( Str( Mod( -2, 3 ) ) , " 1.00" ) - TEST_LINE( Str( Mod( -3, 3 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( 3, -3 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( 2, -3 ) ) , " -1.00" ) - TEST_LINE( Str( Mod( 1, -3 ) ) , " -2.00" ) - TEST_LINE( Str( Mod( 0, -3 ) ) , " 0.00" ) - TEST_LINE( Str( Mod( -1, -3 ) ) , " -1.00" ) - TEST_LINE( Str( Mod( -2, -3 ) ) , " -2.00" ) - TEST_LINE( Str( Mod( -3, -3 ) ) , " 0.00" ) + HBTEST Str( Mod( 3, 3 ) ) IS " 0.00" + HBTEST Str( Mod( 3, 2 ) ) IS " 1.00" + HBTEST Str( Mod( 3, 1 ) ) IS " 0.00" + HBTEST Str( Mod( 3, 0 ) ) IS "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:3;N:0 F:S" + HBTEST Str( Mod( 3, -1 ) ) IS " 0.00" + HBTEST Str( Mod( 3, -2 ) ) IS " -1.00" + HBTEST Str( Mod( 3, -3 ) ) IS " 0.00" + HBTEST Str( Mod( -3, 3 ) ) IS " 0.00" + HBTEST Str( Mod( -3, 2 ) ) IS " 1.00" + HBTEST Str( Mod( -3, 1 ) ) IS " 0.00" + HBTEST Str( Mod( -3, 0 ) ) IS "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:-3;N:0 F:S" + HBTEST Str( Mod( -3, -1 ) ) IS " 0.00" + HBTEST Str( Mod( -3, -2 ) ) IS " -1.00" + HBTEST Str( Mod( -3, -3 ) ) IS " 0.00" + HBTEST Str( Mod( 3, 3 ) ) IS " 0.00" + HBTEST Str( Mod( 2, 3 ) ) IS " 2.00" + HBTEST Str( Mod( 1, 3 ) ) IS " 1.00" + HBTEST Str( Mod( 0, 3 ) ) IS " 0.00" + HBTEST Str( Mod( -1, 3 ) ) IS " 2.00" + HBTEST Str( Mod( -2, 3 ) ) IS " 1.00" + HBTEST Str( Mod( -3, 3 ) ) IS " 0.00" + HBTEST Str( Mod( 3, -3 ) ) IS " 0.00" + HBTEST Str( Mod( 2, -3 ) ) IS " -1.00" + HBTEST Str( Mod( 1, -3 ) ) IS " -2.00" + HBTEST Str( Mod( 0, -3 ) ) IS " 0.00" + HBTEST Str( Mod( -1, -3 ) ) IS " -1.00" + HBTEST Str( Mod( -2, -3 ) ) IS " -2.00" + HBTEST Str( Mod( -3, -3 ) ) IS " 0.00" /* assign and (pre/post)(inc/dec)rementation */ o:=ErrorNew() o:oscode := 1 - TEST_LINE( o:oscode , 1 ) + HBTEST o:oscode IS 1 o:oscode++ - TEST_LINE( o:oscode , 2 ) - TEST_LINE( o:oscode++ , 2 ) + HBTEST o:oscode IS 2 + HBTEST o:oscode++ IS 2 ++o:oscode - TEST_LINE( o:oscode , 4 ) - TEST_LINE( ++o:oscode , 5 ) + HBTEST o:oscode IS 4 + HBTEST ++o:oscode IS 5 o:oscode+=10 - TEST_LINE( o:oscode , 15 ) - TEST_LINE( o:oscode+=200 , 215 ) + HBTEST o:oscode IS 15 + HBTEST o:oscode+=200 IS 215 l := 1 - TEST_LINE( l , 1 ) + HBTEST l IS 1 l++ - TEST_LINE( l , 2 ) - TEST_LINE( l++ , 2 ) + HBTEST l IS 2 + HBTEST l++ IS 2 ++l - TEST_LINE( l , 4 ) - TEST_LINE( ++l , 5 ) + HBTEST l IS 4 + HBTEST ++l IS 5 l+=10 - TEST_LINE( l , 15 ) - TEST_LINE( l+=200 , 215 ) + HBTEST l IS 15 + HBTEST l+=200 IS 215 mnIntN := 1 - TEST_LINE( mnIntN , 1 ) + HBTEST mnIntN IS 1 mnIntN++ - TEST_LINE( mnIntN , 2 ) - TEST_LINE( mnIntN++ , 2 ) + HBTEST mnIntN IS 2 + HBTEST mnIntN++ IS 2 ++mnIntN - TEST_LINE( mnIntN , 4 ) - TEST_LINE( ++mnIntN , 5 ) + HBTEST mnIntN IS 4 + HBTEST ++mnIntN IS 5 mnIntN+=10 - TEST_LINE( mnIntN , 15 ) - TEST_LINE( mnIntN+=200 , 215 ) + HBTEST mnIntN IS 15 + HBTEST mnIntN+=200 IS 215 snIntN := 1 - TEST_LINE( snIntN , 1 ) + HBTEST snIntN IS 1 snIntN++ - TEST_LINE( snIntN , 2 ) - TEST_LINE( snIntN++ , 2 ) + HBTEST snIntN IS 2 + HBTEST snIntN++ IS 2 ++snIntN - TEST_LINE( snIntN , 4 ) - TEST_LINE( ++snIntN , 5 ) + HBTEST snIntN IS 4 + HBTEST ++snIntN IS 5 snIntN+=10 - TEST_LINE( snIntN , 15 ) - TEST_LINE( snIntN+=200 , 215 ) + HBTEST snIntN IS 15 + HBTEST snIntN+=200 IS 215 #ifdef __HARBOUR__ o := ErrorNew() s := "oscode" o:&s := 1 - TEST_LINE( o:&(s) , 1 ) + HBTEST o:&(s) IS 1 o:&s++ - TEST_LINE( o:&(s) , 2 ) - TEST_LINE( o:&(s)++ , 2 ) + HBTEST o:&(s) IS 2 + HBTEST o:&(s)++ IS 2 ++o:&s - TEST_LINE( o:&(s) , 4 ) - TEST_LINE( ++o:&(s) , 5 ) + HBTEST o:&(s) IS 4 + HBTEST ++o:&(s) IS 5 o:&s+=10 - TEST_LINE( o:&(s) , 15 ) - TEST_LINE( o:&(s)+=200 , 215 ) + HBTEST o:&(s) IS 15 + HBTEST o:&(s)+=200 IS 215 WITH OBJECT ErrorNew() :&(s) := 1 - TEST_LINE( :&(s) , 1 ) + HBTEST :&(s) IS 1 :&(s)++ - TEST_LINE( :&(s) , 2 ) - TEST_LINE( :&(s)++ , 2 ) + HBTEST :&(s) IS 2 + HBTEST :&(s)++ IS 2 ++:&(s) - TEST_LINE( :&(s) , 4 ) - TEST_LINE( ++:&(s) , 5 ) + HBTEST :&(s) IS 4 + HBTEST ++:&(s) IS 5 :&(s)+=10 - TEST_LINE( :&(s) , 15 ) - TEST_LINE( :&(s)+=200 , 215 ) + HBTEST :&(s) IS 15 + HBTEST :&(s)+=200 IS 215 ENDWITH WITH OBJECT ErrorNew() :oscode := 1 - TEST_LINE( :oscode , 1 ) + HBTEST :oscode IS 1 :oscode++ - TEST_LINE( :oscode , 2 ) - TEST_LINE( :oscode++ , 2 ) + HBTEST :oscode IS 2 + HBTEST :oscode++ IS 2 ++:oscode - TEST_LINE( :oscode , 4 ) - TEST_LINE( ++:oscode , 5 ) + HBTEST :oscode IS 4 + HBTEST ++:oscode IS 5 :oscode+=10 - TEST_LINE( :oscode , 15 ) - TEST_LINE( :oscode+=200 , 215 ) + HBTEST :oscode IS 15 + HBTEST :oscode+=200 IS 215 ENDWITH &s0 := 1 - TEST_LINE( &s0 , 1 ) + HBTEST &s0 IS 1 &s0++ - TEST_LINE( &s0 , 2 ) - TEST_LINE( &(s0)++ , 2 ) + HBTEST &s0 IS 2 + HBTEST &(s0)++ IS 2 ++&s0 - TEST_LINE( &s0 , 4 ) - TEST_LINE( ++&(s0) , 5 ) + HBTEST &s0 IS 4 + HBTEST ++&(s0) IS 5 &s0+=10 - TEST_LINE( &s0 , 15 ) - TEST_LINE( &(s0)+=200 , 215 ) + HBTEST &s0 IS 15 + HBTEST &(s0)+=200 IS 215 &s1.2 := 1 - TEST_LINE( &s1.2 , 1 ) + HBTEST &s1.2 IS 1 &s1.2++ - TEST_LINE( &s1.2 , 2 ) - TEST_LINE( &s1.2++ , 2 ) + HBTEST &s1.2 IS 2 + HBTEST &s1.2++ IS 2 ++&s1.2 - TEST_LINE( &s1.2 , 4 ) - TEST_LINE( ++&s1.2 , 5 ) + HBTEST &s1.2 IS 4 + HBTEST ++&s1.2 IS 5 &s1.2+=10 - TEST_LINE( &s1.2 , 15 ) - TEST_LINE( &s1.2+=200 , 215 ) + HBTEST &s1.2 IS 15 + HBTEST &s1.2+=200 IS 215 #endif diff --git a/harbour/utils/hbtest/rt_misc.prg b/harbour/utils/hbtest/rt_misc.prg index a6b2e8bda4..8e50a512e4 100644 --- a/harbour/utils/hbtest/rt_misc.prg +++ b/harbour/utils/hbtest/rt_misc.prg @@ -72,337 +72,337 @@ PROCEDURE Main_MISC() /* Some random error object tests taken from the separate test source */ oError := ErrorNew() - TEST_LINE( oError:ClassName() , "ERROR" ) + HBTEST oError:ClassName() IS "ERROR" oError:Description := "Its description" - TEST_LINE( oError:Description , "Its description" ) + HBTEST oError:Description IS "Its description" #ifdef __CLIPPER__ - TEST_LINE( Len( oError ) , 7 ) + HBTEST Len( oError ) IS 7 #endif #ifdef __HARBOUR__ - TEST_LINE( Len( oError ) , 12 ) + HBTEST Len( oError ) IS 12 #endif /* Set()s */ - TEST_LINE( Set( _SET_MARGIN ) , 0 ) - TEST_LINE( Set( _SET_MARGIN , -1 ) , "E 1 BASE 2020 Argument error (SET) OS:0 #:0 A:2:N:25;N:-1 " ) + HBTEST Set( _SET_MARGIN ) IS 0 + HBTEST Set( _SET_MARGIN , -1 ) IS "E 1 BASE 2020 Argument error (SET) OS:0 #:0 A:2:N:25;N:-1 " #ifdef HB_COMPAT_C53 - TEST_LINE( Set( _SET_EVENTMASK ) , 128 ) - TEST_LINE( Set( _SET_VIDEOMODE ) , NIL ) - TEST_LINE( Set( _SET_MBLOCKSIZE ) , 64 ) - TEST_LINE( Set( _SET_MFILEEXT ) , "" ) - TEST_LINE( Set( _SET_STRICTREAD ) , .F. ) - TEST_LINE( Set( _SET_OPTIMIZE ) , .T. ) - TEST_LINE( Set( _SET_AUTOPEN ) , .T. ) - TEST_LINE( Set( _SET_AUTORDER ) , 0 ) - TEST_LINE( Set( _SET_AUTOSHARE ) , 0 ) + HBTEST Set( _SET_EVENTMASK ) IS 128 + HBTEST Set( _SET_VIDEOMODE ) IS NIL + HBTEST Set( _SET_MBLOCKSIZE ) IS 64 + HBTEST Set( _SET_MFILEEXT ) IS "" + HBTEST Set( _SET_STRICTREAD ) IS .F. + HBTEST Set( _SET_OPTIMIZE ) IS .T. + HBTEST Set( _SET_AUTOPEN ) IS .T. + HBTEST Set( _SET_AUTORDER ) IS 0 + HBTEST Set( _SET_AUTOSHARE ) IS 0 - TEST_LINE( Set( _SET_EVENTMASK , -1 ) , "E 1 BASE 2020 Argument error (SET) OS:0 #:0 A:2:N:39;N:-1 " ) - TEST_LINE( Set( _SET_VIDEOMODE , -1 ) , NIL ) - TEST_LINE( Set( _SET_MBLOCKSIZE, -1 ) , "E 1 BASE 2020 Argument error (SET) OS:0 #:0 A:2:N:41;N:-1 " ) - TEST_LINE( Set( _SET_MFILEEXT , {} ) , "" ) - TEST_LINE( Set( _SET_STRICTREAD, {} ) , .F. ) - TEST_LINE( Set( _SET_OPTIMIZE , {} ) , .T. ) - TEST_LINE( Set( _SET_AUTOPEN , {} ) , .T. ) - TEST_LINE( Set( _SET_AUTORDER , -1 ) , "E 1 BASE 2020 Argument error (SET) OS:0 #:0 A:2:N:46;N:-1 " ) - TEST_LINE( Set( _SET_AUTOSHARE , -1 ) , "E 1 BASE 2020 Argument error (SET) OS:0 #:0 A:2:N:47;N:-1 " ) + HBTEST Set( _SET_EVENTMASK , -1 ) IS "E 1 BASE 2020 Argument error (SET) OS:0 #:0 A:2:N:39;N:-1 " + HBTEST Set( _SET_VIDEOMODE , -1 ) IS NIL + HBTEST Set( _SET_MBLOCKSIZE, -1 ) IS "E 1 BASE 2020 Argument error (SET) OS:0 #:0 A:2:N:41;N:-1 " + HBTEST Set( _SET_MFILEEXT , {} ) IS "" + HBTEST Set( _SET_STRICTREAD, {} ) IS .F. + HBTEST Set( _SET_OPTIMIZE , {} ) IS .T. + HBTEST Set( _SET_AUTOPEN , {} ) IS .T. + HBTEST Set( _SET_AUTORDER , -1 ) IS "E 1 BASE 2020 Argument error (SET) OS:0 #:0 A:2:N:46;N:-1 " + HBTEST Set( _SET_AUTOSHARE , -1 ) IS "E 1 BASE 2020 Argument error (SET) OS:0 #:0 A:2:N:47;N:-1 " #endif - TEST_LINE( Set( _SET_ALTFILE, BADFNAME2() ), "E 20 TERM 2013 Create error <" + BADFNAME2() + "> OS:2 #:1 F:DR" ) - TEST_LINE( Set( _SET_PRINTFILE, BADFNAME2() ), "E 20 TERM 2014 Create error <" + BADFNAME2() + "> OS:2 #:1 F:DR" ) - TEST_LINE( Set( _SET_EXTRAFILE, BADFNAME2() ), "E 20 TERM 2015 Create error <" + BADFNAME2() + "> OS:2 #:1 F:DR" ) + HBTEST Set( _SET_ALTFILE, BADFNAME2() ) IS "E 20 TERM 2013 Create error <" + BADFNAME2() + "> OS:2 #:1 F:DR" + HBTEST Set( _SET_PRINTFILE, BADFNAME2() ) IS "E 20 TERM 2014 Create error <" + BADFNAME2() + "> OS:2 #:1 F:DR" + HBTEST Set( _SET_EXTRAFILE, BADFNAME2() ) IS "E 20 TERM 2015 Create error <" + BADFNAME2() + "> OS:2 #:1 F:DR" /* Some color handling tests */ - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "T" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "A" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "B" ), SetColor() ) , "B/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "C" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "D" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "E" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "F" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "G" ), SetColor() ) , "G/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "H" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "I" ), SetColor() ) , "N/W,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "J" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "K" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "L" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "M" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "N" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "O" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "P" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "Q" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "R" ), SetColor() ) , "R/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "S" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "T" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "U" ), SetColor() ) , "U/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "V" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "W" ), SetColor() ) , "W/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "X" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "Y" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "Z" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "0" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "1" ), SetColor() ) , "B/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "2" ), SetColor() ) , "G/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "3" ), SetColor() ) , "BG/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "4" ), SetColor() ) , "R/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "5" ), SetColor() ) , "BR/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "6" ), SetColor() ) , "GR/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "7" ), SetColor() ) , "W/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "8" ), SetColor() ) , "N+/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "9" ), SetColor() ) , "B+/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "10" ), SetColor() ) , "G+/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "11" ), SetColor() ) , "BG+/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "12" ), SetColor() ) , "R+/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "13" ), SetColor() ) , "BR+/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "14" ), SetColor() ) , "GR+/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "15" ), SetColor() ) , "W+/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "16" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "@" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "!" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "-" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "/" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "//" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "," ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( ",," ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "+" ), SetColor() ) , "N+/N,N/N,N/N,N/N,N/N" ) + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "T" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "A" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "B" ), SetColor() ) IS "B/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "C" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "D" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "E" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "F" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "G" ), SetColor() ) IS "G/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "H" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "I" ), SetColor() ) IS "N/W,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "J" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "K" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "L" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "M" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "N" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "O" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "P" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "Q" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "R" ), SetColor() ) IS "R/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "S" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "T" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "U" ), SetColor() ) IS "U/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "V" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "W" ), SetColor() ) IS "W/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "X" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "Y" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "Z" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "0" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "1" ), SetColor() ) IS "B/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "2" ), SetColor() ) IS "G/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "3" ), SetColor() ) IS "BG/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "4" ), SetColor() ) IS "R/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "5" ), SetColor() ) IS "BR/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "6" ), SetColor() ) IS "GR/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "7" ), SetColor() ) IS "W/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "8" ), SetColor() ) IS "N+/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "9" ), SetColor() ) IS "B+/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "10" ), SetColor() ) IS "G+/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "11" ), SetColor() ) IS "BG+/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "12" ), SetColor() ) IS "R+/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "13" ), SetColor() ) IS "BR+/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "14" ), SetColor() ) IS "GR+/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "15" ), SetColor() ) IS "W+/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "16" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "@" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "!" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "-" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "/" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "//" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "," ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( ",," ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "+" ), SetColor() ) IS "N+/N,N/N,N/N,N/N,N/N" #ifdef HB_CLP_STRICT_OFF - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "+*" ), SetColor() ) , "N+/N*,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "*" ), SetColor() ) , "N/N*,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "*+" ), SetColor() ) , "N+/N*,N/N,N/N,N/N,N/N" ) + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "+*" ), SetColor() ) IS "N+/N*,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "*" ), SetColor() ) IS "N/N*,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "*+" ), SetColor() ) IS "N+/N*,N/N,N/N,N/N,N/N" #else - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "+*" ), SetColor() ) , "N*+/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "*" ), SetColor() ) , "N*/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "*+" ), SetColor() ) , "N*+/N,N/N,N/N,N/N,N/N" ) + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "+*" ), SetColor() ) IS "N*+/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "*" ), SetColor() ) IS "N*/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "*+" ), SetColor() ) IS "N*+/N,N/N,N/N,N/N,N/N" #endif - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "BR/W+" ), SetColor() ) , "BR+/W,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "BR/W+" ), SetColor() ) , "BR+/W,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "RB/W+" ), SetColor() ) , "BR+/W,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "0123456789" ), SetColor() ) , "BR/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "1234567890" ), SetColor() ) , "G/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "1" ), SetColor() ) , "B/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "11" ), SetColor() ) , "BG+/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "1111111111" ), SetColor() ) , "W/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "2" ), SetColor() ) , "G/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "22" ), SetColor() ) , "GR/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "2222222222" ), SetColor() ) , "GR+/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ), SetColor() ) , "N/N,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "ABCDEFGHIJKLMNOPQRSTUVW" ), SetColor() ) , "N/U,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "N/W+" ), SetColor() ) , "N+/W,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( '"W"'+"/"+'"R"' ), SetColor() ) , "W/R,N/N,N/N,N/N,N/N" ) - TEST_LINE( ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "'W'"+"/"+"'R'" ), SetColor() ) , "W/R,N/N,N/N,N/N,N/N" ) + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "BR/W+" ), SetColor() ) IS "BR+/W,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "BR/W+" ), SetColor() ) IS "BR+/W,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "RB/W+" ), SetColor() ) IS "BR+/W,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "0123456789" ), SetColor() ) IS "BR/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "1234567890" ), SetColor() ) IS "G/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "1" ), SetColor() ) IS "B/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "11" ), SetColor() ) IS "BG+/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "1111111111" ), SetColor() ) IS "W/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "2" ), SetColor() ) IS "G/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "22" ), SetColor() ) IS "GR/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "2222222222" ), SetColor() ) IS "GR+/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ), SetColor() ) IS "N/N,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "ABCDEFGHIJKLMNOPQRSTUVW" ), SetColor() ) IS "N/U,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "N/W+" ), SetColor() ) IS "N+/W,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( '"W"'+"/"+'"R"' ), SetColor() ) IS "W/R,N/N,N/N,N/N,N/N" + HBTEST ( SetColor( "N/N,N/N,N/N,N/N,N/N" ), SetColor( "'W'"+"/"+"'R'" ), SetColor() ) IS "W/R,N/N,N/N,N/N,N/N" SetColor( "" ) /* Reset color to default */ o := _GET_( tmp, "tmp" ) #ifdef HB_COMPAT_C53 - TEST_LINE( ( o:colorSpec := "T" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "A" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "B" , o:colorSpec ) , "B/N,B/N,B/N,B/N" ) - TEST_LINE( ( o:colorSpec := "C" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "D" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "E" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "F" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "G" , o:colorSpec ) , "G/N,G/N,G/N,G/N" ) - TEST_LINE( ( o:colorSpec := "H" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "I" , o:colorSpec ) , "N/W,N/W,N/W,N/W" ) - TEST_LINE( ( o:colorSpec := "J" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "K" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "L" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "M" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "N" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "O" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "P" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "Q" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "R" , o:colorSpec ) , "R/N,R/N,R/N,R/N" ) - TEST_LINE( ( o:colorSpec := "S" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "T" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "U" , o:colorSpec ) , "U/N,U/N,U/N,U/N" ) - TEST_LINE( ( o:colorSpec := "V" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "W" , o:colorSpec ) , "W/N,W/N,W/N,W/N" ) - TEST_LINE( ( o:colorSpec := "X" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "Y" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "Z" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "0" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "1" , o:colorSpec ) , "B/N,B/N,B/N,B/N" ) - TEST_LINE( ( o:colorSpec := "2" , o:colorSpec ) , "G/N,G/N,G/N,G/N" ) - TEST_LINE( ( o:colorSpec := "3" , o:colorSpec ) , "BG/N,BG/N,BG/N,BG/N" ) - TEST_LINE( ( o:colorSpec := "4" , o:colorSpec ) , "R/N,R/N,R/N,R/N" ) - TEST_LINE( ( o:colorSpec := "5" , o:colorSpec ) , "BR/N,BR/N,BR/N,BR/N" ) - TEST_LINE( ( o:colorSpec := "6" , o:colorSpec ) , "GR/N,GR/N,GR/N,GR/N" ) - TEST_LINE( ( o:colorSpec := "7" , o:colorSpec ) , "W/N,W/N,W/N,W/N" ) - TEST_LINE( ( o:colorSpec := "8" , o:colorSpec ) , "N+/N,N+/N,N+/N,N+/N" ) - TEST_LINE( ( o:colorSpec := "9" , o:colorSpec ) , "B+/N,B+/N,B+/N,B+/N" ) - TEST_LINE( ( o:colorSpec := "10" , o:colorSpec ) , "G+/N,G+/N,G+/N,G+/N" ) - TEST_LINE( ( o:colorSpec := "11" , o:colorSpec ) , "BG+/N,BG+/N,BG+/N,BG+/N") - TEST_LINE( ( o:colorSpec := "12" , o:colorSpec ) , "R+/N,R+/N,R+/N,R+/N" ) - TEST_LINE( ( o:colorSpec := "13" , o:colorSpec ) , "BR+/N,BR+/N,BR+/N,BR+/N") - TEST_LINE( ( o:colorSpec := "14" , o:colorSpec ) , "GR+/N,GR+/N,GR+/N,GR+/N") - TEST_LINE( ( o:colorSpec := "15" , o:colorSpec ) , "W+/N,W+/N,W+/N,W+/N" ) - TEST_LINE( ( o:colorSpec := "16" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "@" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "!" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "-" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "/" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "//" , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "," , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := ",," , o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "+" , o:colorSpec ) , "N+/N,N+/N,N+/N,N+/N" ) + HBTEST ( o:colorSpec := "T" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "A" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "B" , o:colorSpec ) IS "B/N,B/N,B/N,B/N" + HBTEST ( o:colorSpec := "C" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "D" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "E" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "F" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "G" , o:colorSpec ) IS "G/N,G/N,G/N,G/N" + HBTEST ( o:colorSpec := "H" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "I" , o:colorSpec ) IS "N/W,N/W,N/W,N/W" + HBTEST ( o:colorSpec := "J" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "K" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "L" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "M" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "N" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "O" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "P" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "Q" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "R" , o:colorSpec ) IS "R/N,R/N,R/N,R/N" + HBTEST ( o:colorSpec := "S" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "T" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "U" , o:colorSpec ) IS "U/N,U/N,U/N,U/N" + HBTEST ( o:colorSpec := "V" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "W" , o:colorSpec ) IS "W/N,W/N,W/N,W/N" + HBTEST ( o:colorSpec := "X" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "Y" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "Z" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "0" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "1" , o:colorSpec ) IS "B/N,B/N,B/N,B/N" + HBTEST ( o:colorSpec := "2" , o:colorSpec ) IS "G/N,G/N,G/N,G/N" + HBTEST ( o:colorSpec := "3" , o:colorSpec ) IS "BG/N,BG/N,BG/N,BG/N" + HBTEST ( o:colorSpec := "4" , o:colorSpec ) IS "R/N,R/N,R/N,R/N" + HBTEST ( o:colorSpec := "5" , o:colorSpec ) IS "BR/N,BR/N,BR/N,BR/N" + HBTEST ( o:colorSpec := "6" , o:colorSpec ) IS "GR/N,GR/N,GR/N,GR/N" + HBTEST ( o:colorSpec := "7" , o:colorSpec ) IS "W/N,W/N,W/N,W/N" + HBTEST ( o:colorSpec := "8" , o:colorSpec ) IS "N+/N,N+/N,N+/N,N+/N" + HBTEST ( o:colorSpec := "9" , o:colorSpec ) IS "B+/N,B+/N,B+/N,B+/N" + HBTEST ( o:colorSpec := "10" , o:colorSpec ) IS "G+/N,G+/N,G+/N,G+/N" + HBTEST ( o:colorSpec := "11" , o:colorSpec ) IS "BG+/N,BG+/N,BG+/N,BG+/N" + HBTEST ( o:colorSpec := "12" , o:colorSpec ) IS "R+/N,R+/N,R+/N,R+/N" + HBTEST ( o:colorSpec := "13" , o:colorSpec ) IS "BR+/N,BR+/N,BR+/N,BR+/N" + HBTEST ( o:colorSpec := "14" , o:colorSpec ) IS "GR+/N,GR+/N,GR+/N,GR+/N" + HBTEST ( o:colorSpec := "15" , o:colorSpec ) IS "W+/N,W+/N,W+/N,W+/N" + HBTEST ( o:colorSpec := "16" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "@" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "!" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "-" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "/" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "//" , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "," , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := ",," , o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "+" , o:colorSpec ) IS "N+/N,N+/N,N+/N,N+/N" #ifdef HB_CLP_STRICT_OFF - TEST_LINE( ( o:colorSpec := "+*" , o:colorSpec ) , "N+/N*,N+/N*,N+/N*,N+/N*") - TEST_LINE( ( o:colorSpec := "*" , o:colorSpec ) , "N/N*,N/N*,N/N*,N/N*" ) - TEST_LINE( ( o:colorSpec := "*+" , o:colorSpec ) , "N+/N*,N+/N*,N+/N*,N+/N*") + HBTEST ( o:colorSpec := "+*" , o:colorSpec ) IS "N+/N*,N+/N*,N+/N*,N+/N*" + HBTEST ( o:colorSpec := "*" , o:colorSpec ) IS "N/N*,N/N*,N/N*,N/N*" + HBTEST ( o:colorSpec := "*+" , o:colorSpec ) IS "N+/N*,N+/N*,N+/N*,N+/N*" #else - TEST_LINE( ( o:colorSpec := "+*" , o:colorSpec ) , "N*+/N,N*+/N,N*+/N,N*+/N") - TEST_LINE( ( o:colorSpec := "*" , o:colorSpec ) , "N*/N,N*/N,N*/N,N*/N" ) - TEST_LINE( ( o:colorSpec := "*+" , o:colorSpec ) , "N*+/N,N*+/N,N*+/N,N*+/N") + HBTEST ( o:colorSpec := "+*" , o:colorSpec ) IS "N*+/N,N*+/N,N*+/N,N*+/N" + HBTEST ( o:colorSpec := "*" , o:colorSpec ) IS "N*/N,N*/N,N*/N,N*/N" + HBTEST ( o:colorSpec := "*+" , o:colorSpec ) IS "N*+/N,N*+/N,N*+/N,N*+/N" #endif - TEST_LINE( ( o:colorSpec := "BR/W+" , o:colorSpec ) , "BR+/W,BR+/W,BR+/W,BR+/W") - TEST_LINE( ( o:colorSpec := "BR/W+" , o:colorSpec ) , "BR+/W,BR+/W,BR+/W,BR+/W") - TEST_LINE( ( o:colorSpec := "RB/W+" , o:colorSpec ) , "BR+/W,BR+/W,BR+/W,BR+/W") - TEST_LINE( ( o:colorSpec := "0123456789" , o:colorSpec ) , "BR/N,BR/N,BR/N,BR/N" ) - TEST_LINE( ( o:colorSpec := "1234567890" , o:colorSpec ) , "G/N,G/N,G/N,G/N" ) - TEST_LINE( ( o:colorSpec := "1" , o:colorSpec ) , "B/N,B/N,B/N,B/N" ) - TEST_LINE( ( o:colorSpec := "11" , o:colorSpec ) , "BG+/N,BG+/N,BG+/N,BG+/N") - TEST_LINE( ( o:colorSpec := "1111111111" , o:colorSpec ) , "W/N,W/N,W/N,W/N" ) - TEST_LINE( ( o:colorSpec := "2" , o:colorSpec ) , "G/N,G/N,G/N,G/N" ) - TEST_LINE( ( o:colorSpec := "22" , o:colorSpec ) , "GR/N,GR/N,GR/N,GR/N" ) - TEST_LINE( ( o:colorSpec := "2222222222" , o:colorSpec ) , "GR+/N,GR+/N,GR+/N,GR+/N") - TEST_LINE( ( o:colorSpec := "ABCDEFGHIJKLMNOPQRSTUVWXYZ", o:colorSpec ) , "N/N,N/N,N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "ABCDEFGHIJKLMNOPQRSTUVW" , o:colorSpec ) , "N/U,N/U,N/U,N/U" ) - TEST_LINE( ( o:colorSpec := "N/W+" , o:colorSpec ) , "N+/W,N+/W,N+/W,N+/W" ) - TEST_LINE( ( o:colorSpec := '"W"'+"/"+'"R"' , o:colorSpec ) , "W/R,W/R,W/R,W/R" ) - TEST_LINE( ( o:colorSpec := "'W'"+"/"+"'R'" , o:colorSpec ) , "W/R,W/R,W/R,W/R" ) + HBTEST ( o:colorSpec := "BR/W+" , o:colorSpec ) IS "BR+/W,BR+/W,BR+/W,BR+/W" + HBTEST ( o:colorSpec := "BR/W+" , o:colorSpec ) IS "BR+/W,BR+/W,BR+/W,BR+/W" + HBTEST ( o:colorSpec := "RB/W+" , o:colorSpec ) IS "BR+/W,BR+/W,BR+/W,BR+/W" + HBTEST ( o:colorSpec := "0123456789" , o:colorSpec ) IS "BR/N,BR/N,BR/N,BR/N" + HBTEST ( o:colorSpec := "1234567890" , o:colorSpec ) IS "G/N,G/N,G/N,G/N" + HBTEST ( o:colorSpec := "1" , o:colorSpec ) IS "B/N,B/N,B/N,B/N" + HBTEST ( o:colorSpec := "11" , o:colorSpec ) IS "BG+/N,BG+/N,BG+/N,BG+/N" + HBTEST ( o:colorSpec := "1111111111" , o:colorSpec ) IS "W/N,W/N,W/N,W/N" + HBTEST ( o:colorSpec := "2" , o:colorSpec ) IS "G/N,G/N,G/N,G/N" + HBTEST ( o:colorSpec := "22" , o:colorSpec ) IS "GR/N,GR/N,GR/N,GR/N" + HBTEST ( o:colorSpec := "2222222222" , o:colorSpec ) IS "GR+/N,GR+/N,GR+/N,GR+/N" + HBTEST ( o:colorSpec := "ABCDEFGHIJKLMNOPQRSTUVWXYZ", o:colorSpec ) IS "N/N,N/N,N/N,N/N" + HBTEST ( o:colorSpec := "ABCDEFGHIJKLMNOPQRSTUVW" , o:colorSpec ) IS "N/U,N/U,N/U,N/U" + HBTEST ( o:colorSpec := "N/W+" , o:colorSpec ) IS "N+/W,N+/W,N+/W,N+/W" + HBTEST ( o:colorSpec := '"W"'+"/"+'"R"' , o:colorSpec ) IS "W/R,W/R,W/R,W/R" + HBTEST ( o:colorSpec := "'W'"+"/"+"'R'" , o:colorSpec ) IS "W/R,W/R,W/R,W/R" #else - TEST_LINE( ( o:colorSpec := "T" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "A" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "B" , o:colorSpec ) , "B/N,B/N" ) - TEST_LINE( ( o:colorSpec := "C" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "D" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "E" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "F" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "G" , o:colorSpec ) , "G/N,G/N" ) - TEST_LINE( ( o:colorSpec := "H" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "I" , o:colorSpec ) , "N/W,N/W" ) - TEST_LINE( ( o:colorSpec := "J" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "K" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "L" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "M" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "N" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "O" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "P" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "Q" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "R" , o:colorSpec ) , "R/N,R/N" ) - TEST_LINE( ( o:colorSpec := "S" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "T" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "U" , o:colorSpec ) , "U/N,U/N" ) - TEST_LINE( ( o:colorSpec := "V" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "W" , o:colorSpec ) , "W/N,W/N" ) - TEST_LINE( ( o:colorSpec := "X" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "Y" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "Z" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "0" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "1" , o:colorSpec ) , "B/N,B/N" ) - TEST_LINE( ( o:colorSpec := "2" , o:colorSpec ) , "G/N,G/N" ) - TEST_LINE( ( o:colorSpec := "3" , o:colorSpec ) , "BG/N,BG/N" ) - TEST_LINE( ( o:colorSpec := "4" , o:colorSpec ) , "R/N,R/N" ) - TEST_LINE( ( o:colorSpec := "5" , o:colorSpec ) , "BR/N,BR/N" ) - TEST_LINE( ( o:colorSpec := "6" , o:colorSpec ) , "GR/N,GR/N" ) - TEST_LINE( ( o:colorSpec := "7" , o:colorSpec ) , "W/N,W/N" ) - TEST_LINE( ( o:colorSpec := "8" , o:colorSpec ) , "N+/N,N+/N" ) - TEST_LINE( ( o:colorSpec := "9" , o:colorSpec ) , "B+/N,B+/N" ) - TEST_LINE( ( o:colorSpec := "10" , o:colorSpec ) , "G+/N,G+/N" ) - TEST_LINE( ( o:colorSpec := "11" , o:colorSpec ) , "BG+/N,BG+/N" ) - TEST_LINE( ( o:colorSpec := "12" , o:colorSpec ) , "R+/N,R+/N" ) - TEST_LINE( ( o:colorSpec := "13" , o:colorSpec ) , "BR+/N,BR+/N" ) - TEST_LINE( ( o:colorSpec := "14" , o:colorSpec ) , "GR+/N,GR+/N" ) - TEST_LINE( ( o:colorSpec := "15" , o:colorSpec ) , "W+/N,W+/N" ) - TEST_LINE( ( o:colorSpec := "16" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "@" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "!" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "-" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "/" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "//" , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "," , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := ",," , o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "+" , o:colorSpec ) , "N+/N,N+/N" ) + HBTEST ( o:colorSpec := "T" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "A" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "B" , o:colorSpec ) IS "B/N,B/N" + HBTEST ( o:colorSpec := "C" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "D" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "E" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "F" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "G" , o:colorSpec ) IS "G/N,G/N" + HBTEST ( o:colorSpec := "H" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "I" , o:colorSpec ) IS "N/W,N/W" + HBTEST ( o:colorSpec := "J" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "K" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "L" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "M" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "N" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "O" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "P" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "Q" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "R" , o:colorSpec ) IS "R/N,R/N" + HBTEST ( o:colorSpec := "S" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "T" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "U" , o:colorSpec ) IS "U/N,U/N" + HBTEST ( o:colorSpec := "V" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "W" , o:colorSpec ) IS "W/N,W/N" + HBTEST ( o:colorSpec := "X" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "Y" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "Z" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "0" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "1" , o:colorSpec ) IS "B/N,B/N" + HBTEST ( o:colorSpec := "2" , o:colorSpec ) IS "G/N,G/N" + HBTEST ( o:colorSpec := "3" , o:colorSpec ) IS "BG/N,BG/N" + HBTEST ( o:colorSpec := "4" , o:colorSpec ) IS "R/N,R/N" + HBTEST ( o:colorSpec := "5" , o:colorSpec ) IS "BR/N,BR/N" + HBTEST ( o:colorSpec := "6" , o:colorSpec ) IS "GR/N,GR/N" + HBTEST ( o:colorSpec := "7" , o:colorSpec ) IS "W/N,W/N" + HBTEST ( o:colorSpec := "8" , o:colorSpec ) IS "N+/N,N+/N" + HBTEST ( o:colorSpec := "9" , o:colorSpec ) IS "B+/N,B+/N" + HBTEST ( o:colorSpec := "10" , o:colorSpec ) IS "G+/N,G+/N" + HBTEST ( o:colorSpec := "11" , o:colorSpec ) IS "BG+/N,BG+/N" + HBTEST ( o:colorSpec := "12" , o:colorSpec ) IS "R+/N,R+/N" + HBTEST ( o:colorSpec := "13" , o:colorSpec ) IS "BR+/N,BR+/N" + HBTEST ( o:colorSpec := "14" , o:colorSpec ) IS "GR+/N,GR+/N" + HBTEST ( o:colorSpec := "15" , o:colorSpec ) IS "W+/N,W+/N" + HBTEST ( o:colorSpec := "16" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "@" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "!" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "-" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "/" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "//" , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "," , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := ",," , o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "+" , o:colorSpec ) IS "N+/N,N+/N" #ifdef HB_CLP_STRICT_OFF - TEST_LINE( ( o:colorSpec := "+*" , o:colorSpec ) , "N+/N*,N+/N*" ) - TEST_LINE( ( o:colorSpec := "*" , o:colorSpec ) , "N/N*,N/N*" ) - TEST_LINE( ( o:colorSpec := "*+" , o:colorSpec ) , "N+/N*,N+/N*" ) + HBTEST ( o:colorSpec := "+*" , o:colorSpec ) IS "N+/N*,N+/N*" + HBTEST ( o:colorSpec := "*" , o:colorSpec ) IS "N/N*,N/N*" + HBTEST ( o:colorSpec := "*+" , o:colorSpec ) IS "N+/N*,N+/N*" #else - TEST_LINE( ( o:colorSpec := "+*" , o:colorSpec ) , "N*+/N,N*+/N" ) - TEST_LINE( ( o:colorSpec := "*" , o:colorSpec ) , "N*/N,N*/N" ) - TEST_LINE( ( o:colorSpec := "*+" , o:colorSpec ) , "N*+/N,N*+/N" ) + HBTEST ( o:colorSpec := "+*" , o:colorSpec ) IS "N*+/N,N*+/N" + HBTEST ( o:colorSpec := "*" , o:colorSpec ) IS "N*/N,N*/N" + HBTEST ( o:colorSpec := "*+" , o:colorSpec ) IS "N*+/N,N*+/N" #endif - TEST_LINE( ( o:colorSpec := "BR/W+" , o:colorSpec ) , "BR+/W,BR+/W" ) - TEST_LINE( ( o:colorSpec := "BR/W+" , o:colorSpec ) , "BR+/W,BR+/W" ) - TEST_LINE( ( o:colorSpec := "RB/W+" , o:colorSpec ) , "BR+/W,BR+/W" ) - TEST_LINE( ( o:colorSpec := "0123456789" , o:colorSpec ) , "BR/N,BR/N" ) - TEST_LINE( ( o:colorSpec := "1234567890" , o:colorSpec ) , "G/N,G/N" ) - TEST_LINE( ( o:colorSpec := "1" , o:colorSpec ) , "B/N,B/N" ) - TEST_LINE( ( o:colorSpec := "11" , o:colorSpec ) , "BG+/N,BG+/N" ) - TEST_LINE( ( o:colorSpec := "1111111111" , o:colorSpec ) , "W/N,W/N" ) - TEST_LINE( ( o:colorSpec := "2" , o:colorSpec ) , "G/N,G/N" ) - TEST_LINE( ( o:colorSpec := "22" , o:colorSpec ) , "GR/N,GR/N" ) - TEST_LINE( ( o:colorSpec := "2222222222" , o:colorSpec ) , "GR+/N,GR+/N" ) - TEST_LINE( ( o:colorSpec := "ABCDEFGHIJKLMNOPQRSTUVWXYZ", o:colorSpec ) , "N/N,N/N" ) - TEST_LINE( ( o:colorSpec := "ABCDEFGHIJKLMNOPQRSTUVW" , o:colorSpec ) , "N/U,N/U" ) - TEST_LINE( ( o:colorSpec := "N/W+" , o:colorSpec ) , "N+/W,N+/W" ) - TEST_LINE( ( o:colorSpec := '"W"'+"/"+'"R"' , o:colorSpec ) , "W/R,W/R" ) - TEST_LINE( ( o:colorSpec := "'W'"+"/"+"'R'" , o:colorSpec ) , "W/R,W/R" ) + HBTEST ( o:colorSpec := "BR/W+" , o:colorSpec ) IS "BR+/W,BR+/W" + HBTEST ( o:colorSpec := "BR/W+" , o:colorSpec ) IS "BR+/W,BR+/W" + HBTEST ( o:colorSpec := "RB/W+" , o:colorSpec ) IS "BR+/W,BR+/W" + HBTEST ( o:colorSpec := "0123456789" , o:colorSpec ) IS "BR/N,BR/N" + HBTEST ( o:colorSpec := "1234567890" , o:colorSpec ) IS "G/N,G/N" + HBTEST ( o:colorSpec := "1" , o:colorSpec ) IS "B/N,B/N" + HBTEST ( o:colorSpec := "11" , o:colorSpec ) IS "BG+/N,BG+/N" + HBTEST ( o:colorSpec := "1111111111" , o:colorSpec ) IS "W/N,W/N" + HBTEST ( o:colorSpec := "2" , o:colorSpec ) IS "G/N,G/N" + HBTEST ( o:colorSpec := "22" , o:colorSpec ) IS "GR/N,GR/N" + HBTEST ( o:colorSpec := "2222222222" , o:colorSpec ) IS "GR+/N,GR+/N" + HBTEST ( o:colorSpec := "ABCDEFGHIJKLMNOPQRSTUVWXYZ", o:colorSpec ) IS "N/N,N/N" + HBTEST ( o:colorSpec := "ABCDEFGHIJKLMNOPQRSTUVW" , o:colorSpec ) IS "N/U,N/U" + HBTEST ( o:colorSpec := "N/W+" , o:colorSpec ) IS "N+/W,N+/W" + HBTEST ( o:colorSpec := '"W"'+"/"+'"R"' , o:colorSpec ) IS "W/R,W/R" + HBTEST ( o:colorSpec := "'W'"+"/"+"'R'" , o:colorSpec ) IS "W/R,W/R" #endif /* "Samples" function tests (AMPM(), Days(), ElapTime(), ... ) */ - TEST_LINE( AMPM( "" ) , "12 am" ) - TEST_LINE( AMPM( "HELLO" ) , "12LLO am" ) - TEST_LINE( AMPM( " 0:23:45" ) , "12:23:45 am" ) - TEST_LINE( AMPM( "00:23:45" ) , "12:23:45 am" ) - TEST_LINE( AMPM( " 5:23:45" ) , " 5:23:45 am" ) - TEST_LINE( AMPM( "05:23:45" ) , "05:23:45 am" ) - TEST_LINE( AMPM( "12:23:45" ) , "12:23:45 pm" ) - TEST_LINE( AMPM( "20:23:45" ) , " 8:23:45 pm" ) - TEST_LINE( AMPM( "24:23:45" ) , "12:23:45 am" ) - TEST_LINE( AMPM( "25:23:45" ) , "13:23:45 pm" ) - TEST_LINE( AMPM( "2" ) , "2 am" ) - TEST_LINE( AMPM( "02:23" ) , "02:23 am" ) - TEST_LINE( AMPM( "02:23:45.10" ) , "02:23:45.10 am" ) + HBTEST AMPM( "" ) IS "12 am" + HBTEST AMPM( "HELLO" ) IS "12LLO am" + HBTEST AMPM( " 0:23:45" ) IS "12:23:45 am" + HBTEST AMPM( "00:23:45" ) IS "12:23:45 am" + HBTEST AMPM( " 5:23:45" ) IS " 5:23:45 am" + HBTEST AMPM( "05:23:45" ) IS "05:23:45 am" + HBTEST AMPM( "12:23:45" ) IS "12:23:45 pm" + HBTEST AMPM( "20:23:45" ) IS " 8:23:45 pm" + HBTEST AMPM( "24:23:45" ) IS "12:23:45 am" + HBTEST AMPM( "25:23:45" ) IS "13:23:45 pm" + HBTEST AMPM( "2" ) IS "2 am" + HBTEST AMPM( "02:23" ) IS "02:23 am" + HBTEST AMPM( "02:23:45.10" ) IS "02:23:45.10 am" - TEST_LINE( Days( 100000 ) , 1 ) + HBTEST Days( 100000 ) IS 1 - TEST_LINE( ElapTime("23:12:34","12:34:57") , "13:22:23" ) - TEST_LINE( ElapTime("12:34:57","23:12:34") , "10:37:37" ) + HBTEST ElapTime("23:12:34","12:34:57") IS "13:22:23" + HBTEST ElapTime("12:34:57","23:12:34") IS "10:37:37" - TEST_LINE( LenNum( 10 ) , 2 ) - TEST_LINE( LenNum( 10.9 ) , 4 ) - TEST_LINE( LenNum( 10.90 ) , 5 ) + HBTEST LenNum( 10 ) IS 2 + HBTEST LenNum( 10.9 ) IS 4 + HBTEST LenNum( 10.90 ) IS 5 - TEST_LINE( Secs("23:12:34") , 83554 ) - TEST_LINE( Secs("12:34:57") , 45297 ) + HBTEST Secs("23:12:34") IS 83554 + HBTEST Secs("12:34:57") IS 45297 - TEST_LINE( TString(1000) , "00:16:40" ) + HBTEST TString(1000) IS "00:16:40" #ifndef __XPP__ - TEST_LINE( SoundEx() , "0000" ) - TEST_LINE( SoundEx( 10 ) , "0000" ) - TEST_LINE( SoundEx( @scString ) , "H400" ) - TEST_LINE( SoundEx( "" ) , "0000" ) - TEST_LINE( SoundEx( "Hm" ) , "H500" ) - TEST_LINE( SoundEx( "Smith" ) , "S530" ) - TEST_LINE( SoundEx( "Harbour" ) , "H616" ) - TEST_LINE( SoundEx( "HARBOUR" ) , "H616" ) - TEST_LINE( SoundEx( "Harpour" ) , "H616" ) - TEST_LINE( SoundEx( "Hello" ) , "H400" ) - TEST_LINE( SoundEx( "Aardwaark" ) , "A636" ) - TEST_LINE( SoundEx( "Ardwark" ) , "A636" ) - TEST_LINE( SoundEx( "Bold" ) , "B430" ) - TEST_LINE( SoundEx( "Cold" ) , "C430" ) - TEST_LINE( SoundEx( "Colt" ) , "C430" ) - TEST_LINE( SoundEx( "C"+Chr(0)+"olt" ) , "C430" ) - TEST_LINE( SoundEx( "µ A‚" ) , "A000" ) - TEST_LINE( SoundEx( "12345" ) , "0000" ) + HBTEST SoundEx() IS "0000" + HBTEST SoundEx( 10 ) IS "0000" + HBTEST SoundEx( @scString ) IS "H400" + HBTEST SoundEx( "" ) IS "0000" + HBTEST SoundEx( "Hm" ) IS "H500" + HBTEST SoundEx( "Smith" ) IS "S530" + HBTEST SoundEx( "Harbour" ) IS "H616" + HBTEST SoundEx( "HARBOUR" ) IS "H616" + HBTEST SoundEx( "Harpour" ) IS "H616" + HBTEST SoundEx( "Hello" ) IS "H400" + HBTEST SoundEx( "Aardwaark" ) IS "A636" + HBTEST SoundEx( "Ardwark" ) IS "A636" + HBTEST SoundEx( "Bold" ) IS "B430" + HBTEST SoundEx( "Cold" ) IS "C430" + HBTEST SoundEx( "Colt" ) IS "C430" + HBTEST SoundEx( "C"+Chr(0)+"olt" ) IS "C430" + HBTEST SoundEx( "µ A‚" ) IS "A000" + HBTEST SoundEx( "12345" ) IS "0000" #endif /* NATION functions (do not exist in 5.2e US) */ @@ -419,149 +419,149 @@ PROCEDURE Main_MISC() #endif #ifndef __XPP__ - TEST_LINE( NationMsg() , "Invalid argument" ) + HBTEST NationMsg() IS "Invalid argument" #endif - TEST_LINE( NationMsg("A") , "" ) - TEST_LINE( NationMsg(-1) , "" ) /* CA-Cl*pper bug: 5.3 may return trash. */ - TEST_LINE( NationMsg(0) , "" ) - TEST_LINE( NationMsg(1) , "Database Files # Records Last Update Size" ) - TEST_LINE( NationMsg(2) , "Do you want more samples?" ) - TEST_LINE( NationMsg(3) , "Page No." ) - TEST_LINE( NationMsg(4) , "** Subtotal **" ) - TEST_LINE( NationMsg(5) , "* Subsubtotal *" ) - TEST_LINE( NationMsg(6) , "*** Total ***" ) - TEST_LINE( NationMsg(7) , "Ins" ) - TEST_LINE( NationMsg(8) , " " ) - TEST_LINE( NationMsg(9) , "Invalid date" ) - TEST_LINE( NationMsg(10) , "Range: " ) - TEST_LINE( NationMsg(11) , " - " ) - TEST_LINE( NationMsg(12) , "Y/N" ) - TEST_LINE( NationMsg(13) , "INVALID EXPRESSION" ) - TEST_LINE( NationMsg(14) , "" ) /* Bug in CA-Cl*pper 5.3a/b, it will return "ATSORT v1.3i x19 06/Mar/95" */ + HBTEST NationMsg("A") IS "" + HBTEST NationMsg(-1) IS "" /* CA-Cl*pper bug: 5.3 may return trash. */ + HBTEST NationMsg(0) IS "" + HBTEST NationMsg(1) IS "Database Files # Records Last Update Size" + HBTEST NationMsg(2) IS "Do you want more samples?" + HBTEST NationMsg(3) IS "Page No." + HBTEST NationMsg(4) IS "** Subtotal **" + HBTEST NationMsg(5) IS "* Subsubtotal *" + HBTEST NationMsg(6) IS "*** Total ***" + HBTEST NationMsg(7) IS "Ins" + HBTEST NationMsg(8) IS " " + HBTEST NationMsg(9) IS "Invalid date" + HBTEST NationMsg(10) IS "Range: " + HBTEST NationMsg(11) IS " - " + HBTEST NationMsg(12) IS "Y/N" + HBTEST NationMsg(13) IS "INVALID EXPRESSION" + HBTEST NationMsg(14) IS "" /* Bug in CA-Cl*pper 5.3a/b, it will return "ATSORT v1.3i x19 06/Mar/95" */ #ifndef __CLIPPER__ /* Causes GPF in CA-Cl*pper (5.2e International, 5.3b) */ - TEST_LINE( NationMsg(200) , "" ) /* Bug in CA-Cl*pper, it will return "74?" or other trash */ + HBTEST NationMsg(200) IS "" /* Bug in CA-Cl*pper, it will return "74?" or other trash */ #endif #ifndef __XPP__ /* These will cause a GPF in CA-Cl*pper (5.2e International, 5.3b) */ #ifndef __CLIPPER__ - TEST_LINE( IsAffirm() , .F. ) - TEST_LINE( IsAffirm(.F.) , .F. ) - TEST_LINE( IsAffirm(.T.) , .F. ) - TEST_LINE( IsAffirm(0) , .F. ) - TEST_LINE( IsAffirm(1) , .F. ) + HBTEST IsAffirm() IS .F. + HBTEST IsAffirm(.F.) IS .F. + HBTEST IsAffirm(.T.) IS .F. + HBTEST IsAffirm(0) IS .F. + HBTEST IsAffirm(1) IS .F. #endif - TEST_LINE( IsAffirm("") , .F. ) - TEST_LINE( IsAffirm("I") , .F. ) - TEST_LINE( IsAffirm("y") , .T. ) - TEST_LINE( IsAffirm("Y") , .T. ) - TEST_LINE( IsAffirm("yes") , .T. ) - TEST_LINE( IsAffirm("YES") , .T. ) - TEST_LINE( IsAffirm("n") , .F. ) - TEST_LINE( IsAffirm("N") , .F. ) - TEST_LINE( IsAffirm("no") , .F. ) - TEST_LINE( IsAffirm("NO") , .F. ) + HBTEST IsAffirm("") IS .F. + HBTEST IsAffirm("I") IS .F. + HBTEST IsAffirm("y") IS .T. + HBTEST IsAffirm("Y") IS .T. + HBTEST IsAffirm("yes") IS .T. + HBTEST IsAffirm("YES") IS .T. + HBTEST IsAffirm("n") IS .F. + HBTEST IsAffirm("N") IS .F. + HBTEST IsAffirm("no") IS .F. + HBTEST IsAffirm("NO") IS .F. /* These will cause a GPF in CA-Cl*pper (5.2e International, 5.3b) */ #ifndef __CLIPPER__ - TEST_LINE( IsNegative() , .F. ) - TEST_LINE( IsNegative(.F.) , .F. ) - TEST_LINE( IsNegative(.T.) , .F. ) - TEST_LINE( IsNegative(0) , .F. ) - TEST_LINE( IsNegative(1) , .F. ) + HBTEST IsNegative() IS .F. + HBTEST IsNegative(.F.) IS .F. + HBTEST IsNegative(.T.) IS .F. + HBTEST IsNegative(0) IS .F. + HBTEST IsNegative(1) IS .F. #endif - TEST_LINE( IsNegative("") , .F. ) - TEST_LINE( IsNegative("I") , .F. ) - TEST_LINE( IsNegative("y") , .F. ) - TEST_LINE( IsNegative("Y") , .F. ) - TEST_LINE( IsNegative("yes") , .F. ) - TEST_LINE( IsNegative("YES") , .F. ) - TEST_LINE( IsNegative("n") , .T. ) - TEST_LINE( IsNegative("N") , .T. ) - TEST_LINE( IsNegative("no") , .T. ) - TEST_LINE( IsNegative("NO") , .T. ) + HBTEST IsNegative("") IS .F. + HBTEST IsNegative("I") IS .F. + HBTEST IsNegative("y") IS .F. + HBTEST IsNegative("Y") IS .F. + HBTEST IsNegative("yes") IS .F. + HBTEST IsNegative("YES") IS .F. + HBTEST IsNegative("n") IS .T. + HBTEST IsNegative("N") IS .T. + HBTEST IsNegative("no") IS .T. + HBTEST IsNegative("NO") IS .T. #endif /* __XPP__ */ /* FOR/NEXT */ - TEST_LINE( TFORNEXT( .F., .T., NIL ) , "E 1 BASE 1086 Argument error (++) OS:0 #:0 A:1:L:.F. F:S" ) - TEST_LINE( TFORNEXT( .T., .F., NIL ) , .T. ) - TEST_LINE( TFORNEXT( .F., .F., NIL ) , "E 1 BASE 1086 Argument error (++) OS:0 #:0 A:1:L:.F. F:S" ) - TEST_LINE( TFORNEXT( 100, 101, NIL ) , 102 ) - TEST_LINE( TFORNEXT( "A", "A", NIL ) , "E 1 BASE 1086 Argument error (++) OS:0 #:0 A:1:C:A F:S" ) - TEST_LINE( TFORNEXT( NIL, NIL, NIL ) , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) - TEST_LINE( TFORNEXT( .F., .T., 1 ) , "E 1 BASE 1081 Argument error (+) OS:0 #:0 A:2:L:.F.;N:1 F:S" ) - TEST_LINE( TFORNEXT( .F., .T., -1 ) , .F. ) - TEST_LINE( TFORNEXT( .F., .T., .F. ) , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:L:.F.;N:0 F:S" ) - TEST_LINE( TFORNEXT( .T., .F., 1 ) , .T. ) - TEST_LINE( TFORNEXT( .T., .F., -1 ) , "E 1 BASE 1081 Argument error (+) OS:0 #:0 A:2:L:.T.;N:-1 F:S" ) - TEST_LINE( TFORNEXT( .T., .F., .T. ) , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:L:.T.;N:0 F:S" ) - TEST_LINE( TFORNEXT( 100, 101, 1 ) , 102 ) - TEST_LINE( TFORNEXT( 101, 100, -1 ) , 99 ) - TEST_LINE( TFORNEXT( "A", "A", "A" ) , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:C:A;N:0 F:S" ) - TEST_LINE( TFORNEXT( "A", "B", "A" ) , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:C:A;N:0 F:S" ) - TEST_LINE( TFORNEXT( "B", "A", "A" ) , "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:C:A;N:0 F:S" ) - TEST_LINE( TFORNEXT( NIL, NIL, NIL ) , "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) + HBTEST TFORNEXT( .F., .T., NIL ) IS "E 1 BASE 1086 Argument error (++) OS:0 #:0 A:1:L:.F. F:S" + HBTEST TFORNEXT( .T., .F., NIL ) IS .T. + HBTEST TFORNEXT( .F., .F., NIL ) IS "E 1 BASE 1086 Argument error (++) OS:0 #:0 A:1:L:.F. F:S" + HBTEST TFORNEXT( 100, 101, NIL ) IS 102 + HBTEST TFORNEXT( "A", "A", NIL ) IS "E 1 BASE 1086 Argument error (++) OS:0 #:0 A:1:C:A F:S" + HBTEST TFORNEXT( NIL, NIL, NIL ) IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:U:NIL;U:NIL F:S" + HBTEST TFORNEXT( .F., .T., 1 ) IS "E 1 BASE 1081 Argument error (+) OS:0 #:0 A:2:L:.F.;N:1 F:S" + HBTEST TFORNEXT( .F., .T., -1 ) IS .F. + HBTEST TFORNEXT( .F., .T., .F. ) IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:L:.F.;N:0 F:S" + HBTEST TFORNEXT( .T., .F., 1 ) IS .T. + HBTEST TFORNEXT( .T., .F., -1 ) IS "E 1 BASE 1081 Argument error (+) OS:0 #:0 A:2:L:.T.;N:-1 F:S" + HBTEST TFORNEXT( .T., .F., .T. ) IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:L:.T.;N:0 F:S" + HBTEST TFORNEXT( 100, 101, 1 ) IS 102 + HBTEST TFORNEXT( 101, 100, -1 ) IS 99 + HBTEST TFORNEXT( "A", "A", "A" ) IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:C:A;N:0 F:S" + HBTEST TFORNEXT( "A", "B", "A" ) IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:C:A;N:0 F:S" + HBTEST TFORNEXT( "B", "A", "A" ) IS "E 1 BASE 1073 Argument error (<) OS:0 #:0 A:2:C:A;N:0 F:S" + HBTEST TFORNEXT( NIL, NIL, NIL ) IS "E 1 BASE 1075 Argument error (>) OS:0 #:0 A:2:U:NIL;U:NIL F:S" - TEST_LINE( TFORNEXTX( 1, 10,NIL ) , "FTTTTTTTTTTT" ) - TEST_LINE( TFORNEXTX( 10, 1,NIL ) , "FT" ) - TEST_LINE( TFORNEXTX( 1, 10, 1 ) , "FTSSTSSTSSTSSTSSTSSTSSTSSTSSTSSTS" ) - TEST_LINE( TFORNEXTX( 10, 1, -1 ) , "FTSSTSSTSSTSSTSSTSSTSSTSSTSSTSSTS" ) - TEST_LINE( TFORNEXTX( 1, 10, -1 ) , "FTS" ) - TEST_LINE( TFORNEXTX( 10, 1, 1 ) , "FTS" ) - TEST_LINE( TFORNEXTX( 1, 10, 4 ) , "FTSSTSSTSSTS" ) - TEST_LINE( TFORNEXTX( 10, 1, -4 ) , "FTSSTSSTSSTS" ) - TEST_LINE( TFORNEXTX( 1, 10, -4 ) , "FTS" ) - TEST_LINE( TFORNEXTX( 10, 1, 4 ) , "FTS" ) + HBTEST TFORNEXTX( 1, 10,NIL ) IS "FTTTTTTTTTTT" + HBTEST TFORNEXTX( 10, 1,NIL ) IS "FT" + HBTEST TFORNEXTX( 1, 10, 1 ) IS "FTSSTSSTSSTSSTSSTSSTSSTSSTSSTSSTS" + HBTEST TFORNEXTX( 10, 1, -1 ) IS "FTSSTSSTSSTSSTSSTSSTSSTSSTSSTSSTS" + HBTEST TFORNEXTX( 1, 10, -1 ) IS "FTS" + HBTEST TFORNEXTX( 10, 1, 1 ) IS "FTS" + HBTEST TFORNEXTX( 1, 10, 4 ) IS "FTSSTSSTSSTS" + HBTEST TFORNEXTX( 10, 1, -4 ) IS "FTSSTSSTSSTS" + HBTEST TFORNEXTX( 1, 10, -4 ) IS "FTS" + HBTEST TFORNEXTX( 10, 1, 4 ) IS "FTS" - TEST_LINE( TFORNEXTXF( 1, 10,NIL ) , "F-9999T1T2T3T4T5T6T7T8T9T10T11R11" ) - TEST_LINE( TFORNEXTXF( 10, 1,NIL ) , "F-9999T10R10" ) - TEST_LINE( TFORNEXTXF( 1, 10, 1 ) , "F-9999T1S1S1T2S2S2T3S3S3T4S4S4T5S5S5T6S6S6T7S7S7T8S8S8T9S9S9T10S10S10T11S11R11" ) - TEST_LINE( TFORNEXTXF( 10, 1, -1 ) , "F-9999T10S10S10T9S9S9T8S8S8T7S7S7T6S6S6T5S5S5T4S4S4T3S3S3T2S2S2T1S1S1T0S0R0" ) - TEST_LINE( TFORNEXTXF( 1, 10, -1 ) , "F-9999T1S1R1" ) - TEST_LINE( TFORNEXTXF( 10, 1, 1 ) , "F-9999T10S10R10" ) - TEST_LINE( TFORNEXTXF( 1, 10, 4 ) , "F-9999T1S1S1T5S5S5T9S9S9T13S13R13" ) - TEST_LINE( TFORNEXTXF( 10, 1, -4 ) , "F-9999T10S10S10T6S6S6T2S2S2T-2S-2R-2" ) - TEST_LINE( TFORNEXTXF( 1, 10, -4 ) , "F-9999T1S1R1" ) - TEST_LINE( TFORNEXTXF( 10, 1, 4 ) , "F-9999T10S10R10" ) + HBTEST TFORNEXTXF( 1, 10,NIL ) IS "F-9999T1T2T3T4T5T6T7T8T9T10T11R11" + HBTEST TFORNEXTXF( 10, 1,NIL ) IS "F-9999T10R10" + HBTEST TFORNEXTXF( 1, 10, 1 ) IS "F-9999T1S1S1T2S2S2T3S3S3T4S4S4T5S5S5T6S6S6T7S7S7T8S8S8T9S9S9T10S10S10T11S11R11" + HBTEST TFORNEXTXF( 10, 1, -1 ) IS "F-9999T10S10S10T9S9S9T8S8S8T7S7S7T6S6S6T5S5S5T4S4S4T3S3S3T2S2S2T1S1S1T0S0R0" + HBTEST TFORNEXTXF( 1, 10, -1 ) IS "F-9999T1S1R1" + HBTEST TFORNEXTXF( 10, 1, 1 ) IS "F-9999T10S10R10" + HBTEST TFORNEXTXF( 1, 10, 4 ) IS "F-9999T1S1S1T5S5S5T9S9S9T13S13R13" + HBTEST TFORNEXTXF( 10, 1, -4 ) IS "F-9999T10S10S10T6S6S6T2S2S2T-2S-2R-2" + HBTEST TFORNEXTXF( 1, 10, -4 ) IS "F-9999T1S1R1" + HBTEST TFORNEXTXF( 10, 1, 4 ) IS "F-9999T10S10R10" /* Eval(), :Eval(), :EVAL */ - TEST_LINE( Eval( NIL ) , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( Eval( 1 ) , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:N:1 F:S" ) - TEST_LINE( Eval( @sbBlock ) , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:B:{||...} F:S" ) /* CA-Cl*pper returns "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:U:{||...} F:S" */ - TEST_LINE( Eval( {| p1 | p1 },"A","B") , "A" ) - TEST_LINE( Eval( {| p1, p2 | p1 + p2 },"A","B"), "AB" ) + HBTEST Eval( NIL ) IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:U:NIL F:S" + HBTEST Eval( 1 ) IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:N:1 F:S" + HBTEST Eval( @sbBlock ) IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:B:{||...} F:S" /* CA-Cl*pper returns "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:U:{||...} F:S" */ + HBTEST Eval( {| p1 | p1 },"A","B") IS "A" + HBTEST Eval( {| p1, p2 | p1 + p2 },"A","B") IS "AB" #ifdef __HARBOUR__ - TEST_LINE( Eval( {| p1, p2, p3 | HB_SYMBOL_UNUSED( p2 ), HB_SYMBOL_UNUSED( p3 ), p1 }, "A", "B" ), "A" ) + HBTEST Eval( {| p1, p2, p3 | HB_SYMBOL_UNUSED( p2 ), HB_SYMBOL_UNUSED( p3 ), p1 }, "A", "B" ) IS "A" #else - TEST_LINE( Eval( {| p1, p2, p3 | p1 }, "A", "B" ) , "A" ) + HBTEST Eval( {| p1, p2, p3 | p1 }, "A", "B" ) IS "A" #endif - TEST_LINE( suNIL:Eval() , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( scString:Eval() , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:C:HELLO F:S" ) - TEST_LINE( snIntP:Eval() , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:N:10 F:S" ) - TEST_LINE( sdDateE:Eval() , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:D: F:S" ) - TEST_LINE( slFalse:Eval() , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:L:.F. F:S" ) - TEST_LINE( sbBlock:Eval() , NIL ) - TEST_LINE( saArray:Eval() , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:A:{.[1].} F:S" ) - TEST_LINE( soObject:Eval() , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:O:ERROR Object F:S" ) - TEST_LINE( suNIL:Eval , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( scString:Eval , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:C:HELLO F:S" ) - TEST_LINE( snIntP:Eval , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:N:10 F:S" ) - TEST_LINE( sdDateE:Eval , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:D: F:S" ) - TEST_LINE( slFalse:Eval , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:L:.F. F:S" ) - TEST_LINE( sbBlock:Eval , NIL ) - TEST_LINE( saArray:Eval , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:A:{.[1].} F:S" ) - TEST_LINE( soObject:Eval , "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:O:ERROR Object F:S" ) + HBTEST suNIL:Eval() IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:U:NIL F:S" + HBTEST scString:Eval() IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:C:HELLO F:S" + HBTEST snIntP:Eval() IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:N:10 F:S" + HBTEST sdDateE:Eval() IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:D: F:S" + HBTEST slFalse:Eval() IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:L:.F. F:S" + HBTEST sbBlock:Eval() IS NIL + HBTEST saArray:Eval() IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:A:{.[1].} F:S" + HBTEST soObject:Eval() IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:O:ERROR Object F:S" + HBTEST suNIL:Eval IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:U:NIL F:S" + HBTEST scString:Eval IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:C:HELLO F:S" + HBTEST snIntP:Eval IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:N:10 F:S" + HBTEST sdDateE:Eval IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:D: F:S" + HBTEST slFalse:Eval IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:L:.F. F:S" + HBTEST sbBlock:Eval IS NIL + HBTEST saArray:Eval IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:A:{.[1].} F:S" + HBTEST soObject:Eval IS "E 13 BASE 1004 No exported method (EVAL) OS:0 #:0 A:1:O:ERROR Object F:S" /* hb_SToD() */ /* For these tests in CA-Cl*pper 5.2e the following native hb_SToD() has been used ( not the emulated one written in Clipper ): - CLIPPER hb_SToD( void ) + CLIPPER hb_SToD( void { // The length check is a fix to avoid buggy behaviour of _retds() _retds( ( ISCHAR( 1 ) && _parclen( 1 ) == 8 ) ? _parc( 1 ) : " " ); @@ -570,118 +570,118 @@ PROCEDURE Main_MISC() #ifndef RT_NO_C #ifndef __XPP__ - TEST_LINE( hb_SToD() , hb_SToD(" ") ) + HBTEST hb_SToD() IS hb_SToD(" ") #endif - TEST_LINE( hb_SToD(1) , hb_SToD(" ") ) - TEST_LINE( hb_SToD(NIL) , hb_SToD(" ") ) - TEST_LINE( hb_SToD("") , hb_SToD(" ") ) - TEST_LINE( hb_SToD(" ") , hb_SToD(" ") ) - TEST_LINE( hb_SToD(" ") , hb_SToD(" ") ) - TEST_LINE( hb_SToD(" ") , hb_SToD(" ") ) - TEST_LINE( hb_SToD(" 1234567") , hb_SToD(" ") ) - TEST_LINE( hb_SToD("1999 ") , hb_SToD(" ") ) - TEST_LINE( hb_SToD("99999999") , hb_SToD(" ") ) - TEST_LINE( hb_SToD("99990101") , hb_SToD("99990101") ) - TEST_LINE( hb_SToD("19991301") , hb_SToD(" ") ) - TEST_LINE( hb_SToD("19991241") , hb_SToD(" ") ) - TEST_LINE( hb_SToD("01000101") , hb_SToD("01000101") ) - TEST_LINE( hb_SToD("29991231") , hb_SToD("29991231") ) - TEST_LINE( hb_SToD("19990905") , hb_SToD("19990905") ) - TEST_LINE( hb_SToD(" 9990905") , hb_SToD(" ") ) - TEST_LINE( hb_SToD(" 990905") , hb_SToD(" ") ) - TEST_LINE( hb_SToD(" 90905") , hb_SToD(" ") ) - TEST_LINE( hb_SToD(" 0905") , hb_SToD(" ") ) - TEST_LINE( hb_SToD(" 905") , hb_SToD(" ") ) - TEST_LINE( hb_SToD(" 05") , hb_SToD(" ") ) - TEST_LINE( hb_SToD("1 990905") , hb_SToD(" ") ) - TEST_LINE( hb_SToD("19 90905") , hb_SToD("17490905") ) - TEST_LINE( hb_SToD("199 0905") , hb_SToD("19740905") ) - TEST_LINE( hb_SToD("1999 905") , hb_SToD(" ") ) - TEST_LINE( hb_SToD("19990 05") , hb_SToD(" ") ) - TEST_LINE( hb_SToD("199909 5") , hb_SToD(" ") ) - TEST_LINE( hb_SToD("1999090 ") , hb_SToD(" ") ) - TEST_LINE( hb_SToD("1999 9 5") , hb_SToD(" ") ) - TEST_LINE( hb_SToD("1999090" + Chr(0)) , hb_SToD(" ") ) + HBTEST hb_SToD(1) IS hb_SToD(" ") + HBTEST hb_SToD(NIL) IS hb_SToD(" ") + HBTEST hb_SToD("") IS hb_SToD(" ") + HBTEST hb_SToD(" ") IS hb_SToD(" ") + HBTEST hb_SToD(" ") IS hb_SToD(" ") + HBTEST hb_SToD(" ") IS hb_SToD(" ") + HBTEST hb_SToD(" 1234567") IS hb_SToD(" ") + HBTEST hb_SToD("1999 ") IS hb_SToD(" ") + HBTEST hb_SToD("99999999") IS hb_SToD(" ") + HBTEST hb_SToD("99990101") IS hb_SToD("99990101") + HBTEST hb_SToD("19991301") IS hb_SToD(" ") + HBTEST hb_SToD("19991241") IS hb_SToD(" ") + HBTEST hb_SToD("01000101") IS hb_SToD("01000101") + HBTEST hb_SToD("29991231") IS hb_SToD("29991231") + HBTEST hb_SToD("19990905") IS hb_SToD("19990905") + HBTEST hb_SToD(" 9990905") IS hb_SToD(" ") + HBTEST hb_SToD(" 990905") IS hb_SToD(" ") + HBTEST hb_SToD(" 90905") IS hb_SToD(" ") + HBTEST hb_SToD(" 0905") IS hb_SToD(" ") + HBTEST hb_SToD(" 905") IS hb_SToD(" ") + HBTEST hb_SToD(" 05") IS hb_SToD(" ") + HBTEST hb_SToD("1 990905") IS hb_SToD(" ") + HBTEST hb_SToD("19 90905") IS hb_SToD("17490905") + HBTEST hb_SToD("199 0905") IS hb_SToD("19740905") + HBTEST hb_SToD("1999 905") IS hb_SToD(" ") + HBTEST hb_SToD("19990 05") IS hb_SToD(" ") + HBTEST hb_SToD("199909 5") IS hb_SToD(" ") + HBTEST hb_SToD("1999090 ") IS hb_SToD(" ") + HBTEST hb_SToD("1999 9 5") IS hb_SToD(" ") + HBTEST hb_SToD("1999090" + Chr(0)) IS hb_SToD(" ") #endif /* Descend() */ #ifndef __CLIPPER__ /* Bug in CA-Cl*pper, it returns undefined trash */ #ifndef __XPP__ /* Compiler time error */ - TEST_LINE( Descend() , NIL ) + HBTEST Descend() IS NIL #endif #endif - TEST_LINE( Descend( NIL ) , NIL ) - TEST_LINE( Descend( { "A", "B" } ) , NIL ) + HBTEST Descend( NIL ) IS NIL + HBTEST Descend( { "A", "B" } ) IS NIL #ifdef __HARBOUR__ - TEST_LINE( Descend( @scString ) , "¸»´´±" ) /* Bug in CA-Cl*pper, it will return NIL */ + HBTEST Descend( @scString ) IS "¸»´´±" /* Bug in CA-Cl*pper, it will return NIL */ #endif - TEST_LINE( Descend( scString ) , "¸»´´±" ) - TEST_LINE( Descend( scString ) , "¸»´´±" ) - TEST_LINE( Descend( Descend( scString ) ) , "HELLO" ) - TEST_LINE( Descend( .F. ) , .T. ) - TEST_LINE( Descend( .T. ) , .F. ) - TEST_LINE( Descend( 0 ) , 0.00 ) - TEST_LINE( Descend( 1 ) , -1.00 ) - TEST_LINE( Descend( -1 ) , 1.00 ) - TEST_LINE( Descend( Descend( 256 ) ) , 256.00 ) - TEST_LINE( Descend( 2.0 ) , -2.00 ) - TEST_LINE( Descend( 2.5 ) , -2.50 ) - TEST_LINE( Descend( -100.35 ) , 100.35 ) - TEST_LINE( Str(Descend( -740.354 )) , " 740.35" ) - TEST_LINE( Str(Descend( -740.359 )) , " 740.36" ) - TEST_LINE( Str(Descend( -740.354 ), 15, 5) , " 740.35400" ) - TEST_LINE( Str(Descend( -740.359 ), 15, 5) , " 740.35900" ) - TEST_LINE( Descend( 100000 ) , -100000.00 ) - TEST_LINE( Descend( -100000 ) , 100000.00 ) - TEST_LINE( Descend( "" ) , "" ) - TEST_LINE( Descend( Chr(0) ) , ""+Chr(0)+"" ) - TEST_LINE( Descend( Chr(0) + "Hello" ) , ""+Chr(0)+"¸›””‘" ) - TEST_LINE( Descend( "Hello"+Chr(0)+"wo" ) , "¸›””‘"+Chr(0)+"‰‘" ) - TEST_LINE( Descend( hb_SToD( "" ) ) , 5231808 ) - TEST_LINE( Descend( hb_SToD( "01000101" ) ), 3474223 ) - TEST_LINE( Descend( hb_SToD( "19801220" ) ), 2787214 ) + HBTEST Descend( scString ) IS "¸»´´±" + HBTEST Descend( scString ) IS "¸»´´±" + HBTEST Descend( Descend( scString ) ) IS "HELLO" + HBTEST Descend( .F. ) IS .T. + HBTEST Descend( .T. ) IS .F. + HBTEST Descend( 0 ) IS 0.00 + HBTEST Descend( 1 ) IS -1.00 + HBTEST Descend( -1 ) IS 1.00 + HBTEST Descend( Descend( 256 ) ) IS 256.00 + HBTEST Descend( 2.0 ) IS -2.00 + HBTEST Descend( 2.5 ) IS -2.50 + HBTEST Descend( -100.35 ) IS 100.35 + HBTEST Str(Descend( -740.354 )) IS " 740.35" + HBTEST Str(Descend( -740.359 )) IS " 740.36" + HBTEST Str(Descend( -740.354 ), 15, 5) IS " 740.35400" + HBTEST Str(Descend( -740.359 ), 15, 5) IS " 740.35900" + HBTEST Descend( 100000 ) IS -100000.00 + HBTEST Descend( -100000 ) IS 100000.00 + HBTEST Descend( "" ) IS "" + HBTEST Descend( Chr(0) ) IS ""+Chr(0)+"" + HBTEST Descend( Chr(0) + "Hello" ) IS ""+Chr(0)+"¸›””‘" + HBTEST Descend( "Hello"+Chr(0)+"wo" ) IS "¸›””‘"+Chr(0)+"‰‘" + HBTEST Descend( hb_SToD( "" ) ) IS 5231808 + HBTEST Descend( hb_SToD( "01000101" ) ) IS 3474223 + HBTEST Descend( hb_SToD( "19801220" ) ) IS 2787214 #ifdef __HARBOUR__ /* hb_ColorIndex() */ - TEST_LINE( hb_ColorIndex() , "" ) - TEST_LINE( hb_ColorIndex("", -1) , "" ) - TEST_LINE( hb_ColorIndex("", 0) , "" ) - TEST_LINE( hb_ColorIndex("W/R", -1) , "" ) - TEST_LINE( hb_ColorIndex("W/R", 0) , "W/R" ) - TEST_LINE( hb_ColorIndex("W/R", 1) , "" ) - TEST_LINE( hb_ColorIndex("W/R", 2) , "" ) - TEST_LINE( hb_ColorIndex("W/R,GR/0", 0) , "W/R" ) - TEST_LINE( hb_ColorIndex("W/R,GR/0", 1) , "GR/0" ) - TEST_LINE( hb_ColorIndex("W/R,GR/0", 2) , "" ) - TEST_LINE( hb_ColorIndex("W/R,GR/0", 3) , "" ) - TEST_LINE( hb_ColorIndex("W/R, GR/0", 0) , "W/R" ) - TEST_LINE( hb_ColorIndex("W/R, GR/0", 1) , "GR/0" ) - TEST_LINE( hb_ColorIndex("W/R, GR/0", 2) , "" ) - TEST_LINE( hb_ColorIndex("W/R, GR/0", 3) , "" ) - TEST_LINE( hb_ColorIndex("W/R,GR/0 ", 0) , "W/R" ) - TEST_LINE( hb_ColorIndex("W/R,GR/0 ", 1) , "GR/0" ) - TEST_LINE( hb_ColorIndex("W/R,GR/0 ", 2) , "" ) - TEST_LINE( hb_ColorIndex("W/R, GR/0 ", 0) , "W/R" ) - TEST_LINE( hb_ColorIndex("W/R, GR/0 ", 1) , "GR/0" ) - TEST_LINE( hb_ColorIndex("W/R, GR/0 ", 2) , "" ) - TEST_LINE( hb_ColorIndex("W/R, GR/0 ,", 0) , "W/R" ) - TEST_LINE( hb_ColorIndex("W/R, GR/0 ,", 1) , "GR/0" ) - TEST_LINE( hb_ColorIndex("W/R, GR/0 ,", 2) , "" ) - TEST_LINE( hb_ColorIndex(" W/R, GR/0 ,", 0) , "W/R" ) - TEST_LINE( hb_ColorIndex(" W/R, GR/0 ,", 1) , "GR/0" ) - TEST_LINE( hb_ColorIndex(" W/R, GR/0 ,", 2) , "" ) - TEST_LINE( hb_ColorIndex(" W/R , GR/0 ,", 0), "W/R" ) - TEST_LINE( hb_ColorIndex(" W/R , GR/0 ,", 1), "GR/0" ) - TEST_LINE( hb_ColorIndex(" W/R , GR/0 ,", 2), "" ) - TEST_LINE( hb_ColorIndex(" W/R , ,", 1) , "" ) - TEST_LINE( hb_ColorIndex(" W/R ,,", 1) , "" ) - TEST_LINE( hb_ColorIndex(",,", 0) , "" ) - TEST_LINE( hb_ColorIndex(",,", 1) , "" ) - TEST_LINE( hb_ColorIndex(",,", 2) , "" ) - TEST_LINE( hb_ColorIndex(", ,", 2) , "" ) + HBTEST hb_ColorIndex() IS "" + HBTEST hb_ColorIndex("", -1) IS "" + HBTEST hb_ColorIndex("", 0) IS "" + HBTEST hb_ColorIndex("W/R", -1) IS "" + HBTEST hb_ColorIndex("W/R", 0) IS "W/R" + HBTEST hb_ColorIndex("W/R", 1) IS "" + HBTEST hb_ColorIndex("W/R", 2) IS "" + HBTEST hb_ColorIndex("W/R,GR/0", 0) IS "W/R" + HBTEST hb_ColorIndex("W/R,GR/0", 1) IS "GR/0" + HBTEST hb_ColorIndex("W/R,GR/0", 2) IS "" + HBTEST hb_ColorIndex("W/R,GR/0", 3) IS "" + HBTEST hb_ColorIndex("W/R, GR/0", 0) IS "W/R" + HBTEST hb_ColorIndex("W/R, GR/0", 1) IS "GR/0" + HBTEST hb_ColorIndex("W/R, GR/0", 2) IS "" + HBTEST hb_ColorIndex("W/R, GR/0", 3) IS "" + HBTEST hb_ColorIndex("W/R,GR/0 ", 0) IS "W/R" + HBTEST hb_ColorIndex("W/R,GR/0 ", 1) IS "GR/0" + HBTEST hb_ColorIndex("W/R,GR/0 ", 2) IS "" + HBTEST hb_ColorIndex("W/R, GR/0 ", 0) IS "W/R" + HBTEST hb_ColorIndex("W/R, GR/0 ", 1) IS "GR/0" + HBTEST hb_ColorIndex("W/R, GR/0 ", 2) IS "" + HBTEST hb_ColorIndex("W/R, GR/0 ,", 0) IS "W/R" + HBTEST hb_ColorIndex("W/R, GR/0 ,", 1) IS "GR/0" + HBTEST hb_ColorIndex("W/R, GR/0 ,", 2) IS "" + HBTEST hb_ColorIndex(" W/R, GR/0 ,", 0) IS "W/R" + HBTEST hb_ColorIndex(" W/R, GR/0 ,", 1) IS "GR/0" + HBTEST hb_ColorIndex(" W/R, GR/0 ,", 2) IS "" + HBTEST hb_ColorIndex(" W/R , GR/0 ,", 0) IS "W/R" + HBTEST hb_ColorIndex(" W/R , GR/0 ,", 1) IS "GR/0" + HBTEST hb_ColorIndex(" W/R , GR/0 ,", 2) IS "" + HBTEST hb_ColorIndex(" W/R , ,", 1) IS "" + HBTEST hb_ColorIndex(" W/R ,,", 1) IS "" + HBTEST hb_ColorIndex(",,", 0) IS "" + HBTEST hb_ColorIndex(",,", 1) IS "" + HBTEST hb_ColorIndex(",,", 2) IS "" + HBTEST hb_ColorIndex(", ,", 2) IS "" #endif @@ -689,19 +689,19 @@ PROCEDURE Main_MISC() /* FKMax(), FKLabel() */ - TEST_LINE( FKMax() , 40 ) - TEST_LINE( FKMax( 1 ) , 40 ) + HBTEST FKMax() IS 40 + HBTEST FKMax( 1 ) IS 40 #ifdef __HARBOUR__ - TEST_LINE( FKLabel() , "" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:U:NIL;N:40 F:S" */ - TEST_LINE( FKLabel( NIL ) , "" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:U:NIL;N:40 F:S" */ - TEST_LINE( FKLabel( "A" ) , "" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:C:A;N:40 F:S" */ + HBTEST FKLabel() IS "" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:U:NIL;N:40 F:S" */ + HBTEST FKLabel( NIL ) IS "" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:U:NIL;N:40 F:S" */ + HBTEST FKLabel( "A" ) IS "" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1074 Argument error (<=) OS:0 #:0 A:2:C:A;N:40 F:S" */ #endif - TEST_LINE( FKLabel( -1 ) , "" ) - TEST_LINE( FKLabel( 0 ) , "" ) - TEST_LINE( FKLabel( 1 ) , "F1" ) - TEST_LINE( FKLabel( 25 ) , "F25" ) - TEST_LINE( FKLabel( 40 ) , "F40" ) - TEST_LINE( FKLabel( 41 ) , "" ) + HBTEST FKLabel( -1 ) IS "" + HBTEST FKLabel( 0 ) IS "" + HBTEST FKLabel( 1 ) IS "F1" + HBTEST FKLabel( 25 ) IS "F25" + HBTEST FKLabel( 40 ) IS "F40" + HBTEST FKLabel( 41 ) IS "" #endif /* __XPP__ */ @@ -712,91 +712,91 @@ PROCEDURE Main_MISC() #ifndef __CLIPPER__ #ifndef __XPP__ - TEST_LINE( Bin2I() , 0 ) /* Bug in CA-Cl*pper, this causes a GPF */ + HBTEST Bin2I() IS 0 /* Bug in CA-Cl*pper, this causes a GPF */ #endif - TEST_LINE( Bin2I(100) , 0 ) /* Bug in CA-Cl*pper, this causes a GPF */ - TEST_LINE( Bin2I("") , 0 ) /* Bug in CA-Cl*pper, it will return trash */ + HBTEST Bin2I(100) IS 0 /* Bug in CA-Cl*pper, this causes a GPF */ + HBTEST Bin2I("") IS 0 /* Bug in CA-Cl*pper, it will return trash */ #endif - TEST_LINE( Bin2I("AB") , 16961 ) - TEST_LINE( Bin2I("BA") , 16706 ) - TEST_LINE( Bin2I(Chr(255)) , 255 ) - TEST_LINE( Bin2I(Chr(255)+Chr(255)) , -1 ) - TEST_LINE( Bin2I(Chr(0)) , 0 ) - TEST_LINE( Bin2I(Chr(0)+Chr(0)) , 0 ) - TEST_LINE( Bin2I("A") , 65 ) - TEST_LINE( Bin2I("ABC") , 16961 ) + HBTEST Bin2I("AB") IS 16961 + HBTEST Bin2I("BA") IS 16706 + HBTEST Bin2I(Chr(255)) IS 255 + HBTEST Bin2I(Chr(255)+Chr(255)) IS -1 + HBTEST Bin2I(Chr(0)) IS 0 + HBTEST Bin2I(Chr(0)+Chr(0)) IS 0 + HBTEST Bin2I("A") IS 65 + HBTEST Bin2I("ABC") IS 16961 /* Bin2W() */ #ifndef __CLIPPER__ #ifndef __XPP__ - TEST_LINE( Bin2W() , 0 ) /* Bug in CA-Cl*pper, this causes a GPF */ + HBTEST Bin2W() IS 0 /* Bug in CA-Cl*pper, this causes a GPF */ #endif - TEST_LINE( Bin2W(100) , 0 ) /* Bug in CA-Cl*pper, this causes a GPF */ - TEST_LINE( Bin2W("") , 0 ) /* Bug in CA-Cl*pper, it will return trash */ + HBTEST Bin2W(100) IS 0 /* Bug in CA-Cl*pper, this causes a GPF */ + HBTEST Bin2W("") IS 0 /* Bug in CA-Cl*pper, it will return trash */ #endif - TEST_LINE( Bin2W("AB") , 16961 ) - TEST_LINE( Bin2W("BA") , 16706 ) - TEST_LINE( Bin2W(Chr(255)) , 255 ) - TEST_LINE( Bin2W(Chr(255)+Chr(255)) , 65535 ) - TEST_LINE( Bin2W(Chr(0)) , 0 ) - TEST_LINE( Bin2W(Chr(0)+Chr(0)) , 0 ) - TEST_LINE( Bin2W("A") , 65 ) - TEST_LINE( Bin2W("ABC") , 16961 ) + HBTEST Bin2W("AB") IS 16961 + HBTEST Bin2W("BA") IS 16706 + HBTEST Bin2W(Chr(255)) IS 255 + HBTEST Bin2W(Chr(255)+Chr(255)) IS 65535 + HBTEST Bin2W(Chr(0)) IS 0 + HBTEST Bin2W(Chr(0)+Chr(0)) IS 0 + HBTEST Bin2W("A") IS 65 + HBTEST Bin2W("ABC") IS 16961 /* Bin2L() */ #ifndef __CLIPPER__ #ifndef __XPP__ - TEST_LINE( Bin2L() , 0 ) /* Bug in CA-Cl*pper, this causes a GPF */ + HBTEST Bin2L() IS 0 /* Bug in CA-Cl*pper, this causes a GPF */ #endif - TEST_LINE( Bin2L(100) , 0 ) /* Bug in CA-Cl*pper, this causes a GPF */ - TEST_LINE( Bin2L("") , 0 ) /* Bug in CA-Cl*pper, it will return trash */ + HBTEST Bin2L(100) IS 0 /* Bug in CA-Cl*pper, this causes a GPF */ + HBTEST Bin2L("") IS 0 /* Bug in CA-Cl*pper, it will return trash */ #endif - TEST_LINE( Bin2L("ABCD") , 1145258561 ) - TEST_LINE( Bin2L("DCBA") , 1094861636 ) + HBTEST Bin2L("ABCD") IS 1145258561 + HBTEST Bin2L("DCBA") IS 1094861636 #ifndef __CLIPPER__ - TEST_LINE( Bin2L(Chr(255)) , 255 ) /* Bug in CA-Cl*pper, it will return trash */ + HBTEST Bin2L(Chr(255)) IS 255 /* Bug in CA-Cl*pper, it will return trash */ #endif - TEST_LINE( Bin2L(Chr(255)+Chr(255)+Chr(255)) , 16777215 ) - TEST_LINE( Bin2L(Chr(255)+Chr(255)+Chr(255)+Chr(255)) , -1 ) - TEST_LINE( Bin2L(Chr(0)+Chr(0)+Chr(0)) , 0 ) - TEST_LINE( Bin2L(Chr(0)+Chr(0)+Chr(0)+Chr(0)) , 0 ) - TEST_LINE( Bin2L("ABC") , 4407873 ) - TEST_LINE( Bin2L("ABCDE") , 1145258561 ) + HBTEST Bin2L(Chr(255)+Chr(255)+Chr(255)) IS 16777215 + HBTEST Bin2L(Chr(255)+Chr(255)+Chr(255)+Chr(255)) IS -1 + HBTEST Bin2L(Chr(0)+Chr(0)+Chr(0)) IS 0 + HBTEST Bin2L(Chr(0)+Chr(0)+Chr(0)+Chr(0)) IS 0 + HBTEST Bin2L("ABC") IS 4407873 + HBTEST Bin2L("ABCDE") IS 1145258561 /* I2Bin() */ #ifndef __XPP__ - TEST_LINE( I2Bin() , ""+Chr(0)+""+Chr(0)+"" ) + HBTEST I2Bin() IS ""+Chr(0)+""+Chr(0)+"" #endif - TEST_LINE( I2Bin("" ) , ""+Chr(0)+""+Chr(0)+"" ) - TEST_LINE( I2Bin(0 ) , ""+Chr(0)+""+Chr(0)+"" ) - TEST_LINE( I2Bin(16961 ) , "AB" ) - TEST_LINE( I2Bin(16706 ) , "BA" ) - TEST_LINE( I2Bin(255 ) , "ÿ"+Chr(0)+"" ) - TEST_LINE( I2Bin(-1 ) , "ÿÿ" ) - TEST_LINE( I2Bin(0 ) , ""+Chr(0)+""+Chr(0)+"" ) - TEST_LINE( I2Bin(0 ) , ""+Chr(0)+""+Chr(0)+"" ) - TEST_LINE( I2Bin(65 ) , "A"+Chr(0)+"" ) - TEST_LINE( I2Bin(16961 ) , "AB" ) + HBTEST I2Bin("" ) IS ""+Chr(0)+""+Chr(0)+"" + HBTEST I2Bin(0 ) IS ""+Chr(0)+""+Chr(0)+"" + HBTEST I2Bin(16961 ) IS "AB" + HBTEST I2Bin(16706 ) IS "BA" + HBTEST I2Bin(255 ) IS "ÿ"+Chr(0)+"" + HBTEST I2Bin(-1 ) IS "ÿÿ" + HBTEST I2Bin(0 ) IS ""+Chr(0)+""+Chr(0)+"" + HBTEST I2Bin(0 ) IS ""+Chr(0)+""+Chr(0)+"" + HBTEST I2Bin(65 ) IS "A"+Chr(0)+"" + HBTEST I2Bin(16961 ) IS "AB" /* L2Bin() */ #ifndef __XPP__ - TEST_LINE( L2Bin() , ""+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" ) + HBTEST L2Bin() IS ""+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" #endif - TEST_LINE( L2Bin("") , ""+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" ) - TEST_LINE( L2Bin(0 ) , ""+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" ) - TEST_LINE( L2Bin(1145258561 ) , "ABCD" ) - TEST_LINE( L2Bin(1094861636 ) , "DCBA" ) - TEST_LINE( L2Bin(255 ) , "ÿ"+Chr(0)+""+Chr(0)+""+Chr(0)+"" ) - TEST_LINE( L2Bin(16777215 ) , "ÿÿÿ"+Chr(0)+"" ) - TEST_LINE( L2Bin(-1 ) , Chr(255)+Chr(255)+Chr(255)+Chr(255) ) - TEST_LINE( L2Bin(0 ) , ""+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" ) - TEST_LINE( L2Bin(0 ) , Chr(0)+Chr(0)+Chr(0)+Chr(0) ) - TEST_LINE( L2Bin(4407873 ) , "ABC"+Chr(0)+"" ) - TEST_LINE( L2Bin(1145258561 ) , "ABCD" ) + HBTEST L2Bin("") IS ""+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" + HBTEST L2Bin(0 ) IS ""+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" + HBTEST L2Bin(1145258561 ) IS "ABCD" + HBTEST L2Bin(1094861636 ) IS "DCBA" + HBTEST L2Bin(255 ) IS "ÿ"+Chr(0)+""+Chr(0)+""+Chr(0)+"" + HBTEST L2Bin(16777215 ) IS "ÿÿÿ"+Chr(0)+"" + HBTEST L2Bin(-1 ) IS Chr(255)+Chr(255)+Chr(255)+Chr(255) + HBTEST L2Bin(0 ) IS ""+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" + HBTEST L2Bin(0 ) IS Chr(0)+Chr(0)+Chr(0)+Chr(0) + HBTEST L2Bin(4407873 ) IS "ABC"+Chr(0)+"" + HBTEST L2Bin(1145258561 ) IS "ABCD" #ifndef __XPP__ @@ -807,10 +807,10 @@ PROCEDURE Main_MISC() /* NOTE: Cannot yet test the return value of the function on a DEFAULT-ed failure. */ - TEST_LINE( __CopyFile("$$COPYFR.TMP") , "E 1 BASE 2010 Argument error (__COPYFILE) OS:0 #:0 A:1:C:$$COPYFR.TMP " ) - TEST_LINE( __CopyFile("$$COPYFR.TMP", "$$COPYTO.TMP") , NIL ) - TEST_LINE( __CopyFile("NOT_HERE.$$$", "$$COPYTO.TMP") , "E 21 BASE 2012 Open error OS:2 #:1 F:DR" ) - TEST_LINE( __CopyFile("$$COPYFR.TMP", BADFNAME()) , "E 20 BASE 2012 Create error <" + BADFNAME() + "> OS:2 #:1 F:DR" ) + HBTEST __CopyFile("$$COPYFR.TMP") IS "E 1 BASE 2010 Argument error (__COPYFILE) OS:0 #:0 A:1:C:$$COPYFR.TMP " + HBTEST __CopyFile("$$COPYFR.TMP", "$$COPYTO.TMP") IS NIL + HBTEST __CopyFile("NOT_HERE.$$$", "$$COPYTO.TMP") IS "E 21 BASE 2012 Open error OS:2 #:1 F:DR" + HBTEST __CopyFile("$$COPYFR.TMP", BADFNAME()) IS "E 20 BASE 2012 Create error <" + BADFNAME() + "> OS:2 #:1 F:DR" FErase("$$COPYFR.TMP") FErase("$$COPYTO.TMP") @@ -823,19 +823,19 @@ PROCEDURE Main_MISC() /* NOTE: Only error cases are tested. */ - TEST_LINE( __Run() , NIL ) - TEST_LINE( __Run( NIL ) , NIL ) - TEST_LINE( __Run( 10 ) , NIL ) + HBTEST __Run() IS NIL + HBTEST __Run( NIL ) IS NIL + HBTEST __Run( 10 ) IS NIL #endif /* __XPP__ */ /* MemVarBlock() */ - TEST_LINE( MemVarBlock() , NIL ) - TEST_LINE( MemVarBlock( NIL ) , NIL ) - TEST_LINE( MemVarBlock( 100 ) , NIL ) - TEST_LINE( MemVarBlock( "mxNotHere" ) , NIL ) - TEST_LINE( MemVarBlock( "mcString" ) , "{||...}" ) + HBTEST MemVarBlock() IS NIL + HBTEST MemVarBlock( NIL ) IS NIL + HBTEST MemVarBlock( 100 ) IS NIL + HBTEST MemVarBlock( "mxNotHere" ) IS NIL + HBTEST MemVarBlock( "mcString" ) IS "{||...}" /* Defines for HardCR() and MemoTran() */ @@ -847,52 +847,52 @@ PROCEDURE Main_MISC() /* HardCR() */ #ifndef __XPP__ - TEST_LINE( HardCR() , "" ) + HBTEST HardCR() IS "" #endif - TEST_LINE( HardCR(NIL) , "" ) - TEST_LINE( HardCR(100) , "" ) + HBTEST HardCR(NIL) IS "" + HBTEST HardCR(100) IS "" #ifdef __HARBOUR__ - TEST_LINE( HardCR(@scString) , "HELLO" ) /* Bug in CA-Cl*pper, it will return "" */ + HBTEST HardCR(@scString) IS "HELLO" /* Bug in CA-Cl*pper, it will return "" */ #endif - TEST_LINE( HardCR("H"+SO+LF+"P"+SO+LF+"W"+SO+"M") , "H"+Chr(13)+""+Chr(10)+"P"+Chr(13)+""+Chr(10)+"W"+Chr(141)+"M" ) - TEST_LINE( HardCR("H"+NU+"B"+SO+LF+NU+"P"+SO+LF+"W"+SO+"M"+NU) , "H"+Chr(0)+"B"+Chr(13)+""+Chr(10)+""+Chr(0)+"P"+Chr(13)+""+Chr(10)+"W"+Chr(141)+"M"+Chr(0)+"" ) + HBTEST HardCR("H"+SO+LF+"P"+SO+LF+"W"+SO+"M") IS "H"+Chr(13)+""+Chr(10)+"P"+Chr(13)+""+Chr(10)+"W"+Chr(141)+"M" + HBTEST HardCR("H"+NU+"B"+SO+LF+NU+"P"+SO+LF+"W"+SO+"M"+NU) IS "H"+Chr(0)+"B"+Chr(13)+""+Chr(10)+""+Chr(0)+"P"+Chr(13)+""+Chr(10)+"W"+Chr(141)+"M"+Chr(0)+"" /* MemoTran() */ #ifndef __XPP__ - TEST_LINE( MemoTran() , "" ) + HBTEST MemoTran() IS "" #endif - TEST_LINE( MemoTran(NIL) , "" ) - TEST_LINE( MemoTran(100) , "" ) - TEST_LINE( MemoTran(100,"1","2") , "" ) + HBTEST MemoTran(NIL) IS "" + HBTEST MemoTran(100) IS "" + HBTEST MemoTran(100,"1","2") IS "" #ifdef __HARBOUR__ - TEST_LINE( MemoTran(@scString) , "HELLO" ) /* Bug in CA-Cl*pper, it will return "" */ + HBTEST MemoTran(@scString) IS "HELLO" /* Bug in CA-Cl*pper, it will return "" */ #endif - TEST_LINE( MemoTran("H"+SO+LF+"P"+CR+LF+"M") , "H P;M" ) - TEST_LINE( MemoTran("H"+NU+"O"+SO+LF+"P"+CR+LF+"M"+NU+"I") , "H"+Chr(0)+"O P;M"+Chr(0)+"I" ) - TEST_LINE( MemoTran("M"+CR+"s"+CR+LF+"w"+SO+"w"+SO+LF+"h"+CR) , "M"+Chr(13)+"s;w"+Chr(141)+"w h"+Chr(13)+"" ) - TEST_LINE( MemoTran("M"+CR+"s"+CR+LF+"w"+SO+"w"+SO+LF+"h"+CR,"111","222"), "M"+Chr(13)+"s1w"+Chr(141)+"w2h"+Chr(13)+"" ) - TEST_LINE( MemoTran("M"+CR+"s"+CR+LF+"w"+SO+"w"+SO+LF+"h"+CR,"","") , "M"+Chr(13)+"s"+Chr(0)+"w"+Chr(141)+"w"+Chr(0)+"h"+Chr(13)+"" ) + HBTEST MemoTran("H"+SO+LF+"P"+CR+LF+"M") IS "H P;M" + HBTEST MemoTran("H"+NU+"O"+SO+LF+"P"+CR+LF+"M"+NU+"I") IS "H"+Chr(0)+"O P;M"+Chr(0)+"I" + HBTEST MemoTran("M"+CR+"s"+CR+LF+"w"+SO+"w"+SO+LF+"h"+CR) IS "M"+Chr(13)+"s;w"+Chr(141)+"w h"+Chr(13)+"" + HBTEST MemoTran("M"+CR+"s"+CR+LF+"w"+SO+"w"+SO+LF+"h"+CR,"111","222") IS "M"+Chr(13)+"s1w"+Chr(141)+"w2h"+Chr(13)+"" + HBTEST MemoTran("M"+CR+"s"+CR+LF+"w"+SO+"w"+SO+LF+"h"+CR,"","") IS "M"+Chr(13)+"s"+Chr(0)+"w"+Chr(141)+"w"+Chr(0)+"h"+Chr(13)+"" /* MEMOWRITE()/MemoRead() */ #ifndef __XPP__ - TEST_LINE( MemoWrit() , .F. ) - TEST_LINE( MemoWrit("$$MEMOFI.TMP") , .F. ) + HBTEST MemoWrit() IS .F. + HBTEST MemoWrit("$$MEMOFI.TMP") IS .F. #endif - TEST_LINE( MemoWrit("$$MEMOFI.TMP","") , .T. ) - TEST_LINE( MemoRead("$$MEMOFI.TMP") , "" ) - TEST_LINE( MemoWrit("$$MEMOFI.TMP",scStringZ) , .T. ) - TEST_LINE( MemoRead("$$MEMOFI.TMP") , "A"+Chr(0)+"B" ) - TEST_LINE( MemoWrit("$$MEMOFI.TMP",Chr(26)) , .T. ) - TEST_LINE( MemoRead("$$MEMOFI.TMP") , ""+Chr(26)+"" ) - TEST_LINE( MemoWrit("$$MEMOFI.TMP",scStringW) , .T. ) - TEST_LINE( MemoRead("$$MEMOFI.TMP") , ""+Chr(13)+""+Chr(10)+Chr(141)+Chr(10)+""+Chr(9)+"" ) - TEST_LINE( MemoWrit(BADFNAME2() ,scStringZ) , .F. ) + HBTEST MemoWrit("$$MEMOFI.TMP","") IS .T. + HBTEST MemoRead("$$MEMOFI.TMP") IS "" + HBTEST MemoWrit("$$MEMOFI.TMP",scStringZ) IS .T. + HBTEST MemoRead("$$MEMOFI.TMP") IS "A"+Chr(0)+"B" + HBTEST MemoWrit("$$MEMOFI.TMP",Chr(26)) IS .T. + HBTEST MemoRead("$$MEMOFI.TMP") IS ""+Chr(26)+"" + HBTEST MemoWrit("$$MEMOFI.TMP",scStringW) IS .T. + HBTEST MemoRead("$$MEMOFI.TMP") IS ""+Chr(13)+""+Chr(10)+Chr(141)+Chr(10)+""+Chr(9)+"" + HBTEST MemoWrit(BADFNAME2() ,scStringZ) IS .F. #ifndef __XPP__ - TEST_LINE( MemoRead() , "" ) + HBTEST MemoRead() IS "" #endif - TEST_LINE( MemoRead( BADFNAME2() ) , "" ) + HBTEST MemoRead( BADFNAME2() ) IS "" FErase("$$MEMOFI.TMP") @@ -900,116 +900,116 @@ PROCEDURE Main_MISC() /* hb_FNameSplit(), hb_FNameMerge() */ - TEST_LINE( TESTFNAME( "" ) , ";;;;" ) - TEST_LINE( TESTFNAME( " " ) , ";;;;" ) + HBTEST TESTFNAME( "" ) IS ";;;;" + HBTEST TESTFNAME( " " ) IS ";;;;" #ifdef __PLATFORM__UNIX - TEST_LINE( TESTFNAME( ": " ) , ":;;:;;" ) + HBTEST TESTFNAME( ": " ) IS ":;;:;;" #else - TEST_LINE( TESTFNAME( ": " ) , ":;:;;;" ) + HBTEST TESTFNAME( ": " ) IS ":;:;;;" #endif - TEST_LINE( TESTFNAME( "C:/work/hello " ) , "C:/work/hello;C:/work/;hello;;" ) - TEST_LINE( TESTFNAME( "C:/work/hello " ) , "C:/work/hello;C:/work/;hello;;" ) - TEST_LINE( TESTFNAME( "C:/work/hello " ) , "C:/work/hello;C:/work/;hello;;" ) - TEST_LINE( TESTFNAME( "C:/work/hello. " ) , "C:/work/hello.;C:/work/;hello;.;" ) - TEST_LINE( TESTFNAME( "C:/work/hello.prg " ) , "C:/work/hello.prg;C:/work/;hello;.prg;" ) - TEST_LINE( TESTFNAME( "C:/work/hello/ " ) , "C:/work/hello/;C:/work/hello/;;;" ) - TEST_LINE( TESTFNAME( "C:/work/hello/.prg " ) , "C:/work/hello/.prg;C:/work/hello/;.prg;;" ) - TEST_LINE( TESTFNAME( "C:/work/hello/a.prg " ) , "C:/work/hello/a.prg;C:/work/hello/;a;.prg;" ) - TEST_LINE( TESTFNAME( "C:/work/hello/a.b.prg " ) , "C:/work/hello/a.b.prg;C:/work/hello/;a.b;.prg;" ) - TEST_LINE( TESTFNAME( "C:work/hello " ) , "C:work/hello;C:work/;hello;;" ) - TEST_LINE( TESTFNAME( "C:work/hello. " ) , "C:work/hello.;C:work/;hello;.;" ) - TEST_LINE( TESTFNAME( "C:work/hello.prg " ) , "C:work/hello.prg;C:work/;hello;.prg;" ) - TEST_LINE( TESTFNAME( "C:work/hello/ " ) , "C:work/hello/;C:work/hello/;;;" ) - TEST_LINE( TESTFNAME( "C:work/hello/.prg " ) , "C:work/hello/.prg;C:work/hello/;.prg;;" ) - TEST_LINE( TESTFNAME( "C:work/hello/a.prg " ) , "C:work/hello/a.prg;C:work/hello/;a;.prg;" ) - TEST_LINE( TESTFNAME( "C:work/hello/a.b.prg " ) , "C:work/hello/a.b.prg;C:work/hello/;a.b;.prg;" ) - TEST_LINE( TESTFNAME( "C:/work.old/hello " ) , "C:/work.old/hello;C:/work.old/;hello;;" ) - TEST_LINE( TESTFNAME( "C:/work.old/hello. " ) , "C:/work.old/hello.;C:/work.old/;hello;.;" ) - TEST_LINE( TESTFNAME( "C:/work.old/hello.prg " ) , "C:/work.old/hello.prg;C:/work.old/;hello;.prg;" ) - TEST_LINE( TESTFNAME( "C:/work.old/hello/ " ) , "C:/work.old/hello/;C:/work.old/hello/;;;" ) - TEST_LINE( TESTFNAME( "C:/work.old/hello/.prg " ) , "C:/work.old/hello/.prg;C:/work.old/hello/;.prg;;" ) - TEST_LINE( TESTFNAME( "C:/work.old/hello/a.prg " ) , "C:/work.old/hello/a.prg;C:/work.old/hello/;a;.prg;" ) - TEST_LINE( TESTFNAME( "C:/work.old/hello/a.b.prg " ) , "C:/work.old/hello/a.b.prg;C:/work.old/hello/;a.b;.prg;" ) - TEST_LINE( TESTFNAME( "C:work.old/hello " ) , "C:work.old/hello;C:work.old/;hello;;" ) - TEST_LINE( TESTFNAME( "C:work.old/hello. " ) , "C:work.old/hello.;C:work.old/;hello;.;" ) - TEST_LINE( TESTFNAME( "C:work.old/hello.prg " ) , "C:work.old/hello.prg;C:work.old/;hello;.prg;" ) - TEST_LINE( TESTFNAME( "C:work.old/hello/ " ) , "C:work.old/hello/;C:work.old/hello/;;;" ) - TEST_LINE( TESTFNAME( "C:work.old/hello/.prg " ) , "C:work.old/hello/.prg;C:work.old/hello/;.prg;;" ) - TEST_LINE( TESTFNAME( "C:work.old/hello/a.prg " ) , "C:work.old/hello/a.prg;C:work.old/hello/;a;.prg;" ) - TEST_LINE( TESTFNAME( "C:work.old/hello/a.b.prg " ) , "C:work.old/hello/a.b.prg;C:work.old/hello/;a.b;.prg;" ) - TEST_LINE( TESTFNAME( "C:.old/hello " ) , "C:.old/hello;C:.old/;hello;;" ) - TEST_LINE( TESTFNAME( "C:.old/hello. " ) , "C:.old/hello.;C:.old/;hello;.;" ) - TEST_LINE( TESTFNAME( "C:.old/hello.prg " ) , "C:.old/hello.prg;C:.old/;hello;.prg;" ) - TEST_LINE( TESTFNAME( "C:.old/hello/ " ) , "C:.old/hello/;C:.old/hello/;;;" ) - TEST_LINE( TESTFNAME( "C:.old/hello/.prg " ) , "C:.old/hello/.prg;C:.old/hello/;.prg;;" ) - TEST_LINE( TESTFNAME( "C:.old/hello/a.prg " ) , "C:.old/hello/a.prg;C:.old/hello/;a;.prg;" ) - TEST_LINE( TESTFNAME( "C:.old/hello/a.b.prg " ) , "C:.old/hello/a.b.prg;C:.old/hello/;a.b;.prg;" ) - TEST_LINE( TESTFNAME( "//server/work/hello " ) , "//server/work/hello;//server/work/;hello;;" ) - TEST_LINE( TESTFNAME( "//server/work/hello. " ) , "//server/work/hello.;//server/work/;hello;.;" ) - TEST_LINE( TESTFNAME( "//server/work/hello.prg " ) , "//server/work/hello.prg;//server/work/;hello;.prg;" ) - TEST_LINE( TESTFNAME( "//server/work/hello/ " ) , "//server/work/hello/;//server/work/hello/;;;" ) - TEST_LINE( TESTFNAME( "//server/work/hello/.prg " ) , "//server/work/hello/.prg;//server/work/hello/;.prg;;" ) - TEST_LINE( TESTFNAME( "//server/work/hello/a.prg " ) , "//server/work/hello/a.prg;//server/work/hello/;a;.prg;" ) - TEST_LINE( TESTFNAME( "//server/work/hello/a.b.prg" ) , "//server/work/hello/a.b.prg;//server/work/hello/;a.b;.prg;" ) - TEST_LINE( TESTFNAME( "/server/work/hello " ) , "/server/work/hello;/server/work/;hello;;" ) - TEST_LINE( TESTFNAME( "/server/work/hello. " ) , "/server/work/hello.;/server/work/;hello;.;" ) - TEST_LINE( TESTFNAME( "/server/work/hello.prg " ) , "/server/work/hello.prg;/server/work/;hello;.prg;" ) - TEST_LINE( TESTFNAME( "/server/work/hello/ " ) , "/server/work/hello/;/server/work/hello/;;;" ) - TEST_LINE( TESTFNAME( "/server/work/hello/.prg " ) , "/server/work/hello/.prg;/server/work/hello/;.prg;;" ) - TEST_LINE( TESTFNAME( "/server/work/hello/a.prg " ) , "/server/work/hello/a.prg;/server/work/hello/;a;.prg;" ) - TEST_LINE( TESTFNAME( "/server/work/hello/a.b.prg " ) , "/server/work/hello/a.b.prg;/server/work/hello/;a.b;.prg;" ) - TEST_LINE( TESTFNAME( "C:/hello " ) , "C:/hello;C:/;hello;;" ) - TEST_LINE( TESTFNAME( "C:/hello. " ) , "C:/hello.;C:/;hello;.;" ) - TEST_LINE( TESTFNAME( "C:/hello.prg " ) , "C:/hello.prg;C:/;hello;.prg;" ) - TEST_LINE( TESTFNAME( "C:/hello/ " ) , "C:/hello/;C:/hello/;;;" ) - TEST_LINE( TESTFNAME( "C:/hello/.prg " ) , "C:/hello/.prg;C:/hello/;.prg;;" ) - TEST_LINE( TESTFNAME( "C:/hello/a.prg " ) , "C:/hello/a.prg;C:/hello/;a;.prg;" ) - TEST_LINE( TESTFNAME( "C:/hello/a.b.prg " ) , "C:/hello/a.b.prg;C:/hello/;a.b;.prg;" ) + HBTEST TESTFNAME( "C:/work/hello " ) IS "C:/work/hello;C:/work/;hello;;" + HBTEST TESTFNAME( "C:/work/hello " ) IS "C:/work/hello;C:/work/;hello;;" + HBTEST TESTFNAME( "C:/work/hello " ) IS "C:/work/hello;C:/work/;hello;;" + HBTEST TESTFNAME( "C:/work/hello. " ) IS "C:/work/hello.;C:/work/;hello;.;" + HBTEST TESTFNAME( "C:/work/hello.prg " ) IS "C:/work/hello.prg;C:/work/;hello;.prg;" + HBTEST TESTFNAME( "C:/work/hello/ " ) IS "C:/work/hello/;C:/work/hello/;;;" + HBTEST TESTFNAME( "C:/work/hello/.prg " ) IS "C:/work/hello/.prg;C:/work/hello/;.prg;;" + HBTEST TESTFNAME( "C:/work/hello/a.prg " ) IS "C:/work/hello/a.prg;C:/work/hello/;a;.prg;" + HBTEST TESTFNAME( "C:/work/hello/a.b.prg " ) IS "C:/work/hello/a.b.prg;C:/work/hello/;a.b;.prg;" + HBTEST TESTFNAME( "C:work/hello " ) IS "C:work/hello;C:work/;hello;;" + HBTEST TESTFNAME( "C:work/hello. " ) IS "C:work/hello.;C:work/;hello;.;" + HBTEST TESTFNAME( "C:work/hello.prg " ) IS "C:work/hello.prg;C:work/;hello;.prg;" + HBTEST TESTFNAME( "C:work/hello/ " ) IS "C:work/hello/;C:work/hello/;;;" + HBTEST TESTFNAME( "C:work/hello/.prg " ) IS "C:work/hello/.prg;C:work/hello/;.prg;;" + HBTEST TESTFNAME( "C:work/hello/a.prg " ) IS "C:work/hello/a.prg;C:work/hello/;a;.prg;" + HBTEST TESTFNAME( "C:work/hello/a.b.prg " ) IS "C:work/hello/a.b.prg;C:work/hello/;a.b;.prg;" + HBTEST TESTFNAME( "C:/work.old/hello " ) IS "C:/work.old/hello;C:/work.old/;hello;;" + HBTEST TESTFNAME( "C:/work.old/hello. " ) IS "C:/work.old/hello.;C:/work.old/;hello;.;" + HBTEST TESTFNAME( "C:/work.old/hello.prg " ) IS "C:/work.old/hello.prg;C:/work.old/;hello;.prg;" + HBTEST TESTFNAME( "C:/work.old/hello/ " ) IS "C:/work.old/hello/;C:/work.old/hello/;;;" + HBTEST TESTFNAME( "C:/work.old/hello/.prg " ) IS "C:/work.old/hello/.prg;C:/work.old/hello/;.prg;;" + HBTEST TESTFNAME( "C:/work.old/hello/a.prg " ) IS "C:/work.old/hello/a.prg;C:/work.old/hello/;a;.prg;" + HBTEST TESTFNAME( "C:/work.old/hello/a.b.prg " ) IS "C:/work.old/hello/a.b.prg;C:/work.old/hello/;a.b;.prg;" + HBTEST TESTFNAME( "C:work.old/hello " ) IS "C:work.old/hello;C:work.old/;hello;;" + HBTEST TESTFNAME( "C:work.old/hello. " ) IS "C:work.old/hello.;C:work.old/;hello;.;" + HBTEST TESTFNAME( "C:work.old/hello.prg " ) IS "C:work.old/hello.prg;C:work.old/;hello;.prg;" + HBTEST TESTFNAME( "C:work.old/hello/ " ) IS "C:work.old/hello/;C:work.old/hello/;;;" + HBTEST TESTFNAME( "C:work.old/hello/.prg " ) IS "C:work.old/hello/.prg;C:work.old/hello/;.prg;;" + HBTEST TESTFNAME( "C:work.old/hello/a.prg " ) IS "C:work.old/hello/a.prg;C:work.old/hello/;a;.prg;" + HBTEST TESTFNAME( "C:work.old/hello/a.b.prg " ) IS "C:work.old/hello/a.b.prg;C:work.old/hello/;a.b;.prg;" + HBTEST TESTFNAME( "C:.old/hello " ) IS "C:.old/hello;C:.old/;hello;;" + HBTEST TESTFNAME( "C:.old/hello. " ) IS "C:.old/hello.;C:.old/;hello;.;" + HBTEST TESTFNAME( "C:.old/hello.prg " ) IS "C:.old/hello.prg;C:.old/;hello;.prg;" + HBTEST TESTFNAME( "C:.old/hello/ " ) IS "C:.old/hello/;C:.old/hello/;;;" + HBTEST TESTFNAME( "C:.old/hello/.prg " ) IS "C:.old/hello/.prg;C:.old/hello/;.prg;;" + HBTEST TESTFNAME( "C:.old/hello/a.prg " ) IS "C:.old/hello/a.prg;C:.old/hello/;a;.prg;" + HBTEST TESTFNAME( "C:.old/hello/a.b.prg " ) IS "C:.old/hello/a.b.prg;C:.old/hello/;a.b;.prg;" + HBTEST TESTFNAME( "//server/work/hello " ) IS "//server/work/hello;//server/work/;hello;;" + HBTEST TESTFNAME( "//server/work/hello. " ) IS "//server/work/hello.;//server/work/;hello;.;" + HBTEST TESTFNAME( "//server/work/hello.prg " ) IS "//server/work/hello.prg;//server/work/;hello;.prg;" + HBTEST TESTFNAME( "//server/work/hello/ " ) IS "//server/work/hello/;//server/work/hello/;;;" + HBTEST TESTFNAME( "//server/work/hello/.prg " ) IS "//server/work/hello/.prg;//server/work/hello/;.prg;;" + HBTEST TESTFNAME( "//server/work/hello/a.prg " ) IS "//server/work/hello/a.prg;//server/work/hello/;a;.prg;" + HBTEST TESTFNAME( "//server/work/hello/a.b.prg" ) IS "//server/work/hello/a.b.prg;//server/work/hello/;a.b;.prg;" + HBTEST TESTFNAME( "/server/work/hello " ) IS "/server/work/hello;/server/work/;hello;;" + HBTEST TESTFNAME( "/server/work/hello. " ) IS "/server/work/hello.;/server/work/;hello;.;" + HBTEST TESTFNAME( "/server/work/hello.prg " ) IS "/server/work/hello.prg;/server/work/;hello;.prg;" + HBTEST TESTFNAME( "/server/work/hello/ " ) IS "/server/work/hello/;/server/work/hello/;;;" + HBTEST TESTFNAME( "/server/work/hello/.prg " ) IS "/server/work/hello/.prg;/server/work/hello/;.prg;;" + HBTEST TESTFNAME( "/server/work/hello/a.prg " ) IS "/server/work/hello/a.prg;/server/work/hello/;a;.prg;" + HBTEST TESTFNAME( "/server/work/hello/a.b.prg " ) IS "/server/work/hello/a.b.prg;/server/work/hello/;a.b;.prg;" + HBTEST TESTFNAME( "C:/hello " ) IS "C:/hello;C:/;hello;;" + HBTEST TESTFNAME( "C:/hello. " ) IS "C:/hello.;C:/;hello;.;" + HBTEST TESTFNAME( "C:/hello.prg " ) IS "C:/hello.prg;C:/;hello;.prg;" + HBTEST TESTFNAME( "C:/hello/ " ) IS "C:/hello/;C:/hello/;;;" + HBTEST TESTFNAME( "C:/hello/.prg " ) IS "C:/hello/.prg;C:/hello/;.prg;;" + HBTEST TESTFNAME( "C:/hello/a.prg " ) IS "C:/hello/a.prg;C:/hello/;a;.prg;" + HBTEST TESTFNAME( "C:/hello/a.b.prg " ) IS "C:/hello/a.b.prg;C:/hello/;a.b;.prg;" #ifdef __PLATFORM__UNIX - TEST_LINE( TESTFNAME( "C:hello " ) , "C:hello;;C:hello;;" ) - TEST_LINE( TESTFNAME( "C:hello. " ) , "C:hello.;;C:hello;.;" ) - TEST_LINE( TESTFNAME( "C:hello.prg " ) , "C:hello.prg;;C:hello;.prg;" ) + HBTEST TESTFNAME( "C:hello " ) IS "C:hello;;C:hello;;" + HBTEST TESTFNAME( "C:hello. " ) IS "C:hello.;;C:hello;.;" + HBTEST TESTFNAME( "C:hello.prg " ) IS "C:hello.prg;;C:hello;.prg;" #else - TEST_LINE( TESTFNAME( "C:hello " ) , "C:hello;C:;hello;;" ) - TEST_LINE( TESTFNAME( "C:hello. " ) , "C:hello.;C:;hello;.;" ) - TEST_LINE( TESTFNAME( "C:hello.prg " ) , "C:hello.prg;C:;hello;.prg;" ) + HBTEST TESTFNAME( "C:hello " ) IS "C:hello;C:;hello;;" + HBTEST TESTFNAME( "C:hello. " ) IS "C:hello.;C:;hello;.;" + HBTEST TESTFNAME( "C:hello.prg " ) IS "C:hello.prg;C:;hello;.prg;" #endif - TEST_LINE( TESTFNAME( "C:hello/ " ) , "C:hello/;C:hello/;;;" ) - TEST_LINE( TESTFNAME( "C:hello/.prg " ) , "C:hello/.prg;C:hello/;.prg;;" ) - TEST_LINE( TESTFNAME( "C:hello/a.prg " ) , "C:hello/a.prg;C:hello/;a;.prg;" ) - TEST_LINE( TESTFNAME( "C:hello/a.b.prg " ) , "C:hello/a.b.prg;C:hello/;a.b;.prg;" ) - TEST_LINE( TESTFNAME( "//hello " ) , "//hello;//;hello;;" ) - TEST_LINE( TESTFNAME( "//hello. " ) , "//hello.;//;hello;.;" ) - TEST_LINE( TESTFNAME( "//hello.prg " ) , "//hello.prg;//;hello;.prg;" ) - TEST_LINE( TESTFNAME( "//hello/ " ) , "//hello/;//hello/;;;" ) - TEST_LINE( TESTFNAME( "//.prg " ) , "//.prg;//;.prg;;" ) - TEST_LINE( TESTFNAME( "//a.prg " ) , "//a.prg;//;a;.prg;" ) - TEST_LINE( TESTFNAME( "//a.b.prg " ) , "//a.b.prg;//;a.b;.prg;" ) - TEST_LINE( TESTFNAME( "/hello " ) , "/hello;/;hello;;" ) - TEST_LINE( TESTFNAME( "/hello. " ) , "/hello.;/;hello;.;" ) - TEST_LINE( TESTFNAME( "/hello.prg " ) , "/hello.prg;/;hello;.prg;" ) - TEST_LINE( TESTFNAME( "/hello/ " ) , "/hello/;/hello/;;;" ) - TEST_LINE( TESTFNAME( "/hello/.prg " ) , "/hello/.prg;/hello/;.prg;;" ) - TEST_LINE( TESTFNAME( "/hello/a.prg " ) , "/hello/a.prg;/hello/;a;.prg;" ) - TEST_LINE( TESTFNAME( "/hello/a.b.prg " ) , "/hello/a.b.prg;/hello/;a.b;.prg;" ) - TEST_LINE( TESTFNAME( "hello " ) , "hello;;hello;;" ) - TEST_LINE( TESTFNAME( "hello. " ) , "hello.;;hello;.;" ) - TEST_LINE( TESTFNAME( "hello.prg " ) , "hello.prg;;hello;.prg;" ) - TEST_LINE( TESTFNAME( "hello/ " ) , "hello/;hello/;;;" ) - TEST_LINE( TESTFNAME( ".prg " ) , ".prg;;.prg;;" ) - TEST_LINE( TESTFNAME( "a.prg " ) , "a.prg;;a;.prg;" ) - TEST_LINE( TESTFNAME( "a.b.prg " ) , "a.b.prg;;a.b;.prg;" ) - TEST_LINE( TESTFNAME( " " ) , ";;;;" ) - TEST_LINE( TESTFNAME( "/ " ) , "/;/;;;" ) - TEST_LINE( TESTFNAME( "// " ) , "//;//;;;" ) - TEST_LINE( TESTFNAME( "C " ) , "C;;C;;" ) + HBTEST TESTFNAME( "C:hello/ " ) IS "C:hello/;C:hello/;;;" + HBTEST TESTFNAME( "C:hello/.prg " ) IS "C:hello/.prg;C:hello/;.prg;;" + HBTEST TESTFNAME( "C:hello/a.prg " ) IS "C:hello/a.prg;C:hello/;a;.prg;" + HBTEST TESTFNAME( "C:hello/a.b.prg " ) IS "C:hello/a.b.prg;C:hello/;a.b;.prg;" + HBTEST TESTFNAME( "//hello " ) IS "//hello;//;hello;;" + HBTEST TESTFNAME( "//hello. " ) IS "//hello.;//;hello;.;" + HBTEST TESTFNAME( "//hello.prg " ) IS "//hello.prg;//;hello;.prg;" + HBTEST TESTFNAME( "//hello/ " ) IS "//hello/;//hello/;;;" + HBTEST TESTFNAME( "//.prg " ) IS "//.prg;//;.prg;;" + HBTEST TESTFNAME( "//a.prg " ) IS "//a.prg;//;a;.prg;" + HBTEST TESTFNAME( "//a.b.prg " ) IS "//a.b.prg;//;a.b;.prg;" + HBTEST TESTFNAME( "/hello " ) IS "/hello;/;hello;;" + HBTEST TESTFNAME( "/hello. " ) IS "/hello.;/;hello;.;" + HBTEST TESTFNAME( "/hello.prg " ) IS "/hello.prg;/;hello;.prg;" + HBTEST TESTFNAME( "/hello/ " ) IS "/hello/;/hello/;;;" + HBTEST TESTFNAME( "/hello/.prg " ) IS "/hello/.prg;/hello/;.prg;;" + HBTEST TESTFNAME( "/hello/a.prg " ) IS "/hello/a.prg;/hello/;a;.prg;" + HBTEST TESTFNAME( "/hello/a.b.prg " ) IS "/hello/a.b.prg;/hello/;a.b;.prg;" + HBTEST TESTFNAME( "hello " ) IS "hello;;hello;;" + HBTEST TESTFNAME( "hello. " ) IS "hello.;;hello;.;" + HBTEST TESTFNAME( "hello.prg " ) IS "hello.prg;;hello;.prg;" + HBTEST TESTFNAME( "hello/ " ) IS "hello/;hello/;;;" + HBTEST TESTFNAME( ".prg " ) IS ".prg;;.prg;;" + HBTEST TESTFNAME( "a.prg " ) IS "a.prg;;a;.prg;" + HBTEST TESTFNAME( "a.b.prg " ) IS "a.b.prg;;a.b;.prg;" + HBTEST TESTFNAME( " " ) IS ";;;;" + HBTEST TESTFNAME( "/ " ) IS "/;/;;;" + HBTEST TESTFNAME( "// " ) IS "//;//;;;" + HBTEST TESTFNAME( "C " ) IS "C;;C;;" #ifdef __PLATFORM__UNIX - TEST_LINE( TESTFNAME( "C: " ) , "C:;;C:;;" ) + HBTEST TESTFNAME( "C: " ) IS "C:;;C:;;" #else - TEST_LINE( TESTFNAME( "C: " ) , "C:;C:;;;" ) + HBTEST TESTFNAME( "C: " ) IS "C:;C:;;;" #endif - TEST_LINE( TESTFNAME( "C:/ " ) , "C:/;C:/;;;" ) - TEST_LINE( TESTFNAME( "C:// " ) , "C://;C://;;;" ) + HBTEST TESTFNAME( "C:/ " ) IS "C:/;C:/;;;" + HBTEST TESTFNAME( "C:// " ) IS "C://;C://;;;" #endif @@ -1019,51 +1019,51 @@ PROCEDURE Main_MISC() cEOL := Set( _SET_EOL, Chr(13) + Chr( 10 ) ) #endif - TEST_LINE( MLCToPos( 'A message from me', 10, 2, 0 ) , 11 ) - TEST_LINE( MLCToPos( 'A message from me', 5, 2, 0, 4, .F. ) , 6 ) - TEST_LINE( MLCToPos( 'A'+Chr(9)+'message'+Chr(9)+'from'+Chr(9)+'me', 10, 2, 0, 8 ) , 3 ) - TEST_LINE( MLCToPos( 'abcd efg hijk lm nopqr stu vwxyz', 5, 3, 0 ) , 10 ) - TEST_LINE( MLCToPos( 'abcd efg hijk lm nopqr stu vwxyz', 8, 2, 0 ) , 10 ) - TEST_LINE( MLCToPos( 'abcd efg hijk lm nopqr stu vwxyz', 8, 2, 0,, .F. ) , 9 ) - TEST_LINE( MLCToPos( 'A message from our me', 9, 2, 0 ) , 11 ) - TEST_LINE( MLCToPos( 'A message from our me', 9, 2, 0 ) , 11 ) - TEST_LINE( MLCToPos( 'A message'+Chr(9)+'from me', 10, 2, 0 ) , 11 ) - TEST_LINE( MLCToPos( 'A message from me', 9, 2, 0,, .F. ) , 10 ) - TEST_LINE( MLCToPos( 'A message from me', 9, 2, 0,, .F. ) , 10 ) - TEST_LINE( MLCToPos( 'A message'+Chr(141)+'from me', 10, 2, 0 ) , 3 ) - TEST_LINE( MLCToPos( 'A message'+Chr(141)+'from me', 9, 2, 0 ) , 3 ) - TEST_LINE( MLCToPos( 'A message'+Chr(141)+'from me', 10, 2, 0,, .F. ) , 11 ) - TEST_LINE( MLCToPos( 'A message'+Chr(141)+'from me', 9, 2, 0,, .F. ) , 10 ) - TEST_LINE( MLCToPos( ' message from me', 10, 1, 0 ) , 1 ) - TEST_LINE( MLCToPos( ' message from me', 10, 1, 8 ) , 9 ) - TEST_LINE( MLCToPos( ' message from me', 10, 1, 9 ) , 10 ) - TEST_LINE( MLCToPos( ' message from me', 10, 1, 10 ) , 11 ) - TEST_LINE( MLCToPos( ' message from me', 10, 1, 11 ) , 12 ) - TEST_LINE( MLCToPos( ' message from me', 10, 1, 360 ) , 17 ) - TEST_LINE( MLCToPos( ' message from me', 10, 1, 0,, .F. ) , 1 ) - TEST_LINE( MLCToPos( ' message from me', 10, 1, 8,, .F. ) , 9 ) - TEST_LINE( MLCToPos( ' message from me', 10, 1, 9,, .F. ) , 10 ) - TEST_LINE( MLCToPos( ' message from me', 10, 1, 10,, .F. ) , 11 ) - TEST_LINE( MLCToPos( ' message from me', 10, 1, 11,, .F. ) , 12 ) - TEST_LINE( MLCToPos( ' message from me', 10, 1, 360,, .F. ) , 17 ) - TEST_LINE( MLCToPos( ' message'+Chr(9)+'from me', 10, 1, 11,, .T. ) , 9 ) - TEST_LINE( MLCToPos( ' message'+Chr(9)+'from me', 10, 1, 11,, .F. ) , 9 ) - TEST_LINE( MLCToPos( ' message'+Chr(9)+'from me', 10, 2, 11 ) , 17 ) - TEST_LINE( MLCToPos( ' message'+Chr(9)+'from me', 10, 1, 15,, .T. ) , 13 ) - TEST_LINE( MLCToPos( ' message'+Chr(9)+'from me', 10, 1, 15,, .F. ) , 13 ) - TEST_LINE( MLCToPos( Chr(13)+Chr(10)+' message'+Chr(9)+'from me', 10, 1, 15,, .F. ) , 1 ) - TEST_LINE( MLCToPos( Chr(13)+Chr(10)+' message'+Chr(9)+'from me', 10, 1, 15,, .T. ) , 1 ) - TEST_LINE( MLCToPos( 'A '+Chr(13)+Chr(10)+'message from me', 9, 2, 0 ) , 5 ) - TEST_LINE( MLCToPos( 'A '+Chr(141)+Chr(10)+'message from me', 9, 2, 0 ) , 13 ) - TEST_LINE( MLCToPos( 'A'+Chr(141)+Chr(10)+'message from me', 9, 2, 0 ) , 12 ) - TEST_LINE( MLCToPos( 'A'+Chr(141)+'message from me', 9, 2, 0 ) , 11 ) - TEST_LINE( MLCToPos( 'A'+Chr(13)+'message from me', 9, 2, 0 ) , 11 ) - TEST_LINE( MLCToPos( 'A'+Chr(10)+'message from me', 9, 2, 0 ) , 11 ) - TEST_LINE( MLCToPos( 'A '+Chr(13)+'message from me', 9, 2, 0 ) , 3 ) - TEST_LINE( MLCToPos( 'A '+Chr(10)+'message from me', 9, 2, 0 ) , 3 ) - TEST_LINE( MLCToPos( 'A message from me', 10, 7, 0 ) , 18 ) - TEST_LINE( MLCToPos( , , , ) , 1 ) - TEST_LINE( MLCToPos( , .T., , ) , 1 ) + HBTEST MLCToPos( 'A message from me', 10, 2, 0 ) IS 11 + HBTEST MLCToPos( 'A message from me', 5, 2, 0, 4, .F. ) IS 6 + HBTEST MLCToPos( 'A'+Chr(9)+'message'+Chr(9)+'from'+Chr(9)+'me', 10, 2, 0, 8 ) IS 3 + HBTEST MLCToPos( 'abcd efg hijk lm nopqr stu vwxyz', 5, 3, 0 ) IS 10 + HBTEST MLCToPos( 'abcd efg hijk lm nopqr stu vwxyz', 8, 2, 0 ) IS 10 + HBTEST MLCToPos( 'abcd efg hijk lm nopqr stu vwxyz', 8, 2, 0,, .F. ) IS 9 + HBTEST MLCToPos( 'A message from our me', 9, 2, 0 ) IS 11 + HBTEST MLCToPos( 'A message from our me', 9, 2, 0 ) IS 11 + HBTEST MLCToPos( 'A message'+Chr(9)+'from me', 10, 2, 0 ) IS 11 + HBTEST MLCToPos( 'A message from me', 9, 2, 0,, .F. ) IS 10 + HBTEST MLCToPos( 'A message from me', 9, 2, 0,, .F. ) IS 10 + HBTEST MLCToPos( 'A message'+Chr(141)+'from me', 10, 2, 0 ) IS 3 + HBTEST MLCToPos( 'A message'+Chr(141)+'from me', 9, 2, 0 ) IS 3 + HBTEST MLCToPos( 'A message'+Chr(141)+'from me', 10, 2, 0,, .F. ) IS 11 + HBTEST MLCToPos( 'A message'+Chr(141)+'from me', 9, 2, 0,, .F. ) IS 10 + HBTEST MLCToPos( ' message from me', 10, 1, 0 ) IS 1 + HBTEST MLCToPos( ' message from me', 10, 1, 8 ) IS 9 + HBTEST MLCToPos( ' message from me', 10, 1, 9 ) IS 10 + HBTEST MLCToPos( ' message from me', 10, 1, 10 ) IS 11 + HBTEST MLCToPos( ' message from me', 10, 1, 11 ) IS 12 + HBTEST MLCToPos( ' message from me', 10, 1, 360 ) IS 17 + HBTEST MLCToPos( ' message from me', 10, 1, 0,, .F. ) IS 1 + HBTEST MLCToPos( ' message from me', 10, 1, 8,, .F. ) IS 9 + HBTEST MLCToPos( ' message from me', 10, 1, 9,, .F. ) IS 10 + HBTEST MLCToPos( ' message from me', 10, 1, 10,, .F. ) IS 11 + HBTEST MLCToPos( ' message from me', 10, 1, 11,, .F. ) IS 12 + HBTEST MLCToPos( ' message from me', 10, 1, 360,, .F. ) IS 17 + HBTEST MLCToPos( ' message'+Chr(9)+'from me', 10, 1, 11,, .T. ) IS 9 + HBTEST MLCToPos( ' message'+Chr(9)+'from me', 10, 1, 11,, .F. ) IS 9 + HBTEST MLCToPos( ' message'+Chr(9)+'from me', 10, 2, 11 ) IS 17 + HBTEST MLCToPos( ' message'+Chr(9)+'from me', 10, 1, 15,, .T. ) IS 13 + HBTEST MLCToPos( ' message'+Chr(9)+'from me', 10, 1, 15,, .F. ) IS 13 + HBTEST MLCToPos( Chr(13)+Chr(10)+' message'+Chr(9)+'from me', 10, 1, 15,, .F. ) IS 1 + HBTEST MLCToPos( Chr(13)+Chr(10)+' message'+Chr(9)+'from me', 10, 1, 15,, .T. ) IS 1 + HBTEST MLCToPos( 'A '+Chr(13)+Chr(10)+'message from me', 9, 2, 0 ) IS 5 + HBTEST MLCToPos( 'A '+Chr(141)+Chr(10)+'message from me', 9, 2, 0 ) IS 13 + HBTEST MLCToPos( 'A'+Chr(141)+Chr(10)+'message from me', 9, 2, 0 ) IS 12 + HBTEST MLCToPos( 'A'+Chr(141)+'message from me', 9, 2, 0 ) IS 11 + HBTEST MLCToPos( 'A'+Chr(13)+'message from me', 9, 2, 0 ) IS 11 + HBTEST MLCToPos( 'A'+Chr(10)+'message from me', 9, 2, 0 ) IS 11 + HBTEST MLCToPos( 'A '+Chr(13)+'message from me', 9, 2, 0 ) IS 3 + HBTEST MLCToPos( 'A '+Chr(10)+'message from me', 9, 2, 0 ) IS 3 + HBTEST MLCToPos( 'A message from me', 10, 7, 0 ) IS 18 + HBTEST MLCToPos( , , , ) IS 1 + HBTEST MLCToPos( , .T., , ) IS 1 #ifdef __HARBOUR__ Set( _SET_EOL, cEOL ) @@ -1078,33 +1078,33 @@ PROCEDURE Main_OPOVERL() oString:cValue := "Hello" - TEST_LINE( oString = "Hello" , .T. ) - TEST_LINE( oString == "Hello" , .T. ) - TEST_LINE( oString != "Hello" , .F. ) - TEST_LINE( oString <> "Hello" , .F. ) - TEST_LINE( oString # "Hello" , .F. ) - TEST_LINE( oString $ "Hello" , .T. ) - TEST_LINE( oString < "Hello" , .F. ) - TEST_LINE( oString <= "Hello" , .T. ) - TEST_LINE( oString < "Hello" , .F. ) - TEST_LINE( oString <= "Hello" , .T. ) - TEST_LINE( oString + "Hello" , "HelloHello" ) - TEST_LINE( oString - "Hello" , "HelloHello" ) - TEST_LINE( oString * 3 , "HelloHelloHello" ) - TEST_LINE( oString / 2 , "He" ) - TEST_LINE( oString % "TST" , "Hello % TST" ) - TEST_LINE( oString ^ "TST" , "Hello ^ TST" ) - TEST_LINE( oString ** "TST" , "Hello ^ TST" ) + HBTEST oString = "Hello" IS .T. + HBTEST oString == "Hello" IS .T. + HBTEST oString != "Hello" IS .F. + HBTEST oString <> "Hello" IS .F. + HBTEST oString # "Hello" IS .F. + HBTEST oString $ "Hello" IS .T. + HBTEST oString < "Hello" IS .F. + HBTEST oString <= "Hello" IS .T. + HBTEST oString < "Hello" IS .F. + HBTEST oString <= "Hello" IS .T. + HBTEST oString + "Hello" IS "HelloHello" + HBTEST oString - "Hello" IS "HelloHello" + HBTEST oString * 3 IS "HelloHelloHello" + HBTEST oString / 2 IS "He" + HBTEST oString % "TST" IS "Hello % TST" + HBTEST oString ^ "TST" IS "Hello ^ TST" + HBTEST oString ** "TST" IS "Hello ^ TST" IF ! TEST_OPT_Z() - TEST_LINE( oString .AND. "TST" , "Hello AND TST" ) - TEST_LINE( oString .OR. "TST" , "Hello OR TST" ) + HBTEST oString .AND. "TST" IS "Hello AND TST" + HBTEST oString .OR. "TST" IS "Hello OR TST" ENDIF - TEST_LINE( .NOT. oString , "¸›””‘" ) - TEST_LINE( !oString , "¸›””‘" ) - TEST_LINE( oString++ , "HB_TSTRING Object" ) - TEST_LINE( oString:cValue , "Hello " ) - TEST_LINE( oString-- , "HB_TSTRING Object" ) - TEST_LINE( oString:cValue , "Hello" ) + HBTEST .NOT. oString IS "¸›””‘" + HBTEST !oString IS "¸›””‘" + HBTEST oString++ IS "HB_TSTRING Object" + HBTEST oString:cValue IS "Hello " + HBTEST oString-- IS "HB_TSTRING Object" + HBTEST oString:cValue IS "Hello" RETURN diff --git a/harbour/utils/hbtest/rt_mt.prg b/harbour/utils/hbtest/rt_mt.prg index 077f0c54ff..5f10801a21 100644 --- a/harbour/utils/hbtest/rt_mt.prg +++ b/harbour/utils/hbtest/rt_mt.prg @@ -62,7 +62,7 @@ PROCEDURE Main_MT() #ifdef __HARBOUR__ IF hb_mtvm() - TEST_LINE( DO_MTTES1() , "OK" ) + HBTEST DO_MTTES1() IS "OK" ENDIF #endif diff --git a/harbour/utils/hbtest/rt_str.prg b/harbour/utils/hbtest/rt_str.prg index 51689761df..05da9af80d 100644 --- a/harbour/utils/hbtest/rt_str.prg +++ b/harbour/utils/hbtest/rt_str.prg @@ -70,8 +70,8 @@ PROCEDURE Main_STR() /* Val() */ - TEST_LINE( Val( NIL ) , "E 1 BASE 1098 Argument error (VAL) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( Val( 10 ) , "E 1 BASE 1098 Argument error (VAL) OS:0 #:0 A:1:N:10 F:S" ) + HBTEST Val( NIL ) IS "E 1 BASE 1098 Argument error (VAL) OS:0 #:0 A:1:U:NIL F:S" + HBTEST Val( 10 ) IS "E 1 BASE 1098 Argument error (VAL) OS:0 #:0 A:1:N:10 F:S" #ifndef RT_NO_C @@ -80,367 +80,367 @@ PROCEDURE Main_STR() #else IF l64 #endif - TEST_LINE( Str(R_PASSENL( 1860637360 )) , "1860637360" ) - TEST_LINE( Str(R_PASSENL( 100 )) , " 100" ) - TEST_LINE( Str(R_PASSENL( 999999999 )) , " 999999999" ) - TEST_LINE( Str(R_PASSENL( 1000000000 )) , "1000000000" ) - TEST_LINE( Str(R_PASSENL( 2147483647 )) , "2147483647" ) - TEST_LINE( Str(R_PASSENL( 2147483648 )) , "2147483648" ) - TEST_LINE( Str(R_PASSENL( -1 )) , " -1" ) - TEST_LINE( Str(R_PASSENL( -999999999 )) , "-999999999" ) - TEST_LINE( Str(R_PASSENL( -1000000000 )) , " -1000000000" ) - TEST_LINE( Str(R_PASSENL( -99999999 )) , " -99999999" ) - TEST_LINE( Str(R_PASSENL( -100000000 )) , "-100000000" ) + HBTEST Str(R_PASSENL( 1860637360 )) IS "1860637360" + HBTEST Str(R_PASSENL( 100 )) IS " 100" + HBTEST Str(R_PASSENL( 999999999 )) IS " 999999999" + HBTEST Str(R_PASSENL( 1000000000 )) IS "1000000000" + HBTEST Str(R_PASSENL( 2147483647 )) IS "2147483647" + HBTEST Str(R_PASSENL( 2147483648 )) IS "2147483648" + HBTEST Str(R_PASSENL( -1 )) IS " -1" + HBTEST Str(R_PASSENL( -999999999 )) IS "-999999999" + HBTEST Str(R_PASSENL( -1000000000 )) IS " -1000000000" + HBTEST Str(R_PASSENL( -99999999 )) IS " -99999999" + HBTEST Str(R_PASSENL( -100000000 )) IS "-100000000" - TEST_LINE( Str(R_PASSENLC()) , "1000000000" ) + HBTEST Str(R_PASSENLC()) IS "1000000000" ELSE - TEST_LINE( Str(R_PASSENL( 1860637360 )) , " 1860637360" ) - TEST_LINE( Str(R_PASSENL( 100 )) , " 100" ) - TEST_LINE( Str(R_PASSENL( 999999999 )) , " 999999999" ) - TEST_LINE( Str(R_PASSENL( 1000000000 )) , " 1000000000" ) - TEST_LINE( Str(R_PASSENL( 2147483647 )) , " 2147483647" ) - TEST_LINE( Str(R_PASSENL( 2147483648 )) , " -2147483648" ) - TEST_LINE( Str(R_PASSENL( -1 )) , " -1" ) - TEST_LINE( Str(R_PASSENL( -999999999 )) , "-999999999" ) - TEST_LINE( Str(R_PASSENL( -1000000000 )) , " -1000000000" ) - TEST_LINE( Str(R_PASSENL( -99999999 )) , " -99999999" ) - TEST_LINE( Str(R_PASSENL( -100000000 )) , "-100000000" ) + HBTEST Str(R_PASSENL( 1860637360 )) IS " 1860637360" + HBTEST Str(R_PASSENL( 100 )) IS " 100" + HBTEST Str(R_PASSENL( 999999999 )) IS " 999999999" + HBTEST Str(R_PASSENL( 1000000000 )) IS " 1000000000" + HBTEST Str(R_PASSENL( 2147483647 )) IS " 2147483647" + HBTEST Str(R_PASSENL( 2147483648 )) IS " -2147483648" + HBTEST Str(R_PASSENL( -1 )) IS " -1" + HBTEST Str(R_PASSENL( -999999999 )) IS "-999999999" + HBTEST Str(R_PASSENL( -1000000000 )) IS " -1000000000" + HBTEST Str(R_PASSENL( -99999999 )) IS " -99999999" + HBTEST Str(R_PASSENL( -100000000 )) IS "-100000000" - TEST_LINE( Str(R_PASSENLC()) , " 1000000000" ) + HBTEST Str(R_PASSENLC()) IS " 1000000000" ENDIF #endif - TEST_LINE( Str(Val("")) , " 0" ) + HBTEST Str(Val("")) IS " 0" - TEST_LINE( Str(Val("")) , " 0" ) - TEST_LINE( Str(Val(" ")) , "0" ) - TEST_LINE( Str(Val("-")) , "0" ) - TEST_LINE( Str(Val("+")) , "0" ) - TEST_LINE( Str(Val("-+")) , " 0" ) - TEST_LINE( Str(Val("+-")) , " 0" ) - TEST_LINE( Str(Val(".")) , "0" ) - TEST_LINE( Str(Val("..")) , "0.0" ) - TEST_LINE( Str(Val("-.")) , " 0" ) /* Bug in CA-Cl*pper 5.3b, it will return: " 0" */ - TEST_LINE( Str(Val("-..")) , "0.0" ) /* Bug in CA-Cl*pper 5.3b, it will return: " 0.0" */ - TEST_LINE( Str(Val("1.")) , " 1" ) - TEST_LINE( Str(Val("1..")) , "1.0" ) - TEST_LINE( Str(Val("1...")) , "1.00" ) - TEST_LINE( Str(Val("-1.")) , " -1" ) - TEST_LINE( Str(Val(" -1.")) , " -1" ) - TEST_LINE( Str(Val(" --1.")) , " 0" ) - TEST_LINE( Str(Val("-1..")) , "-1.0" ) - TEST_LINE( Str(Val("-1...")) , "-1.00" ) - TEST_LINE( Str(Val(".1")) , "0.1" ) - TEST_LINE( Str(Val("-.1")) , "-0.1" ) - TEST_LINE( Str(Val("-.0")) , "0.0" ) /* Bug in CA-Cl*pper 5.3b, it will return: " 0.0" */ - TEST_LINE( Str(Val(" -.1")) , "-0.1" ) - TEST_LINE( Str(Val(" --.1")) , " 0.0" ) - TEST_LINE( Str(Val("+.1")) , "0.1" ) - TEST_LINE( Str(Val(" .1")) , "0.1" ) - TEST_LINE( Str(Val("- .1")) , " 0.0" ) - TEST_LINE( Str(Val("+.1")) , "0.1" ) - TEST_LINE( Str(Val("- 12")) , " 0" ) - TEST_LINE( Str(Val(" - 12")) , " 0" ) - TEST_LINE( Str(Val(" -12")) , " -12" ) - TEST_LINE( Str(Val(" --12")) , " 0" ) - TEST_LINE( Str(Val(" 12-")) , " 12" ) - TEST_LINE( Str(Val(" 12 -")) , " 12" ) - TEST_LINE( Str(Val(" 13.1.9")) , " 13.100" ) - TEST_LINE( Str(Val(" 12")) , " 12" ) - TEST_LINE( Str(Val(" 12"+Chr(0)+"0")) , " 12" ) - TEST_LINE( Str(Val(" 12.1"+Chr(0)+"2")) , " 12.100" ) - TEST_LINE( Str(Val(" 12"+Chr(0)+".2")) , " 12.0" ) - TEST_LINE( Str(Val(" 12.0")) , " 12.0" ) - TEST_LINE( Str(Val(" 12. 0")) , " 12.00" ) - TEST_LINE( Str(Val(" 12 .0")) , " 12.0" ) - TEST_LINE( Str(Val(" 12. 00")) , " 12.000" ) - TEST_LINE( Str(Val(" 12 .00")) , " 12.00" ) - TEST_LINE( Str(Val(" 12. 1")) , " 12.00" ) - TEST_LINE( Str(Val(" 12 .1")) , " 12.0" ) - TEST_LINE( Str(Val(" 12. 10")) , " 12.000" ) - TEST_LINE( Str(Val(" 12 .10")) , " 12.00" ) - TEST_LINE( Str(Val("+ 12")) , " 0" ) - TEST_LINE( Str(Val(" + 12")) , " 0" ) - TEST_LINE( Str(Val(" +12")) , " 12" ) - TEST_LINE( Str(Val("+++12")) , " 0" ) - TEST_LINE( Str(Val(Chr(9)+"12")) , " 12" ) - TEST_LINE( Str(Val(Chr(10)+"12")) , " 12" ) - TEST_LINE( Str(Val(Chr(13)+"12")) , " 12" ) - TEST_LINE( Str(Val("1E2")) , " 1" ) - TEST_LINE( Str(Val("+INF")) , " 0" ) - TEST_LINE( Str(Val("-INF")) , " 0" ) - TEST_LINE( Str(Val("+NAN")) , " 0" ) - TEST_LINE( Str(Val("-NAN")) , " 0" ) - TEST_LINE( Str(Val("2.0000000000000001")) , "2.0000000000000000" ) - TEST_LINE( Str(Val("2.0000000000000009")) , "2.0000000000000010" ) - TEST_LINE( Str(Val("2.000000000000001")) , "2.000000000000001" ) - TEST_LINE( Str(Val("2.000000000000009")) , "2.000000000000009" ) - TEST_LINE( Str(Val("2.00000000000001")) , "2.00000000000001" ) - TEST_LINE( Str(Val("2.00000000000009")) , "2.00000000000009" ) - TEST_LINE( Str(Val("2.000000000001")) , "2.000000000001" ) - TEST_LINE( Str(Val("2.00000000001")) , "2.00000000001" ) - TEST_LINE( Str(Val("1HELLO.")) , " 1" ) + HBTEST Str(Val("")) IS " 0" + HBTEST Str(Val(" ")) IS "0" + HBTEST Str(Val("-")) IS "0" + HBTEST Str(Val("+")) IS "0" + HBTEST Str(Val("-+")) IS " 0" + HBTEST Str(Val("+-")) IS " 0" + HBTEST Str(Val(".")) IS "0" + HBTEST Str(Val("..")) IS "0.0" + HBTEST Str(Val("-.")) IS " 0" /* Bug in CA-Cl*pper 5.3b, it will return: " 0" */ + HBTEST Str(Val("-..")) IS "0.0" /* Bug in CA-Cl*pper 5.3b, it will return: " 0.0" */ + HBTEST Str(Val("1.")) IS " 1" + HBTEST Str(Val("1..")) IS "1.0" + HBTEST Str(Val("1...")) IS "1.00" + HBTEST Str(Val("-1.")) IS " -1" + HBTEST Str(Val(" -1.")) IS " -1" + HBTEST Str(Val(" --1.")) IS " 0" + HBTEST Str(Val("-1..")) IS "-1.0" + HBTEST Str(Val("-1...")) IS "-1.00" + HBTEST Str(Val(".1")) IS "0.1" + HBTEST Str(Val("-.1")) IS "-0.1" + HBTEST Str(Val("-.0")) IS "0.0" /* Bug in CA-Cl*pper 5.3b, it will return: " 0.0" */ + HBTEST Str(Val(" -.1")) IS "-0.1" + HBTEST Str(Val(" --.1")) IS " 0.0" + HBTEST Str(Val("+.1")) IS "0.1" + HBTEST Str(Val(" .1")) IS "0.1" + HBTEST Str(Val("- .1")) IS " 0.0" + HBTEST Str(Val("+.1")) IS "0.1" + HBTEST Str(Val("- 12")) IS " 0" + HBTEST Str(Val(" - 12")) IS " 0" + HBTEST Str(Val(" -12")) IS " -12" + HBTEST Str(Val(" --12")) IS " 0" + HBTEST Str(Val(" 12-")) IS " 12" + HBTEST Str(Val(" 12 -")) IS " 12" + HBTEST Str(Val(" 13.1.9")) IS " 13.100" + HBTEST Str(Val(" 12")) IS " 12" + HBTEST Str(Val(" 12"+Chr(0)+"0")) IS " 12" + HBTEST Str(Val(" 12.1"+Chr(0)+"2")) IS " 12.100" + HBTEST Str(Val(" 12"+Chr(0)+".2")) IS " 12.0" + HBTEST Str(Val(" 12.0")) IS " 12.0" + HBTEST Str(Val(" 12. 0")) IS " 12.00" + HBTEST Str(Val(" 12 .0")) IS " 12.0" + HBTEST Str(Val(" 12. 00")) IS " 12.000" + HBTEST Str(Val(" 12 .00")) IS " 12.00" + HBTEST Str(Val(" 12. 1")) IS " 12.00" + HBTEST Str(Val(" 12 .1")) IS " 12.0" + HBTEST Str(Val(" 12. 10")) IS " 12.000" + HBTEST Str(Val(" 12 .10")) IS " 12.00" + HBTEST Str(Val("+ 12")) IS " 0" + HBTEST Str(Val(" + 12")) IS " 0" + HBTEST Str(Val(" +12")) IS " 12" + HBTEST Str(Val("+++12")) IS " 0" + HBTEST Str(Val(Chr(9)+"12")) IS " 12" + HBTEST Str(Val(Chr(10)+"12")) IS " 12" + HBTEST Str(Val(Chr(13)+"12")) IS " 12" + HBTEST Str(Val("1E2")) IS " 1" + HBTEST Str(Val("+INF")) IS " 0" + HBTEST Str(Val("-INF")) IS " 0" + HBTEST Str(Val("+NAN")) IS " 0" + HBTEST Str(Val("-NAN")) IS " 0" + HBTEST Str(Val("2.0000000000000001")) IS "2.0000000000000000" + HBTEST Str(Val("2.0000000000000009")) IS "2.0000000000000010" + HBTEST Str(Val("2.000000000000001")) IS "2.000000000000001" + HBTEST Str(Val("2.000000000000009")) IS "2.000000000000009" + HBTEST Str(Val("2.00000000000001")) IS "2.00000000000001" + HBTEST Str(Val("2.00000000000009")) IS "2.00000000000009" + HBTEST Str(Val("2.000000000001")) IS "2.000000000001" + HBTEST Str(Val("2.00000000001")) IS "2.00000000001" + HBTEST Str(Val("1HELLO.")) IS " 1" /* Chr() */ - TEST_LINE( Chr( NIL ) , "E 1 BASE 1104 Argument error (CHR) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( Chr( "A" ) , "E 1 BASE 1104 Argument error (CHR) OS:0 #:0 A:1:C:A F:S" ) - TEST_LINE( Chr( "ADDDDDD" ) , "E 1 BASE 1104 Argument error (CHR) OS:0 #:0 A:1:C:ADDDDDD F:S" ) - TEST_LINE( Chr( -10000000.0 ) , "€" ) - TEST_LINE( Chr( -100000 ) , "`" ) - TEST_LINE( Chr( -65 ) , "¿" ) - TEST_LINE( Chr( snIntP1 ) , "A" ) + HBTEST Chr( NIL ) IS "E 1 BASE 1104 Argument error (CHR) OS:0 #:0 A:1:U:NIL F:S" + HBTEST Chr( "A" ) IS "E 1 BASE 1104 Argument error (CHR) OS:0 #:0 A:1:C:A F:S" + HBTEST Chr( "ADDDDDD" ) IS "E 1 BASE 1104 Argument error (CHR) OS:0 #:0 A:1:C:ADDDDDD F:S" + HBTEST Chr( -10000000.0 ) IS "€" + HBTEST Chr( -100000 ) IS "`" + HBTEST Chr( -65 ) IS "¿" + HBTEST Chr( snIntP1 ) IS "A" #ifdef __HARBOUR__ - TEST_LINE( Chr( @snIntP1 ) , "A" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1104 Argument error (CHR) OS:0 #:0 A:1:U:65 F:S" */ + HBTEST Chr( @snIntP1 ) IS "A" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1104 Argument error (CHR) OS:0 #:0 A:1:U:65 F:S" */ #endif /* disable Harbour extensions in compiler to replicate Clipper bugs */ #ifdef __HARBOUR__ #pragma -kh- #endif - TEST_LINE( Chr( 0 ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( 0.0 ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( 0.1 ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( -0.1 ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( 66.4 ) , "B" ) - TEST_LINE( Chr( 66.5 ) , "B" ) - TEST_LINE( Chr( 66.6 ) , "B" ) - TEST_LINE( Chr( 255 ) , "ÿ" ) - TEST_LINE( Chr( 256 ) , "" ) /* Due to a bug in CA-Cl*pper compiler optimizer. It should return Chr(0) */ - TEST_LINE( Chr( 256.0 ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( 256.1 ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( ( 256 ) ) , ""+Chr(0)+"" ) /* Double paranthesis should be used here to avoid the optimizer of the CA-Cl*pper compiler */ - TEST_LINE( Chr( 257 ) , "" ) - TEST_LINE( Chr( ( 512 ) ) , ""+Chr(0)+"" ) /* Double paranthesis should be used here to avoid the optimizer of the CA-Cl*pper compiler */ - TEST_LINE( Chr( 1023 ) , "ÿ" ) - TEST_LINE( Chr( ( 1024 ) ) , ""+Chr(0)+"" ) /* Double paranthesis should be used here to avoid the optimizer of the CA-Cl*pper compiler */ - TEST_LINE( Chr( 1025 ) , "" ) - TEST_LINE( Chr( 1000 ) , "è" ) - TEST_LINE( Chr( 100000 ) , " " ) - TEST_LINE( Chr( 100000.0 ) , " " ) + HBTEST Chr( 0 ) IS ""+Chr(0)+"" + HBTEST Chr( 0.0 ) IS ""+Chr(0)+"" + HBTEST Chr( 0.1 ) IS ""+Chr(0)+"" + HBTEST Chr( -0.1 ) IS ""+Chr(0)+"" + HBTEST Chr( 66.4 ) IS "B" + HBTEST Chr( 66.5 ) IS "B" + HBTEST Chr( 66.6 ) IS "B" + HBTEST Chr( 255 ) IS "ÿ" + HBTEST Chr( 256 ) IS "" /* Due to a bug in CA-Cl*pper compiler optimizer. It should return Chr(0) */ + HBTEST Chr( 256.0 ) IS ""+Chr(0)+"" + HBTEST Chr( 256.1 ) IS ""+Chr(0)+"" + HBTEST Chr( ( 256 ) ) IS ""+Chr(0)+"" /* Double paranthesis should be used here to avoid the optimizer of the CA-Cl*pper compiler */ + HBTEST Chr( 257 ) IS "" + HBTEST Chr( ( 512 ) ) IS ""+Chr(0)+"" /* Double paranthesis should be used here to avoid the optimizer of the CA-Cl*pper compiler */ + HBTEST Chr( 1023 ) IS "ÿ" + HBTEST Chr( ( 1024 ) ) IS ""+Chr(0)+"" /* Double paranthesis should be used here to avoid the optimizer of the CA-Cl*pper compiler */ + HBTEST Chr( 1025 ) IS "" + HBTEST Chr( 1000 ) IS "è" + HBTEST Chr( 100000 ) IS " " + HBTEST Chr( 100000.0 ) IS " " #ifdef __HARBOUR__ /* enable Harbour extensions and test correct results results */ #pragma -kh+ - TEST_LINE( Chr( 0 ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( 0.0 ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( 0.1 ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( -0.1 ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( 66.4 ) , "B" ) - TEST_LINE( Chr( 66.5 ) , "B" ) - TEST_LINE( Chr( 66.6 ) , "B" ) - TEST_LINE( Chr( 255 ) , "ÿ" ) - TEST_LINE( Chr( 256 ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( 256.0 ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( 256.1 ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( ( 256 ) ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( 257 ) , "" ) - TEST_LINE( Chr( ( 512 ) ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( 1023 ) , "ÿ" ) - TEST_LINE( Chr( ( 1024 ) ) , ""+Chr(0)+"" ) - TEST_LINE( Chr( 1025 ) , "" ) - TEST_LINE( Chr( 1000 ) , "è" ) - TEST_LINE( Chr( 100000 ) , " " ) - TEST_LINE( Chr( 100000.0 ) , " " ) + HBTEST Chr( 0 ) IS ""+Chr(0)+"" + HBTEST Chr( 0.0 ) IS ""+Chr(0)+"" + HBTEST Chr( 0.1 ) IS ""+Chr(0)+"" + HBTEST Chr( -0.1 ) IS ""+Chr(0)+"" + HBTEST Chr( 66.4 ) IS "B" + HBTEST Chr( 66.5 ) IS "B" + HBTEST Chr( 66.6 ) IS "B" + HBTEST Chr( 255 ) IS "ÿ" + HBTEST Chr( 256 ) IS ""+Chr(0)+"" + HBTEST Chr( 256.0 ) IS ""+Chr(0)+"" + HBTEST Chr( 256.1 ) IS ""+Chr(0)+"" + HBTEST Chr( ( 256 ) ) IS ""+Chr(0)+"" + HBTEST Chr( 257 ) IS "" + HBTEST Chr( ( 512 ) ) IS ""+Chr(0)+"" + HBTEST Chr( 1023 ) IS "ÿ" + HBTEST Chr( ( 1024 ) ) IS ""+Chr(0)+"" + HBTEST Chr( 1025 ) IS "" + HBTEST Chr( 1000 ) IS "è" + HBTEST Chr( 100000 ) IS " " + HBTEST Chr( 100000.0 ) IS " " #endif /* Asc() */ - TEST_LINE( Asc( NIL ) , "E 1 BASE 1107 Argument error (ASC) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( Asc( 100 ) , "E 1 BASE 1107 Argument error (ASC) OS:0 #:0 A:1:N:100 F:S" ) - TEST_LINE( Asc( 20000 ) , "E 1 BASE 1107 Argument error (ASC) OS:0 #:0 A:1:N:20000 F:S" ) - TEST_LINE( Asc( "HELLO" ) , 72 ) - TEST_LINE( Asc( Chr(0) ) , 0 ) - TEST_LINE( Asc( "a" ) , 97 ) - TEST_LINE( Asc( "A" ) , 65 ) - TEST_LINE( Asc( scString ) , 72 ) + HBTEST Asc( NIL ) IS "E 1 BASE 1107 Argument error (ASC) OS:0 #:0 A:1:U:NIL F:S" + HBTEST Asc( 100 ) IS "E 1 BASE 1107 Argument error (ASC) OS:0 #:0 A:1:N:100 F:S" + HBTEST Asc( 20000 ) IS "E 1 BASE 1107 Argument error (ASC) OS:0 #:0 A:1:N:20000 F:S" + HBTEST Asc( "HELLO" ) IS 72 + HBTEST Asc( Chr(0) ) IS 0 + HBTEST Asc( "a" ) IS 97 + HBTEST Asc( "A" ) IS 65 + HBTEST Asc( scString ) IS 72 #ifdef __HARBOUR__ - TEST_LINE( Asc( @scString ) , 72 ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1107 Argument error (ASC) OS:0 #:0 A:1:U:HELLO F:S" */ + HBTEST Asc( @scString ) IS 72 /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1107 Argument error (ASC) OS:0 #:0 A:1:U:HELLO F:S" */ #endif /* IsDigit() */ #ifndef __XPP__ - TEST_LINE( IsDigit() , .F. ) + HBTEST IsDigit() IS .F. #endif - TEST_LINE( IsDigit( 100 ) , .F. ) + HBTEST IsDigit( 100 ) IS .F. #ifdef __HARBOUR__ - TEST_LINE( IsDigit( @scString ) , .F. ) /* Bug in CA-Cl*pper, it will always return .F. */ + HBTEST IsDigit( @scString ) IS .F. /* Bug in CA-Cl*pper, it will always return .F. */ #endif - TEST_LINE( IsDigit( "" ) , .F. ) - TEST_LINE( IsDigit( "A" ) , .F. ) - TEST_LINE( IsDigit( "AA" ) , .F. ) - TEST_LINE( IsDigit( "-" ) , .F. ) - TEST_LINE( IsDigit( "." ) , .F. ) - TEST_LINE( IsDigit( "0" ) , .T. ) - TEST_LINE( IsDigit( "9" ) , .T. ) - TEST_LINE( IsDigit( "123" ) , .T. ) - TEST_LINE( IsDigit( "1" ) , .T. ) - TEST_LINE( IsDigit( "A1" ) , .F. ) - TEST_LINE( IsDigit( "1A" ) , .T. ) + HBTEST IsDigit( "" ) IS .F. + HBTEST IsDigit( "A" ) IS .F. + HBTEST IsDigit( "AA" ) IS .F. + HBTEST IsDigit( "-" ) IS .F. + HBTEST IsDigit( "." ) IS .F. + HBTEST IsDigit( "0" ) IS .T. + HBTEST IsDigit( "9" ) IS .T. + HBTEST IsDigit( "123" ) IS .T. + HBTEST IsDigit( "1" ) IS .T. + HBTEST IsDigit( "A1" ) IS .F. + HBTEST IsDigit( "1A" ) IS .T. /* IsAlpha() */ #ifndef __XPP__ - TEST_LINE( IsAlpha() , .F. ) + HBTEST IsAlpha() IS .F. #endif - TEST_LINE( IsAlpha( 100 ) , .F. ) + HBTEST IsAlpha( 100 ) IS .F. #ifdef __HARBOUR__ - TEST_LINE( IsAlpha( @scString ) , .T. ) /* Bug in CA-Cl*pper, it will always return .F. */ + HBTEST IsAlpha( @scString ) IS .T. /* Bug in CA-Cl*pper, it will always return .F. */ #endif - TEST_LINE( IsAlpha( "" ) , .F. ) - TEST_LINE( IsAlpha( "A" ) , .T. ) - TEST_LINE( IsAlpha( "AA" ) , .T. ) - TEST_LINE( IsAlpha( "-" ) , .F. ) - TEST_LINE( IsAlpha( "." ) , .F. ) - TEST_LINE( IsAlpha( "0" ) , .F. ) - TEST_LINE( IsAlpha( "9" ) , .F. ) - TEST_LINE( IsAlpha( "123" ) , .F. ) - TEST_LINE( IsAlpha( "1" ) , .F. ) - TEST_LINE( IsAlpha( "A" ) , .T. ) - TEST_LINE( IsAlpha( "A1" ) , .T. ) - TEST_LINE( IsAlpha( "aa" ) , .T. ) - TEST_LINE( IsAlpha( "za" ) , .T. ) - TEST_LINE( IsAlpha( "Aa" ) , .T. ) - TEST_LINE( IsAlpha( "Za" ) , .T. ) - TEST_LINE( IsAlpha( "@" ) , .F. ) - TEST_LINE( IsAlpha( "[" ) , .F. ) - TEST_LINE( IsAlpha( "`" ) , .F. ) - TEST_LINE( IsAlpha( "{" ) , .F. ) + HBTEST IsAlpha( "" ) IS .F. + HBTEST IsAlpha( "A" ) IS .T. + HBTEST IsAlpha( "AA" ) IS .T. + HBTEST IsAlpha( "-" ) IS .F. + HBTEST IsAlpha( "." ) IS .F. + HBTEST IsAlpha( "0" ) IS .F. + HBTEST IsAlpha( "9" ) IS .F. + HBTEST IsAlpha( "123" ) IS .F. + HBTEST IsAlpha( "1" ) IS .F. + HBTEST IsAlpha( "A" ) IS .T. + HBTEST IsAlpha( "A1" ) IS .T. + HBTEST IsAlpha( "aa" ) IS .T. + HBTEST IsAlpha( "za" ) IS .T. + HBTEST IsAlpha( "Aa" ) IS .T. + HBTEST IsAlpha( "Za" ) IS .T. + HBTEST IsAlpha( "@" ) IS .F. + HBTEST IsAlpha( "[" ) IS .F. + HBTEST IsAlpha( "`" ) IS .F. + HBTEST IsAlpha( "{" ) IS .F. /* IsUpper() */ #ifndef __XPP__ - TEST_LINE( IsUpper() , .F. ) + HBTEST IsUpper() IS .F. #endif - TEST_LINE( IsUpper( 100 ) , .F. ) + HBTEST IsUpper( 100 ) IS .F. #ifdef __HARBOUR__ - TEST_LINE( IsUpper( @scString ) , .T. ) /* Bug in CA-Cl*pper, it will always return .F. */ + HBTEST IsUpper( @scString ) IS .T. /* Bug in CA-Cl*pper, it will always return .F. */ #endif - TEST_LINE( IsUpper( "" ) , .F. ) - TEST_LINE( IsUpper( "6" ) , .F. ) - TEST_LINE( IsUpper( "A" ) , .T. ) - TEST_LINE( IsUpper( "AA" ) , .T. ) - TEST_LINE( IsUpper( "a" ) , .F. ) - TEST_LINE( IsUpper( "K" ) , .T. ) - TEST_LINE( IsUpper( "Z" ) , .T. ) - TEST_LINE( IsUpper( "z" ) , .F. ) - TEST_LINE( IsUpper( "™" ) , .F. ) - TEST_LINE( IsUpper( "”" ) , .F. ) + HBTEST IsUpper( "" ) IS .F. + HBTEST IsUpper( "6" ) IS .F. + HBTEST IsUpper( "A" ) IS .T. + HBTEST IsUpper( "AA" ) IS .T. + HBTEST IsUpper( "a" ) IS .F. + HBTEST IsUpper( "K" ) IS .T. + HBTEST IsUpper( "Z" ) IS .T. + HBTEST IsUpper( "z" ) IS .F. + HBTEST IsUpper( "™" ) IS .F. + HBTEST IsUpper( "”" ) IS .F. /* IsLower() */ #ifndef __XPP__ - TEST_LINE( IsLower() , .F. ) + HBTEST IsLower() IS .F. #endif - TEST_LINE( IsLower( 100 ) , .F. ) + HBTEST IsLower( 100 ) IS .F. #ifdef __HARBOUR__ - TEST_LINE( IsLower( @scString ) , .F. ) /* Bug in CA-Cl*pper, it will always return .F. */ + HBTEST IsLower( @scString ) IS .F. /* Bug in CA-Cl*pper, it will always return .F. */ #endif - TEST_LINE( IsLower( "" ) , .F. ) - TEST_LINE( IsLower( "6" ) , .F. ) - TEST_LINE( IsLower( "A" ) , .F. ) - TEST_LINE( IsLower( "AA" ) , .F. ) - TEST_LINE( IsLower( "a" ) , .T. ) - TEST_LINE( IsLower( "K" ) , .F. ) - TEST_LINE( IsLower( "Z" ) , .F. ) - TEST_LINE( IsLower( "z" ) , .T. ) - TEST_LINE( IsLower( "™" ) , .F. ) - TEST_LINE( IsLower( "”" ) , .F. ) + HBTEST IsLower( "" ) IS .F. + HBTEST IsLower( "6" ) IS .F. + HBTEST IsLower( "A" ) IS .F. + HBTEST IsLower( "AA" ) IS .F. + HBTEST IsLower( "a" ) IS .T. + HBTEST IsLower( "K" ) IS .F. + HBTEST IsLower( "Z" ) IS .F. + HBTEST IsLower( "z" ) IS .T. + HBTEST IsLower( "™" ) IS .F. + HBTEST IsLower( "”" ) IS .F. /* AllTrim() */ #ifdef HB_COMPAT_C53 /* These lines will cause CA-Cl*pper 5.2e to trash memory and later crash, it was fixed in 5.3 */ - TEST_LINE( AllTrim( NIL ) , "E 1 BASE 2022 Argument error (ALLTRIM) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( AllTrim( 100 ) , "E 1 BASE 2022 Argument error (ALLTRIM) OS:0 #:0 A:1:N:100 F:S" ) + HBTEST AllTrim( NIL ) IS "E 1 BASE 2022 Argument error (ALLTRIM) OS:0 #:0 A:1:U:NIL F:S" + HBTEST AllTrim( 100 ) IS "E 1 BASE 2022 Argument error (ALLTRIM) OS:0 #:0 A:1:N:100 F:S" #endif #ifdef __HARBOUR__ - TEST_LINE( AllTrim(@scString) , "HELLO" ) /* CA-Cl*pper bug, it will terminate the program on this line. */ + HBTEST AllTrim(@scString) IS "HELLO" /* CA-Cl*pper bug, it will terminate the program on this line. */ #endif - TEST_LINE( AllTrim(scString) , "HELLO" ) - TEST_LINE( AllTrim("HELLO") , "HELLO" ) - TEST_LINE( AllTrim( "" ) , "" ) - TEST_LINE( AllTrim( "UA " ) , "UA" ) - TEST_LINE( AllTrim( " UA" ) , "UA" ) - TEST_LINE( AllTrim( " UA " ) , "UA" ) - TEST_LINE( AllTrim( " "+Chr(0)+" UA " ) , ""+Chr(0)+" UA" ) - TEST_LINE( AllTrim( " "+Chr(9)+" UA " ) , "UA" ) - TEST_LINE( AllTrim( " "+Chr(9)+"U"+Chr(9)) , "U"+Chr(9)+"" ) - TEST_LINE( AllTrim( " "+Chr(9)+Chr(9)) , "" ) - TEST_LINE( AllTrim( Chr(10)+"U"+Chr(10)) , "U"+Chr(10)+"" ) - TEST_LINE( AllTrim( Chr(13)+"U"+Chr(13)) , "U"+Chr(13)+"" ) - TEST_LINE( AllTrim( "A"+Chr(10)) , "A"+Chr(10)+"" ) - TEST_LINE( AllTrim( "A"+Chr(13)) , "A"+Chr(13)+"" ) - TEST_LINE( AllTrim( " "+Chr(0)+"ABC"+Chr(0)+" "), ""+Chr(0)+"ABC"+Chr(0)+"" ) + HBTEST AllTrim(scString) IS "HELLO" + HBTEST AllTrim("HELLO") IS "HELLO" + HBTEST AllTrim( "" ) IS "" + HBTEST AllTrim( "UA " ) IS "UA" + HBTEST AllTrim( " UA" ) IS "UA" + HBTEST AllTrim( " UA " ) IS "UA" + HBTEST AllTrim( " "+Chr(0)+" UA " ) IS ""+Chr(0)+" UA" + HBTEST AllTrim( " "+Chr(9)+" UA " ) IS "UA" + HBTEST AllTrim( " "+Chr(9)+"U"+Chr(9)) IS "U"+Chr(9)+"" + HBTEST AllTrim( " "+Chr(9)+Chr(9)) IS "" + HBTEST AllTrim( Chr(10)+"U"+Chr(10)) IS "U"+Chr(10)+"" + HBTEST AllTrim( Chr(13)+"U"+Chr(13)) IS "U"+Chr(13)+"" + HBTEST AllTrim( "A"+Chr(10)) IS "A"+Chr(10)+"" + HBTEST AllTrim( "A"+Chr(13)) IS "A"+Chr(13)+"" + HBTEST AllTrim( " "+Chr(0)+"ABC"+Chr(0)+" ") IS ""+Chr(0)+"ABC"+Chr(0)+"" /* Trim() */ - TEST_LINE( Trim( 100 ) , "E 1 BASE 1100 Argument error (TRIM) OS:0 #:0 A:1:N:100 F:S" ) - TEST_LINE( Trim( NIL ) , "E 1 BASE 1100 Argument error (TRIM) OS:0 #:0 A:1:U:NIL F:S" ) + HBTEST Trim( 100 ) IS "E 1 BASE 1100 Argument error (TRIM) OS:0 #:0 A:1:N:100 F:S" + HBTEST Trim( NIL ) IS "E 1 BASE 1100 Argument error (TRIM) OS:0 #:0 A:1:U:NIL F:S" #ifdef __HARBOUR__ - TEST_LINE( Trim(@scString) , "HELLO" ) /* CA-Cl*pper bug, it will throw an error here. */ + HBTEST Trim(@scString) IS "HELLO" /* CA-Cl*pper bug, it will throw an error here. */ #endif - TEST_LINE( Trim(scString) , "HELLO" ) - TEST_LINE( Trim("HELLO") , "HELLO" ) - TEST_LINE( Trim( "" ) , "" ) - TEST_LINE( Trim( "UA " ) , "UA" ) - TEST_LINE( Trim( " UA" ) , " UA" ) - TEST_LINE( Trim( " UA " ) , " UA" ) - TEST_LINE( Trim( " "+Chr(0)+" UA " ) , " "+Chr(0)+" UA" ) - TEST_LINE( Trim( " "+Chr(9)+" UA " ) , " "+Chr(9)+" UA" ) - TEST_LINE( Trim( " "+Chr(9)+"U"+Chr(9)) , " "+Chr(9)+"U"+Chr(9)+"" ) - TEST_LINE( Trim( " "+Chr(9)+Chr(9)) , " "+Chr(9)+""+Chr(9)+"" ) - TEST_LINE( Trim( Chr(10)+"U"+Chr(10)) , ""+Chr(10)+"U"+Chr(10)+"" ) - TEST_LINE( Trim( Chr(13)+"U"+Chr(13)) , ""+Chr(13)+"U"+Chr(13)+"" ) - TEST_LINE( Trim( "A"+Chr(10)) , "A"+Chr(10)+"" ) - TEST_LINE( Trim( "A"+Chr(13)) , "A"+Chr(13)+"" ) - TEST_LINE( Trim( " "+Chr(0)+"ABC"+Chr(0)+" "), " "+Chr(0)+"ABC"+Chr(0)+"" ) + HBTEST Trim(scString) IS "HELLO" + HBTEST Trim("HELLO") IS "HELLO" + HBTEST Trim( "" ) IS "" + HBTEST Trim( "UA " ) IS "UA" + HBTEST Trim( " UA" ) IS " UA" + HBTEST Trim( " UA " ) IS " UA" + HBTEST Trim( " "+Chr(0)+" UA " ) IS " "+Chr(0)+" UA" + HBTEST Trim( " "+Chr(9)+" UA " ) IS " "+Chr(9)+" UA" + HBTEST Trim( " "+Chr(9)+"U"+Chr(9)) IS " "+Chr(9)+"U"+Chr(9)+"" + HBTEST Trim( " "+Chr(9)+Chr(9)) IS " "+Chr(9)+""+Chr(9)+"" + HBTEST Trim( Chr(10)+"U"+Chr(10)) IS ""+Chr(10)+"U"+Chr(10)+"" + HBTEST Trim( Chr(13)+"U"+Chr(13)) IS ""+Chr(13)+"U"+Chr(13)+"" + HBTEST Trim( "A"+Chr(10)) IS "A"+Chr(10)+"" + HBTEST Trim( "A"+Chr(13)) IS "A"+Chr(13)+"" + HBTEST Trim( " "+Chr(0)+"ABC"+Chr(0)+" ") IS " "+Chr(0)+"ABC"+Chr(0)+"" /* RTrim() */ - TEST_LINE( RTrim( 100 ) , "E 1 BASE 1100 Argument error (TRIM) OS:0 #:0 A:1:N:100 F:S" ) - TEST_LINE( RTrim( NIL ) , "E 1 BASE 1100 Argument error (TRIM) OS:0 #:0 A:1:U:NIL F:S" ) + HBTEST RTrim( 100 ) IS "E 1 BASE 1100 Argument error (TRIM) OS:0 #:0 A:1:N:100 F:S" + HBTEST RTrim( NIL ) IS "E 1 BASE 1100 Argument error (TRIM) OS:0 #:0 A:1:U:NIL F:S" #ifdef __HARBOUR__ - TEST_LINE( RTrim(@scString) , "HELLO" ) /* CA-Cl*pper bug, it will throw an error here. */ + HBTEST RTrim(@scString) IS "HELLO" /* CA-Cl*pper bug, it will throw an error here. */ #endif - TEST_LINE( RTrim(scString) , "HELLO" ) - TEST_LINE( RTrim("HELLO") , "HELLO" ) - TEST_LINE( RTrim( "" ) , "" ) - TEST_LINE( RTrim( "UA " ) , "UA" ) - TEST_LINE( RTrim( " UA" ) , " UA" ) - TEST_LINE( RTrim( " UA " ) , " UA" ) - TEST_LINE( RTrim( " "+Chr(0)+" UA " ) , " "+Chr(0)+" UA" ) - TEST_LINE( RTrim( " "+Chr(9)+" UA " ) , " "+Chr(9)+" UA" ) - TEST_LINE( RTrim( " "+Chr(9)+"U"+Chr(9)) , " "+Chr(9)+"U"+Chr(9)+"" ) - TEST_LINE( RTrim( " "+Chr(9)+Chr(9)) , " "+Chr(9)+""+Chr(9)+"" ) - TEST_LINE( RTrim( Chr(10)+"U"+Chr(10)) , ""+Chr(10)+"U"+Chr(10)+"" ) - TEST_LINE( RTrim( Chr(13)+"U"+Chr(13)) , ""+Chr(13)+"U"+Chr(13)+"" ) - TEST_LINE( RTrim( "A"+Chr(10)) , "A"+Chr(10)+"" ) - TEST_LINE( RTrim( "A"+Chr(13)) , "A"+Chr(13)+"" ) - TEST_LINE( RTrim( " "+Chr(0)+"ABC"+Chr(0)+" "), " "+Chr(0)+"ABC"+Chr(0)+"" ) + HBTEST RTrim(scString) IS "HELLO" + HBTEST RTrim("HELLO") IS "HELLO" + HBTEST RTrim( "" ) IS "" + HBTEST RTrim( "UA " ) IS "UA" + HBTEST RTrim( " UA" ) IS " UA" + HBTEST RTrim( " UA " ) IS " UA" + HBTEST RTrim( " "+Chr(0)+" UA " ) IS " "+Chr(0)+" UA" + HBTEST RTrim( " "+Chr(9)+" UA " ) IS " "+Chr(9)+" UA" + HBTEST RTrim( " "+Chr(9)+"U"+Chr(9)) IS " "+Chr(9)+"U"+Chr(9)+"" + HBTEST RTrim( " "+Chr(9)+Chr(9)) IS " "+Chr(9)+""+Chr(9)+"" + HBTEST RTrim( Chr(10)+"U"+Chr(10)) IS ""+Chr(10)+"U"+Chr(10)+"" + HBTEST RTrim( Chr(13)+"U"+Chr(13)) IS ""+Chr(13)+"U"+Chr(13)+"" + HBTEST RTrim( "A"+Chr(10)) IS "A"+Chr(10)+"" + HBTEST RTrim( "A"+Chr(13)) IS "A"+Chr(13)+"" + HBTEST RTrim( " "+Chr(0)+"ABC"+Chr(0)+" ") IS " "+Chr(0)+"ABC"+Chr(0)+"" /* LTrim() */ - TEST_LINE( LTrim( 100 ) , "E 1 BASE 1101 Argument error (LTRIM) OS:0 #:0 A:1:N:100 F:S" ) - TEST_LINE( LTrim( NIL ) , "E 1 BASE 1101 Argument error (LTRIM) OS:0 #:0 A:1:U:NIL F:S" ) + HBTEST LTrim( 100 ) IS "E 1 BASE 1101 Argument error (LTRIM) OS:0 #:0 A:1:N:100 F:S" + HBTEST LTrim( NIL ) IS "E 1 BASE 1101 Argument error (LTRIM) OS:0 #:0 A:1:U:NIL F:S" #ifdef __HARBOUR__ - TEST_LINE( LTrim(@scString) , "HELLO" ) /* CA-Cl*pper bug, it will throw an error here. */ + HBTEST LTrim(@scString) IS "HELLO" /* CA-Cl*pper bug, it will throw an error here. */ #endif - TEST_LINE( LTrim(scString) , "HELLO" ) - TEST_LINE( LTrim("HELLO") , "HELLO" ) - TEST_LINE( LTrim( "" ) , "" ) - TEST_LINE( LTrim( "UA " ) , "UA " ) - TEST_LINE( LTrim( " UA" ) , "UA" ) - TEST_LINE( LTrim( " UA " ) , "UA " ) - TEST_LINE( LTrim( " "+Chr(0)+" UA " ) , ""+Chr(0)+" UA " ) - TEST_LINE( LTrim( " "+Chr(9)+" UA " ) , "UA " ) - TEST_LINE( LTrim( " "+Chr(9)+"U"+Chr(9)) , "U"+Chr(9)+"" ) - TEST_LINE( LTrim( " "+Chr(9)+Chr(9)) , "" ) - TEST_LINE( LTrim( Chr(10)+"U"+Chr(10)) , "U"+Chr(10)+"" ) - TEST_LINE( LTrim( Chr(13)+"U"+Chr(13)) , "U"+Chr(13)+"" ) - TEST_LINE( LTrim( "A"+Chr(10)) , "A"+Chr(10)+"" ) - TEST_LINE( LTrim( "A"+Chr(13)) , "A"+Chr(13)+"" ) - TEST_LINE( LTrim( " "+Chr(0)+"ABC"+Chr(0)+" "), ""+Chr(0)+"ABC"+Chr(0)+" " ) + HBTEST LTrim(scString) IS "HELLO" + HBTEST LTrim("HELLO") IS "HELLO" + HBTEST LTrim( "" ) IS "" + HBTEST LTrim( "UA " ) IS "UA " + HBTEST LTrim( " UA" ) IS "UA" + HBTEST LTrim( " UA " ) IS "UA " + HBTEST LTrim( " "+Chr(0)+" UA " ) IS ""+Chr(0)+" UA " + HBTEST LTrim( " "+Chr(9)+" UA " ) IS "UA " + HBTEST LTrim( " "+Chr(9)+"U"+Chr(9)) IS "U"+Chr(9)+"" + HBTEST LTrim( " "+Chr(9)+Chr(9)) IS "" + HBTEST LTrim( Chr(10)+"U"+Chr(10)) IS "U"+Chr(10)+"" + HBTEST LTrim( Chr(13)+"U"+Chr(13)) IS "U"+Chr(13)+"" + HBTEST LTrim( "A"+Chr(10)) IS "A"+Chr(10)+"" + HBTEST LTrim( "A"+Chr(13)) IS "A"+Chr(13)+"" + HBTEST LTrim( " "+Chr(0)+"ABC"+Chr(0)+" ") IS ""+Chr(0)+"ABC"+Chr(0)+" " /* StrTran() */ @@ -451,366 +451,366 @@ PROCEDURE Main_STR() This bug is fixed in CA-Cl*pper 5.3 [vszakats] */ #ifndef __CLIPPER__ #ifndef __XPP__ - TEST_LINE( StrTran() , "E 1 BASE 1126 Argument error (STRTRAN) OS:0 #:0 F:S" ) /* CA-Cl*pper bug, it will exit on this */ - TEST_LINE( StrTran( NIL ) , "E 1 BASE 1126 Argument error (STRTRAN) OS:0 #:0 A:1:U:NIL F:S" ) /* CA-Cl*pper bug, it will exit on this */ - TEST_LINE( StrTran( 100 ) , "E 1 BASE 1126 Argument error (STRTRAN) OS:0 #:0 A:1:N:100 F:S" ) /* CA-Cl*pper bug, it will exit on this */ + HBTEST StrTran() IS "E 1 BASE 1126 Argument error (STRTRAN) OS:0 #:0 F:S" /* CA-Cl*pper bug, it will exit on this */ + HBTEST StrTran( NIL ) IS "E 1 BASE 1126 Argument error (STRTRAN) OS:0 #:0 A:1:U:NIL F:S" /* CA-Cl*pper bug, it will exit on this */ + HBTEST StrTran( 100 ) IS "E 1 BASE 1126 Argument error (STRTRAN) OS:0 #:0 A:1:N:100 F:S" /* CA-Cl*pper bug, it will exit on this */ #endif - TEST_LINE( StrTran( "AA", 1 ) , "E 1 BASE 1126 Argument error (STRTRAN) OS:0 #:0 A:2:C:AA;N:1 F:S" ) /* CA-Cl*pper bug, it will exit on this */ + HBTEST StrTran( "AA", 1 ) IS "E 1 BASE 1126 Argument error (STRTRAN) OS:0 #:0 A:2:C:AA;N:1 F:S" /* CA-Cl*pper bug, it will exit on this */ #endif - TEST_LINE( StrTran( "AA", "A" ) , "" ) - TEST_LINE( StrTran( "AA", "A", "1" ) , "11" ) - TEST_LINE( StrTran( "AA", "A", "1", "2" ) , "11" ) + HBTEST StrTran( "AA", "A" ) IS "" + HBTEST StrTran( "AA", "A", "1" ) IS "11" + HBTEST StrTran( "AA", "A", "1", "2" ) IS "11" /* Upper() */ - TEST_LINE( Upper( scString ) , "HELLO" ) + HBTEST Upper( scString ) IS "HELLO" #ifdef __HARBOUR__ - TEST_LINE( Upper( @scString ) , "HELLO" ) /* Bug in CA-Cl*pper, it will return argument error */ + HBTEST Upper( @scString ) IS "HELLO" /* Bug in CA-Cl*pper, it will return argument error */ #endif - TEST_LINE( Upper( 100 ) , "E 1 BASE 1102 Argument error (UPPER) OS:0 #:0 A:1:N:100 F:S" ) - TEST_LINE( Upper( "" ) , "" ) - TEST_LINE( Upper( " " ) , " " ) - TEST_LINE( Upper( "2" ) , "2" ) - TEST_LINE( Upper( "{" ) , "{" ) - TEST_LINE( Upper( Chr(0) ) , ""+Chr(0)+"" ) - TEST_LINE( Upper( "aAZAZa" ) , "AAZAZA" ) - TEST_LINE( Upper( "AazazA" ) , "AAZAZA" ) - TEST_LINE( Upper( "Aaz"+Chr(0)+"zA" ) , "AAZ"+Chr(0)+"ZA" ) - TEST_LINE( Upper( "z" ) , "Z" ) - TEST_LINE( Upper( " µ" ) , " µ" ) - TEST_LINE( Upper( "H rbor 8-) µ" ) , "H RBOR 8-) µ" ) + HBTEST Upper( 100 ) IS "E 1 BASE 1102 Argument error (UPPER) OS:0 #:0 A:1:N:100 F:S" + HBTEST Upper( "" ) IS "" + HBTEST Upper( " " ) IS " " + HBTEST Upper( "2" ) IS "2" + HBTEST Upper( "{" ) IS "{" + HBTEST Upper( Chr(0) ) IS ""+Chr(0)+"" + HBTEST Upper( "aAZAZa" ) IS "AAZAZA" + HBTEST Upper( "AazazA" ) IS "AAZAZA" + HBTEST Upper( "Aaz"+Chr(0)+"zA" ) IS "AAZ"+Chr(0)+"ZA" + HBTEST Upper( "z" ) IS "Z" + HBTEST Upper( " µ" ) IS " µ" + HBTEST Upper( "H rbor 8-) µ" ) IS "H RBOR 8-) µ" /* Lower() */ - TEST_LINE( Lower( scString ) , "hello" ) + HBTEST Lower( scString ) IS "hello" #ifdef __HARBOUR__ - TEST_LINE( Lower( @scString ) , "hello" ) /* Bug in CA-Cl*pper, it will return argument error */ + HBTEST Lower( @scString ) IS "hello" /* Bug in CA-Cl*pper, it will return argument error */ #endif - TEST_LINE( Lower( 100 ) , "E 1 BASE 1103 Argument error (LOWER) OS:0 #:0 A:1:N:100 F:S" ) - TEST_LINE( Lower( "" ) , "" ) - TEST_LINE( Lower( " " ) , " " ) - TEST_LINE( Lower( "2" ) , "2" ) - TEST_LINE( Lower( "{" ) , "{" ) - TEST_LINE( Lower( Chr(0) ) , ""+Chr(0)+"" ) - TEST_LINE( Lower( "aAZAZa" ) , "aazaza" ) - TEST_LINE( Lower( "AazazA" ) , "aazaza" ) - TEST_LINE( Lower( "Aaz"+Chr(0)+"zA" ) , "aaz"+Chr(0)+"za" ) - TEST_LINE( Lower( "z" ) , "z" ) - TEST_LINE( Lower( " µ" ) , " µ" ) - TEST_LINE( Lower( "H rbor 8-) µ" ) , "h rbor 8-) µ" ) + HBTEST Lower( 100 ) IS "E 1 BASE 1103 Argument error (LOWER) OS:0 #:0 A:1:N:100 F:S" + HBTEST Lower( "" ) IS "" + HBTEST Lower( " " ) IS " " + HBTEST Lower( "2" ) IS "2" + HBTEST Lower( "{" ) IS "{" + HBTEST Lower( Chr(0) ) IS ""+Chr(0)+"" + HBTEST Lower( "aAZAZa" ) IS "aazaza" + HBTEST Lower( "AazazA" ) IS "aazaza" + HBTEST Lower( "Aaz"+Chr(0)+"zA" ) IS "aaz"+Chr(0)+"za" + HBTEST Lower( "z" ) IS "z" + HBTEST Lower( " µ" ) IS " µ" + HBTEST Lower( "H rbor 8-) µ" ) IS "h rbor 8-) µ" /* At() */ - TEST_LINE( At(90, 100) , "E 1 BASE 1108 Argument error (AT) OS:0 #:0 A:2:N:90;N:100 F:S" ) - TEST_LINE( At("", 100) , "E 1 BASE 1108 Argument error (AT) OS:0 #:0 A:2:C:;N:100 F:S" ) - TEST_LINE( At(100, "") , "E 1 BASE 1108 Argument error (AT) OS:0 #:0 A:2:N:100;C: F:S" ) + HBTEST At(90, 100) IS "E 1 BASE 1108 Argument error (AT) OS:0 #:0 A:2:N:90;N:100 F:S" + HBTEST At("", 100) IS "E 1 BASE 1108 Argument error (AT) OS:0 #:0 A:2:C:;N:100 F:S" + HBTEST At(100, "") IS "E 1 BASE 1108 Argument error (AT) OS:0 #:0 A:2:N:100;C: F:S" /* disable Harbour extensions in compiler to replicate Clipper bugs */ #ifdef __HARBOUR__ #pragma -kh- #endif - TEST_LINE( At("", "") , 1 ) /* Bug in CA-Cl*ppers compiler optimizer, it should return 0 */ - TEST_LINE( At("", "ABCDEF") , 1 ) /* Bug in CA-Cl*ppers compiler optimizer, it should return 0 */ + HBTEST At("", "") IS 1 /* Bug in CA-Cl*ppers compiler optimizer, it should return 0 */ + HBTEST At("", "ABCDEF") IS 1 /* Bug in CA-Cl*ppers compiler optimizer, it should return 0 */ #ifdef __HARBOUR__ /* enable Harbour extensions and test correct results results */ #pragma -kh+ - TEST_LINE( At("", "") , 0 ) /* Bug in CA-Cl*ppers compiler optimizer, it should return 0 */ - TEST_LINE( At("", "ABCDEF") , 0 ) /* Bug in CA-Cl*ppers compiler optimizer, it should return 0 */ + HBTEST At("", "") IS 0 /* Bug in CA-Cl*ppers compiler optimizer, it should return 0 */ + HBTEST At("", "ABCDEF") IS 0 /* Bug in CA-Cl*ppers compiler optimizer, it should return 0 */ #endif - TEST_LINE( At(scStringE, scStringE) , 0 ) - TEST_LINE( At(scStringE, "ABCDEF") , 0 ) - TEST_LINE( At("ABCDEF", "") , 0 ) - TEST_LINE( At("AB", "AB") , 1 ) - TEST_LINE( At("AB", "AAB") , 2 ) - TEST_LINE( At("A", "ABCDEF") , 1 ) - TEST_LINE( At("F", "ABCDEF") , 6 ) - TEST_LINE( At("D", "ABCDEF") , 4 ) - TEST_LINE( At("X", "ABCDEF") , 0 ) - TEST_LINE( At("AB", "ABCDEF") , 1 ) - TEST_LINE( At("AA", "ABCDEF") , 0 ) - TEST_LINE( At("ABCDEF", "ABCDEF") , 1 ) - TEST_LINE( At("BCDEF", "ABCDEF") , 2 ) - TEST_LINE( At("BCDEFG", "ABCDEF") , 0 ) - TEST_LINE( At("ABCDEFG", "ABCDEF") , 0 ) - TEST_LINE( At("FI", "ABCDEF") , 0 ) + HBTEST At(scStringE, scStringE) IS 0 + HBTEST At(scStringE, "ABCDEF") IS 0 + HBTEST At("ABCDEF", "") IS 0 + HBTEST At("AB", "AB") IS 1 + HBTEST At("AB", "AAB") IS 2 + HBTEST At("A", "ABCDEF") IS 1 + HBTEST At("F", "ABCDEF") IS 6 + HBTEST At("D", "ABCDEF") IS 4 + HBTEST At("X", "ABCDEF") IS 0 + HBTEST At("AB", "ABCDEF") IS 1 + HBTEST At("AA", "ABCDEF") IS 0 + HBTEST At("ABCDEF", "ABCDEF") IS 1 + HBTEST At("BCDEF", "ABCDEF") IS 2 + HBTEST At("BCDEFG", "ABCDEF") IS 0 + HBTEST At("ABCDEFG", "ABCDEF") IS 0 + HBTEST At("FI", "ABCDEF") IS 0 /* RAt() */ - TEST_LINE( RAt(90, 100) , 0 ) - TEST_LINE( RAt("", 100) , 0 ) - TEST_LINE( RAt(100, "") , 0 ) - TEST_LINE( RAt("", "") , 0 ) - TEST_LINE( RAt("", "ABCDEF") , 0 ) - TEST_LINE( RAt("ABCDEF", "") , 0 ) - TEST_LINE( RAt("AB", "AB") , 1 ) - TEST_LINE( RAt("AB", "AAB") , 2 ) - TEST_LINE( RAt("AB", "ABAB") , 3 ) - TEST_LINE( RAt("A", "ABCADEF") , 4 ) - TEST_LINE( RAt("A", "ABCADEFA") , 8 ) - TEST_LINE( RAt("A", "ABCDEFA") , 7 ) - TEST_LINE( RAt("A", "ABCDEF") , 1 ) - TEST_LINE( RAt("F", "ABCDEF") , 6 ) - TEST_LINE( RAt("D", "ABCDEF") , 4 ) - TEST_LINE( RAt("X", "ABCDEF") , 0 ) - TEST_LINE( RAt("AB", "ABCDEF") , 1 ) - TEST_LINE( RAt("AA", "ABCDEF") , 0 ) - TEST_LINE( RAt("ABCDEF", "ABCDEF") , 1 ) - TEST_LINE( RAt("BCDEF", "ABCDEF") , 2 ) - TEST_LINE( RAt("BCDEFG", "ABCDEF") , 0 ) - TEST_LINE( RAt("ABCDEFG", "ABCDEF") , 0 ) - TEST_LINE( RAt("FI", "ABCDEF") , 0 ) + HBTEST RAt(90, 100) IS 0 + HBTEST RAt("", 100) IS 0 + HBTEST RAt(100, "") IS 0 + HBTEST RAt("", "") IS 0 + HBTEST RAt("", "ABCDEF") IS 0 + HBTEST RAt("ABCDEF", "") IS 0 + HBTEST RAt("AB", "AB") IS 1 + HBTEST RAt("AB", "AAB") IS 2 + HBTEST RAt("AB", "ABAB") IS 3 + HBTEST RAt("A", "ABCADEF") IS 4 + HBTEST RAt("A", "ABCADEFA") IS 8 + HBTEST RAt("A", "ABCDEFA") IS 7 + HBTEST RAt("A", "ABCDEF") IS 1 + HBTEST RAt("F", "ABCDEF") IS 6 + HBTEST RAt("D", "ABCDEF") IS 4 + HBTEST RAt("X", "ABCDEF") IS 0 + HBTEST RAt("AB", "ABCDEF") IS 1 + HBTEST RAt("AA", "ABCDEF") IS 0 + HBTEST RAt("ABCDEF", "ABCDEF") IS 1 + HBTEST RAt("BCDEF", "ABCDEF") IS 2 + HBTEST RAt("BCDEFG", "ABCDEF") IS 0 + HBTEST RAt("ABCDEFG", "ABCDEF") IS 0 + HBTEST RAt("FI", "ABCDEF") IS 0 /* Replicate() */ #ifdef __HARBOUR__ IF l64 - TEST_LINE( Replicate("XXX", 9000000000000000000) , "E 3 BASE 1234 String overflow (REPLICATE) OS:0 #:0 A:2:C:XXX;N:9000000000000000000 F:S" ) + HBTEST Replicate("XXX", 9000000000000000000) IS "E 3 BASE 1234 String overflow (REPLICATE) OS:0 #:0 A:2:C:XXX;N:9000000000000000000 F:S" ELSE - TEST_LINE( Replicate("XXX", 2000000000) , "E 3 BASE 1234 String overflow (REPLICATE) OS:0 #:0 A:2:C:XXX;N:2000000000 F:S" ) + HBTEST Replicate("XXX", 2000000000) IS "E 3 BASE 1234 String overflow (REPLICATE) OS:0 #:0 A:2:C:XXX;N:2000000000 F:S" ENDIF #else - TEST_LINE( Replicate("XXX", 30000) , "E 3 BASE 1234 String overflow (REPLICATE) OS:0 #:0 A:2:C:XXX;N:30000 F:S" ) + HBTEST Replicate("XXX", 30000) IS "E 3 BASE 1234 String overflow (REPLICATE) OS:0 #:0 A:2:C:XXX;N:30000 F:S" #endif - TEST_LINE( Replicate(200 , 0 ) , "E 1 BASE 1106 Argument error (REPLICATE) OS:0 #:0 A:2:N:200;N:0 F:S" ) - TEST_LINE( Replicate("" , 10 ) , "" ) - TEST_LINE( Replicate("" , 0 ) , "" ) - TEST_LINE( Replicate("A" , "B" ) , "E 1 BASE 1106 Argument error (REPLICATE) OS:0 #:0 A:2:C:A;C:B F:S" ) - TEST_LINE( Replicate("A" , 1 ) , "A" ) - TEST_LINE( Replicate("A" , 2 ) , "AA" ) - TEST_LINE( Replicate("HE", 3 ) , "HEHEHE" ) - TEST_LINE( Replicate("HE", 3.1 ) , "HEHEHE" ) - TEST_LINE( Replicate("HE", 3.5 ) , "HEHEHE" ) - TEST_LINE( Replicate("HE", 3.7 ) , "HEHEHE" ) - TEST_LINE( Replicate("HE", -3 ) , "" ) - TEST_LINE( Replicate("H"+Chr(0), 2 ) , "H"+Chr(0)+"H"+Chr(0)+"" ) + HBTEST Replicate(200 , 0 ) IS "E 1 BASE 1106 Argument error (REPLICATE) OS:0 #:0 A:2:N:200;N:0 F:S" + HBTEST Replicate("" , 10 ) IS "" + HBTEST Replicate("" , 0 ) IS "" + HBTEST Replicate("A" , "B" ) IS "E 1 BASE 1106 Argument error (REPLICATE) OS:0 #:0 A:2:C:A;C:B F:S" + HBTEST Replicate("A" , 1 ) IS "A" + HBTEST Replicate("A" , 2 ) IS "AA" + HBTEST Replicate("HE", 3 ) IS "HEHEHE" + HBTEST Replicate("HE", 3.1 ) IS "HEHEHE" + HBTEST Replicate("HE", 3.5 ) IS "HEHEHE" + HBTEST Replicate("HE", 3.7 ) IS "HEHEHE" + HBTEST Replicate("HE", -3 ) IS "" + HBTEST Replicate("H"+Chr(0), 2 ) IS "H"+Chr(0)+"H"+Chr(0)+"" /* Space() */ - TEST_LINE( Space( "A" ) , "E 1 BASE 1105 Argument error (SPACE) OS:0 #:0 A:1:C:A F:S" ) - TEST_LINE( Space( 0 ) , "" ) - TEST_LINE( Space( -10 ) , "" ) - TEST_LINE( Space( 10 ) , " " ) - TEST_LINE( Space( 10.2 ) , " " ) - TEST_LINE( Space( 10.5 ) , " " ) - TEST_LINE( Space( 10.7 ) , " " ) + HBTEST Space( "A" ) IS "E 1 BASE 1105 Argument error (SPACE) OS:0 #:0 A:1:C:A F:S" + HBTEST Space( 0 ) IS "" + HBTEST Space( -10 ) IS "" + HBTEST Space( 10 ) IS " " + HBTEST Space( 10.2 ) IS " " + HBTEST Space( 10.5 ) IS " " + HBTEST Space( 10.7 ) IS " " /* SubStr() */ - TEST_LINE( SubStr(100 , 0, -1) , "E 1 BASE 1110 Argument error (SUBSTR) OS:0 #:0 A:3:N:100;N:0;N:-1 F:S" ) - TEST_LINE( SubStr("abcdef", 1, "a") , "E 1 BASE 1110 Argument error (SUBSTR) OS:0 #:0 A:3:C:abcdef;N:1;C:a F:S" ) - TEST_LINE( SubStr("abcdef", "a") , "E 1 BASE 1110 Argument error (SUBSTR) OS:0 #:0 A:2:C:abcdef;C:a F:S" ) - TEST_LINE( SubStr("abcdef", "a", 1) , "E 1 BASE 1110 Argument error (SUBSTR) OS:0 #:0 A:3:C:abcdef;C:a;N:1 F:S" ) - TEST_LINE( SubStr("abcdef", 0, -1) , "" ) - TEST_LINE( SubStr("abcdef", 0, 0) , "" ) - TEST_LINE( SubStr("abcdef", 0, 1) , "a" ) - TEST_LINE( SubStr("abcdef", 0, 7) , "abcdef" ) - TEST_LINE( SubStr("abcdef", 0) , "abcdef" ) - TEST_LINE( SubStr("abcdef", 2, -1) , "" ) - TEST_LINE( SubStr("abcdef", 2, 0) , "" ) - TEST_LINE( SubStr("abcdef", 2, 1) , "b" ) - TEST_LINE( SubStr("abcdef", 2, 7) , "bcdef" ) - TEST_LINE( SubStr("abcdef", 2) , "bcdef" ) + HBTEST SubStr(100 , 0, -1) IS "E 1 BASE 1110 Argument error (SUBSTR) OS:0 #:0 A:3:N:100;N:0;N:-1 F:S" + HBTEST SubStr("abcdef", 1, "a") IS "E 1 BASE 1110 Argument error (SUBSTR) OS:0 #:0 A:3:C:abcdef;N:1;C:a F:S" + HBTEST SubStr("abcdef", "a") IS "E 1 BASE 1110 Argument error (SUBSTR) OS:0 #:0 A:2:C:abcdef;C:a F:S" + HBTEST SubStr("abcdef", "a", 1) IS "E 1 BASE 1110 Argument error (SUBSTR) OS:0 #:0 A:3:C:abcdef;C:a;N:1 F:S" + HBTEST SubStr("abcdef", 0, -1) IS "" + HBTEST SubStr("abcdef", 0, 0) IS "" + HBTEST SubStr("abcdef", 0, 1) IS "a" + HBTEST SubStr("abcdef", 0, 7) IS "abcdef" + HBTEST SubStr("abcdef", 0) IS "abcdef" + HBTEST SubStr("abcdef", 2, -1) IS "" + HBTEST SubStr("abcdef", 2, 0) IS "" + HBTEST SubStr("abcdef", 2, 1) IS "b" + HBTEST SubStr("abcdef", 2, 7) IS "bcdef" + HBTEST SubStr("abcdef", 2) IS "bcdef" #ifndef __XPP__ - TEST_LINE( SubStr("abcdef", -2, -1) , "" ) - TEST_LINE( SubStr("abcdef", -2, 0) , "" ) - TEST_LINE( SubStr("abcdef", -2, 1) , "e" ) - TEST_LINE( SubStr("abcdef", -2, 7) , "ef" ) - TEST_LINE( SubStr("abcdef", -2) , "ef" ) + HBTEST SubStr("abcdef", -2, -1) IS "" + HBTEST SubStr("abcdef", -2, 0) IS "" + HBTEST SubStr("abcdef", -2, 1) IS "e" + HBTEST SubStr("abcdef", -2, 7) IS "ef" + HBTEST SubStr("abcdef", -2) IS "ef" #endif - TEST_LINE( SubStr("abcdef", 10, -1) , "" ) - TEST_LINE( SubStr("abcdef", 10, 0) , "" ) - TEST_LINE( SubStr("abcdef", 10, 1) , "" ) - TEST_LINE( SubStr("abcdef", 10, 7) , "" ) - TEST_LINE( SubStr("abcdef", 10) , "" ) + HBTEST SubStr("abcdef", 10, -1) IS "" + HBTEST SubStr("abcdef", 10, 0) IS "" + HBTEST SubStr("abcdef", 10, 1) IS "" + HBTEST SubStr("abcdef", 10, 7) IS "" + HBTEST SubStr("abcdef", 10) IS "" #ifndef __XPP__ - TEST_LINE( SubStr("abcdef", -10, -1) , "" ) - TEST_LINE( SubStr("abcdef", -10, 0) , "" ) - TEST_LINE( SubStr("abcdef", -10, 1) , "a" ) - TEST_LINE( SubStr("abcdef", -10, 7) , "abcdef" ) - TEST_LINE( SubStr("abcdef", -10, 15) , "abcdef" ) - TEST_LINE( SubStr("abcdef", -10) , "abcdef" ) + HBTEST SubStr("abcdef", -10, -1) IS "" + HBTEST SubStr("abcdef", -10, 0) IS "" + HBTEST SubStr("abcdef", -10, 1) IS "a" + HBTEST SubStr("abcdef", -10, 7) IS "abcdef" + HBTEST SubStr("abcdef", -10, 15) IS "abcdef" + HBTEST SubStr("abcdef", -10) IS "abcdef" #endif - TEST_LINE( SubStr("ab" + Chr(0) + "def", 2, 3) , "b" + Chr(0) + "d" ) - TEST_LINE( SubStr("abc" + Chr(0) + "def", 3, 1) , "c" ) - TEST_LINE( SubStr("abc" + Chr(0) + "def", 4, 1) , "" + Chr(0) + "" ) - TEST_LINE( SubStr("abc" + Chr(0) + "def", 5, 1) , "d" ) + HBTEST SubStr("ab" + Chr(0) + "def", 2, 3) IS "b" + Chr(0) + "d" + HBTEST SubStr("abc" + Chr(0) + "def", 3, 1) IS "c" + HBTEST SubStr("abc" + Chr(0) + "def", 4, 1) IS "" + Chr(0) + "" + HBTEST SubStr("abc" + Chr(0) + "def", 5, 1) IS "d" /* Left() */ - TEST_LINE( Left(100 , -10) , "E 1 BASE 1124 Argument error (LEFT) OS:0 #:0 A:2:N:100;N:-10 F:S" ) - TEST_LINE( Left("abcdef", "A") , "E 1 BASE 1124 Argument error (LEFT) OS:0 #:0 A:2:C:abcdef;C:A F:S" ) - TEST_LINE( Left("abcdef", -10) , "" ) - TEST_LINE( Left("abcdef", -2) , "" ) - TEST_LINE( Left("abcdef", 0) , "" ) - TEST_LINE( Left("abcdef", 2) , "ab" ) - TEST_LINE( Left("abcdef", 10) , "abcdef" ) - TEST_LINE( Left("ab" + Chr(0) + "def", 5) , "ab" + Chr(0) + "de" ) + HBTEST Left(100 , -10) IS "E 1 BASE 1124 Argument error (LEFT) OS:0 #:0 A:2:N:100;N:-10 F:S" + HBTEST Left("abcdef", "A") IS "E 1 BASE 1124 Argument error (LEFT) OS:0 #:0 A:2:C:abcdef;C:A F:S" + HBTEST Left("abcdef", -10) IS "" + HBTEST Left("abcdef", -2) IS "" + HBTEST Left("abcdef", 0) IS "" + HBTEST Left("abcdef", 2) IS "ab" + HBTEST Left("abcdef", 10) IS "abcdef" + HBTEST Left("ab" + Chr(0) + "def", 5) IS "ab" + Chr(0) + "de" /* Right() */ - TEST_LINE( Right(100 , -10) , "" ) - TEST_LINE( Right("abcdef", "A") , "" ) - TEST_LINE( Right("abcdef", -10) , "" ) - TEST_LINE( Right("abcdef", -2) , "" ) - TEST_LINE( Right("abcdef", 0) , "" ) - TEST_LINE( Right("abcdef", 2) , "ef" ) - TEST_LINE( Right("abcdef", 10) , "abcdef" ) - TEST_LINE( Right("ab" + Chr(0) + "def", 5) , "b" + Chr(0) + "def" ) + HBTEST Right(100 , -10) IS "" + HBTEST Right("abcdef", "A") IS "" + HBTEST Right("abcdef", -10) IS "" + HBTEST Right("abcdef", -2) IS "" + HBTEST Right("abcdef", 0) IS "" + HBTEST Right("abcdef", 2) IS "ef" + HBTEST Right("abcdef", 10) IS "abcdef" + HBTEST Right("ab" + Chr(0) + "def", 5) IS "b" + Chr(0) + "def" /* PadR() */ - TEST_LINE( Pad(NIL, 5) , "" ) - TEST_LINE( Pad(.T., 5) , "" ) - TEST_LINE( Pad(10, 5) , "10 " ) - TEST_LINE( Pad(10.2, 5) , "10.2 " ) - TEST_LINE( Pad(100000, 8) , "100000 " ) - TEST_LINE( Pad(100000, 8, "-") , "100000--" ) - TEST_LINE( Pad(-100000, 8, "-") , "-100000-" ) - TEST_LINE( Pad(5000000000, 15) , "5000000000 ") - TEST_LINE( Pad(hb_SToD("19840325"), 12) , "1984.03.25 " ) - TEST_LINE( Pad(Year(hb_SToD("19840325")), 5) , "1984 " ) - TEST_LINE( Pad(Day(hb_SToD("19840325")), 5) , "25 " ) + HBTEST Pad(NIL, 5) IS "" + HBTEST Pad(.T., 5) IS "" + HBTEST Pad(10, 5) IS "10 " + HBTEST Pad(10.2, 5) IS "10.2 " + HBTEST Pad(100000, 8) IS "100000 " + HBTEST Pad(100000, 8, "-") IS "100000--" + HBTEST Pad(-100000, 8, "-") IS "-100000-" + HBTEST Pad(5000000000, 15) IS "5000000000 " + HBTEST Pad(hb_SToD("19840325"), 12) IS "1984.03.25 " + HBTEST Pad(Year(hb_SToD("19840325")), 5) IS "1984 " + HBTEST Pad(Day(hb_SToD("19840325")), 5) IS "25 " #ifdef __HARBOUR__ - TEST_LINE( Pad(@scString, 10) , "HELLO " ) /* Bug in CA-Cl*pper, it will return "" */ - TEST_LINE( Pad(scString, @snIntP) , "HELLO " ) /* Bug in CA-Cl*pper, it will return "" */ + HBTEST Pad(@scString, 10) IS "HELLO " /* Bug in CA-Cl*pper, it will return "" */ + HBTEST Pad(scString, @snIntP) IS "HELLO " /* Bug in CA-Cl*pper, it will return "" */ #endif #ifndef __XPP__ - TEST_LINE( Pad("abcdef", "A") , "" ) - TEST_LINE( Pad("abcdef", -5) , "" ) + HBTEST Pad("abcdef", "A") IS "" + HBTEST Pad("abcdef", -5) IS "" #endif - TEST_LINE( Pad("abcdef", 0) , "" ) - TEST_LINE( Pad("abcdef", 5) , "abcde" ) - TEST_LINE( Pad("abcdef", 10) , "abcdef " ) - TEST_LINE( Pad("abcdef", 10, "") , "abcdef"+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" ) - TEST_LINE( Pad("abcdef", 10, "1") , "abcdef1111" ) - TEST_LINE( Pad("abcdef", 10, "12") , "abcdef1111" ) + HBTEST Pad("abcdef", 0) IS "" + HBTEST Pad("abcdef", 5) IS "abcde" + HBTEST Pad("abcdef", 10) IS "abcdef " + HBTEST Pad("abcdef", 10, "") IS "abcdef"+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" + HBTEST Pad("abcdef", 10, "1") IS "abcdef1111" + HBTEST Pad("abcdef", 10, "12") IS "abcdef1111" /* PadR() */ - TEST_LINE( PadR(NIL, 5) , "" ) - TEST_LINE( PadR(.T., 5) , "" ) - TEST_LINE( PadR(10, 5) , "10 " ) - TEST_LINE( PadR(10.2, 5) , "10.2 " ) - TEST_LINE( PadR(100000, 8) , "100000 " ) - TEST_LINE( PadR(100000, 8, "-") , "100000--" ) - TEST_LINE( PadR(-100000, 8, "-") , "-100000-" ) - TEST_LINE( PadR(hb_SToD("19840325"), 12) , "1984.03.25 " ) - TEST_LINE( PadR(Year(hb_SToD("19840325")), 5) , "1984 " ) - TEST_LINE( PadR(Day(hb_SToD("19840325")), 5) , "25 " ) + HBTEST PadR(NIL, 5) IS "" + HBTEST PadR(.T., 5) IS "" + HBTEST PadR(10, 5) IS "10 " + HBTEST PadR(10.2, 5) IS "10.2 " + HBTEST PadR(100000, 8) IS "100000 " + HBTEST PadR(100000, 8, "-") IS "100000--" + HBTEST PadR(-100000, 8, "-") IS "-100000-" + HBTEST PadR(hb_SToD("19840325"), 12) IS "1984.03.25 " + HBTEST PadR(Year(hb_SToD("19840325")), 5) IS "1984 " + HBTEST PadR(Day(hb_SToD("19840325")), 5) IS "25 " #ifdef __HARBOUR__ - TEST_LINE( PadR(@scString, 10) , "HELLO " ) /* Bug in CA-Cl*pper, it will return "" */ - TEST_LINE( PadR(scString, @snIntP) , "HELLO " ) /* Bug in CA-Cl*pper, it will return "" */ + HBTEST PadR(@scString, 10) IS "HELLO " /* Bug in CA-Cl*pper, it will return "" */ + HBTEST PadR(scString, @snIntP) IS "HELLO " /* Bug in CA-Cl*pper, it will return "" */ #endif #ifndef __XPP__ - TEST_LINE( PadR("abcdef", "A") , "" ) - TEST_LINE( PadR("abcdef", -5) , "" ) + HBTEST PadR("abcdef", "A") IS "" + HBTEST PadR("abcdef", -5) IS "" #endif - TEST_LINE( PadR("abcdef", 0) , "" ) - TEST_LINE( PadR("abcdef", 5) , "abcde" ) - TEST_LINE( PadR("abcdef", 10) , "abcdef " ) - TEST_LINE( PadR("abcdef", 10, "") , "abcdef"+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" ) - TEST_LINE( PadR("abcdef", 10, "1") , "abcdef1111" ) - TEST_LINE( PadR("abcdef", 10, "12") , "abcdef1111" ) + HBTEST PadR("abcdef", 0) IS "" + HBTEST PadR("abcdef", 5) IS "abcde" + HBTEST PadR("abcdef", 10) IS "abcdef " + HBTEST PadR("abcdef", 10, "") IS "abcdef"+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" + HBTEST PadR("abcdef", 10, "1") IS "abcdef1111" + HBTEST PadR("abcdef", 10, "12") IS "abcdef1111" /* PadL() */ - TEST_LINE( PadL(NIL, 5) , "" ) - TEST_LINE( PadL(.T., 5) , "" ) - TEST_LINE( PadL(10, 5) , " 10" ) - TEST_LINE( PadL(10.2, 5) , " 10.2" ) - TEST_LINE( PadL(100000, 8) , " 100000" ) - TEST_LINE( PadL(100000, 8, "-") , "--100000" ) - TEST_LINE( PadL(-100000, 8, "-") , "--100000" ) - TEST_LINE( PadL(hb_SToD("19840325"), 12) , " 1984.03.25" ) - TEST_LINE( PadL(Year(hb_SToD("19840325")), 5) , " 1984" ) - TEST_LINE( PadL(Day(hb_SToD("19840325")), 5) , " 25" ) + HBTEST PadL(NIL, 5) IS "" + HBTEST PadL(.T., 5) IS "" + HBTEST PadL(10, 5) IS " 10" + HBTEST PadL(10.2, 5) IS " 10.2" + HBTEST PadL(100000, 8) IS " 100000" + HBTEST PadL(100000, 8, "-") IS "--100000" + HBTEST PadL(-100000, 8, "-") IS "--100000" + HBTEST PadL(hb_SToD("19840325"), 12) IS " 1984.03.25" + HBTEST PadL(Year(hb_SToD("19840325")), 5) IS " 1984" + HBTEST PadL(Day(hb_SToD("19840325")), 5) IS " 25" #ifdef __HARBOUR__ - TEST_LINE( PadL(@scString, 10) , " HELLO" ) /* Bug in CA-Cl*pper, it will return "" */ - TEST_LINE( PadL(scString, @snIntP) , " HELLO" ) /* Bug in CA-Cl*pper, it will return "" */ + HBTEST PadL(@scString, 10) IS " HELLO" /* Bug in CA-Cl*pper, it will return "" */ + HBTEST PadL(scString, @snIntP) IS " HELLO" /* Bug in CA-Cl*pper, it will return "" */ #endif #ifndef __XPP__ - TEST_LINE( PadL("abcdef", "A") , "" ) - TEST_LINE( PadL("abcdef", -5) , "" ) + HBTEST PadL("abcdef", "A") IS "" + HBTEST PadL("abcdef", -5) IS "" #endif - TEST_LINE( PadL("abcdef", 0) , "" ) - TEST_LINE( PadL("abcdef", 5) , "abcde" ) /* QUESTION: CA-Cl*pper "bug", should return: "bcdef" ? */ - TEST_LINE( PadL("abcdef", 10) , " abcdef" ) - TEST_LINE( PadL("abcdef", 10, "") , ""+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"abcdef" ) - TEST_LINE( PadL("abcdef", 10, "1") , "1111abcdef" ) - TEST_LINE( PadL("abcdef", 10, "12") , "1111abcdef" ) + HBTEST PadL("abcdef", 0) IS "" + HBTEST PadL("abcdef", 5) IS "abcde" /* QUESTION: CA-Cl*pper "bug", should return: "bcdef" ? */ + HBTEST PadL("abcdef", 10) IS " abcdef" + HBTEST PadL("abcdef", 10, "") IS ""+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"abcdef" + HBTEST PadL("abcdef", 10, "1") IS "1111abcdef" + HBTEST PadL("abcdef", 10, "12") IS "1111abcdef" /* PadC() */ - TEST_LINE( PadC(NIL, 5) , "" ) - TEST_LINE( PadC(.T., 5) , "" ) - TEST_LINE( PadC(10, 5) , " 10 " ) - TEST_LINE( PadC(10.2, 5) , "10.2 " ) - TEST_LINE( PadC(100000, 8) , " 100000 " ) - TEST_LINE( PadC(100000, 8, "-") , "-100000-" ) - TEST_LINE( PadC(-100000, 8, "-") , "-100000-" ) - TEST_LINE( PadC(hb_SToD("19840325"), 12) , " 1984.03.25 " ) - TEST_LINE( PadC(Year(hb_SToD("19840325")), 5) , "1984 " ) - TEST_LINE( PadC(Day(hb_SToD("19840325")), 5) , " 25 " ) + HBTEST PadC(NIL, 5) IS "" + HBTEST PadC(.T., 5) IS "" + HBTEST PadC(10, 5) IS " 10 " + HBTEST PadC(10.2, 5) IS "10.2 " + HBTEST PadC(100000, 8) IS " 100000 " + HBTEST PadC(100000, 8, "-") IS "-100000-" + HBTEST PadC(-100000, 8, "-") IS "-100000-" + HBTEST PadC(hb_SToD("19840325"), 12) IS " 1984.03.25 " + HBTEST PadC(Year(hb_SToD("19840325")), 5) IS "1984 " + HBTEST PadC(Day(hb_SToD("19840325")), 5) IS " 25 " #ifdef __HARBOUR__ - TEST_LINE( PadC(@scString, 10) , " HELLO " ) /* Bug in CA-Cl*pper, it will return "" */ - TEST_LINE( PadC(scString, @snIntP) , " HELLO " ) /* Bug in CA-Cl*pper, it will return "" */ + HBTEST PadC(@scString, 10) IS " HELLO " /* Bug in CA-Cl*pper, it will return "" */ + HBTEST PadC(scString, @snIntP) IS " HELLO " /* Bug in CA-Cl*pper, it will return "" */ #endif #ifndef __XPP__ - TEST_LINE( PadC("abcdef", "A") , "" ) - TEST_LINE( PadC("abcdef", -5) , "" ) + HBTEST PadC("abcdef", "A") IS "" + HBTEST PadC("abcdef", -5) IS "" #endif - TEST_LINE( PadC("abcdef", 0) , "" ) - TEST_LINE( PadC("abcdef", 2) , "ab" ) /* QUESTION: CA-Cl*pper "bug", should return: "cd" ? */ - TEST_LINE( PadC("abcdef", 5) , "abcde" ) - TEST_LINE( PadC("abcdef", 10) , " abcdef " ) - TEST_LINE( PadC("abcdef", 10, "") , ""+Chr(0)+""+Chr(0)+"abcdef"+Chr(0)+""+Chr(0)+"" ) - TEST_LINE( PadC("abcdef", 10, "1") , "11abcdef11" ) - TEST_LINE( PadC("abcdef", 10, "12") , "11abcdef11" ) + HBTEST PadC("abcdef", 0) IS "" + HBTEST PadC("abcdef", 2) IS "ab" /* QUESTION: CA-Cl*pper "bug", should return: "cd" ? */ + HBTEST PadC("abcdef", 5) IS "abcde" + HBTEST PadC("abcdef", 10) IS " abcdef " + HBTEST PadC("abcdef", 10, "") IS ""+Chr(0)+""+Chr(0)+"abcdef"+Chr(0)+""+Chr(0)+"" + HBTEST PadC("abcdef", 10, "1") IS "11abcdef11" + HBTEST PadC("abcdef", 10, "12") IS "11abcdef11" /* Stuff() */ #ifndef __XPP__ - TEST_LINE( Stuff() , "" ) - TEST_LINE( Stuff( 100 ) , "" ) + HBTEST Stuff() IS "" + HBTEST Stuff( 100 ) IS "" #endif - TEST_LINE( Stuff("ABCDEF", -6, -5, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", -6, -2, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", -6, 0, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", -6, 10, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", -6, 30, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", -2, -5, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", -2, -2, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", -2, 0, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", -2, 10, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", -2, 30, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", 0, -5, NIL) , "" ) - TEST_LINE( Stuff("ABCDEF", 0, -2, "xyz") , "xyz" ) - TEST_LINE( Stuff("ABCDEF", 0, 0, "xyz") , "xyzABCDEF" ) - TEST_LINE( Stuff("ABCDEF", 0, 10, "xyz") , "xyz" ) - TEST_LINE( Stuff("ABCDEF", 0, 30, "xyz") , "xyz" ) - TEST_LINE( Stuff("ABCDEF", 1, -5, "xyz") , "xyz" ) - TEST_LINE( Stuff("ABCDEF", 1, -2, "xyz") , "xyz" ) - TEST_LINE( Stuff("ABCDEF", 1, 0, "xyz") , "xyzABCDEF" ) - TEST_LINE( Stuff("ABCDEF", 1, 10, "xyz") , "xyz" ) - TEST_LINE( Stuff("ABCDEF", 1, 30, "xyz") , "xyz" ) - TEST_LINE( Stuff("ABCDEF", 2, 0, "xyz") , "AxyzBCDEF" ) - TEST_LINE( Stuff("ABCDEF", 2, 3, "" ) , "AEF" ) - TEST_LINE( Stuff("ABCDEF", 2, 3, "xyz") , "AxyzEF" ) - TEST_LINE( Stuff("ABCDEF", 2, 2, "") , "ADEF" ) - TEST_LINE( Stuff("ABCDEF", 2, -5, "xyz") , "Axyz" ) - TEST_LINE( Stuff("ABCDEF", 2, -2, "xyz") , "Axyz" ) - TEST_LINE( Stuff("ABCDEF", 2, 1, "xyz") , "AxyzCDEF" ) - TEST_LINE( Stuff("ABCDEF", 2, 4, "xyz") , "AxyzF" ) - TEST_LINE( Stuff("ABCDEF", 2, 10, "xyz") , "Axyz" ) - TEST_LINE( Stuff("ABCDEF", 2, 30, "xyz") , "Axyz" ) - TEST_LINE( Stuff("ABCDEF", 30, -5, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", 30, -2, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", 30, 0, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", 30, 10, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff("ABCDEF", 30, 30, "xyz") , "ABCDEFxyz" ) - TEST_LINE( Stuff(@scString , 2, 3, "xyz") , "HxyzO" ) - TEST_LINE( Stuff("ABC"+Chr(0)+"EF", 2, 3, "xyz") , "AxyzEF" ) - TEST_LINE( Stuff("ABCE"+Chr(0)+"F", 2, 3, "xyz") , "Axyz"+Chr(0)+"F" ) - TEST_LINE( Stuff("ABC"+Chr(0)+"EF", 2, 3, "x"+Chr(0)+"z") , "Ax"+Chr(0)+"zEF" ) + HBTEST Stuff("ABCDEF", -6, -5, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", -6, -2, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", -6, 0, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", -6, 10, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", -6, 30, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", -2, -5, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", -2, -2, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", -2, 0, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", -2, 10, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", -2, 30, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", 0, -5, NIL) IS "" + HBTEST Stuff("ABCDEF", 0, -2, "xyz") IS "xyz" + HBTEST Stuff("ABCDEF", 0, 0, "xyz") IS "xyzABCDEF" + HBTEST Stuff("ABCDEF", 0, 10, "xyz") IS "xyz" + HBTEST Stuff("ABCDEF", 0, 30, "xyz") IS "xyz" + HBTEST Stuff("ABCDEF", 1, -5, "xyz") IS "xyz" + HBTEST Stuff("ABCDEF", 1, -2, "xyz") IS "xyz" + HBTEST Stuff("ABCDEF", 1, 0, "xyz") IS "xyzABCDEF" + HBTEST Stuff("ABCDEF", 1, 10, "xyz") IS "xyz" + HBTEST Stuff("ABCDEF", 1, 30, "xyz") IS "xyz" + HBTEST Stuff("ABCDEF", 2, 0, "xyz") IS "AxyzBCDEF" + HBTEST Stuff("ABCDEF", 2, 3, "" ) IS "AEF" + HBTEST Stuff("ABCDEF", 2, 3, "xyz") IS "AxyzEF" + HBTEST Stuff("ABCDEF", 2, 2, "") IS "ADEF" + HBTEST Stuff("ABCDEF", 2, -5, "xyz") IS "Axyz" + HBTEST Stuff("ABCDEF", 2, -2, "xyz") IS "Axyz" + HBTEST Stuff("ABCDEF", 2, 1, "xyz") IS "AxyzCDEF" + HBTEST Stuff("ABCDEF", 2, 4, "xyz") IS "AxyzF" + HBTEST Stuff("ABCDEF", 2, 10, "xyz") IS "Axyz" + HBTEST Stuff("ABCDEF", 2, 30, "xyz") IS "Axyz" + HBTEST Stuff("ABCDEF", 30, -5, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", 30, -2, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", 30, 0, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", 30, 10, "xyz") IS "ABCDEFxyz" + HBTEST Stuff("ABCDEF", 30, 30, "xyz") IS "ABCDEFxyz" + HBTEST Stuff(@scString , 2, 3, "xyz") IS "HxyzO" + HBTEST Stuff("ABC"+Chr(0)+"EF", 2, 3, "xyz") IS "AxyzEF" + HBTEST Stuff("ABCE"+Chr(0)+"F", 2, 3, "xyz") IS "Axyz"+Chr(0)+"F" + HBTEST Stuff("ABC"+Chr(0)+"EF", 2, 3, "x"+Chr(0)+"z") IS "Ax"+Chr(0)+"zEF" RETURN diff --git a/harbour/utils/hbtest/rt_stra.prg b/harbour/utils/hbtest/rt_stra.prg index bc10c91328..89d0914cc4 100644 --- a/harbour/utils/hbtest/rt_stra.prg +++ b/harbour/utils/hbtest/rt_stra.prg @@ -59,196 +59,196 @@ PROCEDURE Main_STRA() /* Str() */ - TEST_LINE( Str(NIL) , "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( Str("A", 10, 2) , "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:C:A;N:10;N:2 F:S" ) - TEST_LINE( Str(100, 10, "A") , "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:N:100;N:10;C:A F:S" ) - TEST_LINE( Str(100, 10, NIL) , "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:N:100;N:10;U:NIL F:S" ) - TEST_LINE( Str(100, NIL, NIL) , "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:N:100;U:NIL;U:NIL F:S" ) + HBTEST Str(NIL) IS "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:1:U:NIL F:S" + HBTEST Str("A", 10, 2) IS "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:C:A;N:10;N:2 F:S" + HBTEST Str(100, 10, "A") IS "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:N:100;N:10;C:A F:S" + HBTEST Str(100, 10, NIL) IS "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:N:100;N:10;U:NIL F:S" + HBTEST Str(100, NIL, NIL) IS "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:N:100;U:NIL;U:NIL F:S" IF TEST_DBFAvail() - TEST_LINE( Str( w_TEST->TYPE_N_I ) , " 100" ) - TEST_LINE( Str( w_TEST->TYPE_N_IE ) , " 0" ) - TEST_LINE( Str( w_TEST->TYPE_N_D ) , " 101.127" ) - TEST_LINE( Str( w_TEST->TYPE_N_DE ) , " 0.000" ) + HBTEST Str( w_TEST->TYPE_N_I ) IS " 100" + HBTEST Str( w_TEST->TYPE_N_IE ) IS " 0" + HBTEST Str( w_TEST->TYPE_N_D ) IS " 101.127" + HBTEST Str( w_TEST->TYPE_N_DE ) IS " 0.000" ENDIF - TEST_LINE( Str(5000000000.0) , "5000000000.0" ) - TEST_LINE( Str(50000000) , " 50000000" ) - TEST_LINE( Str(500000000) , " 500000000" ) - TEST_LINE( Str(5000000000) , " 5000000000" ) - TEST_LINE( Str(50000000000) , " 50000000000" ) - TEST_LINE( Str(-5000000000.0) , " -5000000000.0" ) - TEST_LINE( Str(-5000000000) , " -5000000000" ) - TEST_LINE( Str(2.0000000000000001) , " 2.0000000000000000" ) - TEST_LINE( Str(2.0000000000000009) , " 2.0000000000000010" ) - TEST_LINE( Str(2.000000000000001) , " 2.000000000000001" ) - TEST_LINE( Str(2.000000000000009) , " 2.000000000000009" ) - TEST_LINE( Str(2.00000000000001) , " 2.00000000000001" ) - TEST_LINE( Str(2.00000000000009) , " 2.00000000000009" ) - TEST_LINE( Str(2.000000000001) , " 2.000000000001" ) - TEST_LINE( Str(2.00000000001) , " 2.00000000001" ) - TEST_LINE( Str(10) , " 10" ) - TEST_LINE( Str(10.0) , " 10.0" ) - TEST_LINE( Str(10.00) , " 10.00" ) - TEST_LINE( Str(10.50) , " 10.50" ) - TEST_LINE( Str(100000) , " 100000" ) - TEST_LINE( Str(-10) , " -10" ) - TEST_LINE( Str(-10.0) , " -10.0" ) - TEST_LINE( Str(-10.00) , " -10.00" ) - TEST_LINE( Str(-10.50) , " -10.50" ) - TEST_LINE( Str(-100000) , " -100000" ) - TEST_LINE( Str(10, 5) , " 10" ) - TEST_LINE( Str(10.0, 5) , " 10" ) - TEST_LINE( Str(10.00, 5) , " 10" ) - TEST_LINE( Str(10.50, 5) , " 11" ) - TEST_LINE( Str(100000, 5) , "*****" ) - TEST_LINE( Str(100000, 8) , " 100000" ) - TEST_LINE( Str(-10, 5) , " -10" ) - TEST_LINE( Str(-10.0, 5) , " -10" ) - TEST_LINE( Str(-10.00, 5) , " -10" ) - TEST_LINE( Str(-10.50, 5) , " -11" ) - TEST_LINE( Str(-100000, 5) , "*****" ) - TEST_LINE( Str(-100000, 6) , "******" ) - TEST_LINE( Str(-100000, 8) , " -100000" ) + HBTEST Str(5000000000.0) IS "5000000000.0" + HBTEST Str(50000000) IS " 50000000" + HBTEST Str(500000000) IS " 500000000" + HBTEST Str(5000000000) IS " 5000000000" + HBTEST Str(50000000000) IS " 50000000000" + HBTEST Str(-5000000000.0) IS " -5000000000.0" + HBTEST Str(-5000000000) IS " -5000000000" + HBTEST Str(2.0000000000000001) IS " 2.0000000000000000" + HBTEST Str(2.0000000000000009) IS " 2.0000000000000010" + HBTEST Str(2.000000000000001) IS " 2.000000000000001" + HBTEST Str(2.000000000000009) IS " 2.000000000000009" + HBTEST Str(2.00000000000001) IS " 2.00000000000001" + HBTEST Str(2.00000000000009) IS " 2.00000000000009" + HBTEST Str(2.000000000001) IS " 2.000000000001" + HBTEST Str(2.00000000001) IS " 2.00000000001" + HBTEST Str(10) IS " 10" + HBTEST Str(10.0) IS " 10.0" + HBTEST Str(10.00) IS " 10.00" + HBTEST Str(10.50) IS " 10.50" + HBTEST Str(100000) IS " 100000" + HBTEST Str(-10) IS " -10" + HBTEST Str(-10.0) IS " -10.0" + HBTEST Str(-10.00) IS " -10.00" + HBTEST Str(-10.50) IS " -10.50" + HBTEST Str(-100000) IS " -100000" + HBTEST Str(10, 5) IS " 10" + HBTEST Str(10.0, 5) IS " 10" + HBTEST Str(10.00, 5) IS " 10" + HBTEST Str(10.50, 5) IS " 11" + HBTEST Str(100000, 5) IS "*****" + HBTEST Str(100000, 8) IS " 100000" + HBTEST Str(-10, 5) IS " -10" + HBTEST Str(-10.0, 5) IS " -10" + HBTEST Str(-10.00, 5) IS " -10" + HBTEST Str(-10.50, 5) IS " -11" + HBTEST Str(-100000, 5) IS "*****" + HBTEST Str(-100000, 6) IS "******" + HBTEST Str(-100000, 8) IS " -100000" #ifndef __XPP__ /* Internal structures corrupted */ - TEST_LINE( Str(10, -5) , " 10" ) - TEST_LINE( Str(10.0, -5) , " 10" ) - TEST_LINE( Str(10.00, -5) , " 10" ) - TEST_LINE( Str(10.50, -5) , " 11" ) - TEST_LINE( Str(100000, -5) , " 100000" ) - TEST_LINE( Str(100000, -8) , " 100000" ) - TEST_LINE( Str(-10, -5) , " -10" ) - TEST_LINE( Str(-10.0, -5) , " -10" ) - TEST_LINE( Str(-10.00, -5) , " -10" ) - TEST_LINE( Str(-10.50, -5) , " -11" ) - TEST_LINE( Str(-100000, -5) , " -100000" ) - TEST_LINE( Str(-100000, -6) , " -100000" ) - TEST_LINE( Str(-100000, -8) , " -100000" ) + HBTEST Str(10, -5) IS " 10" + HBTEST Str(10.0, -5) IS " 10" + HBTEST Str(10.00, -5) IS " 10" + HBTEST Str(10.50, -5) IS " 11" + HBTEST Str(100000, -5) IS " 100000" + HBTEST Str(100000, -8) IS " 100000" + HBTEST Str(-10, -5) IS " -10" + HBTEST Str(-10.0, -5) IS " -10" + HBTEST Str(-10.00, -5) IS " -10" + HBTEST Str(-10.50, -5) IS " -11" + HBTEST Str(-100000, -5) IS " -100000" + HBTEST Str(-100000, -6) IS " -100000" + HBTEST Str(-100000, -8) IS " -100000" #endif - TEST_LINE( Str(10, 5, 0) , " 10" ) - TEST_LINE( Str(10.0, 5, 0) , " 10" ) - TEST_LINE( Str(10.00, 5, 0) , " 10" ) - TEST_LINE( Str(10.50, 5, 0) , " 11" ) - TEST_LINE( Str(100000, 5, 0) , "*****" ) - TEST_LINE( Str(-10, 5, 0) , " -10" ) - TEST_LINE( Str(-10.0, 5, 0) , " -10" ) - TEST_LINE( Str(-10.00, 5, 0) , " -10" ) - TEST_LINE( Str(-10.50, 5, 0) , " -11" ) - TEST_LINE( Str(-100000, 5, 0) , "*****" ) - TEST_LINE( Str(-100000, 6, 0) , "******" ) - TEST_LINE( Str(-100000, 8, 0) , " -100000" ) - TEST_LINE( Str(10, 5, 1) , " 10.0" ) - TEST_LINE( Str(10.0, 5, 1) , " 10.0" ) - TEST_LINE( Str(10.00, 5, 1) , " 10.0" ) - TEST_LINE( Str(10.50, 5, 1) , " 10.5" ) - TEST_LINE( Str(100000, 5, 1) , "*****" ) - TEST_LINE( Str(-10, 5, 1) , "-10.0" ) - TEST_LINE( Str(-10.0, 5, 1) , "-10.0" ) - TEST_LINE( Str(-10.00, 5, 1) , "-10.0" ) - TEST_LINE( Str(-10.50, 5, 1) , "-10.5" ) - TEST_LINE( Str(-100000, 5, 1) , "*****" ) - TEST_LINE( Str(-100000, 6, 1) , "******" ) - TEST_LINE( Str(-100000, 8, 1) , "********" ) + HBTEST Str(10, 5, 0) IS " 10" + HBTEST Str(10.0, 5, 0) IS " 10" + HBTEST Str(10.00, 5, 0) IS " 10" + HBTEST Str(10.50, 5, 0) IS " 11" + HBTEST Str(100000, 5, 0) IS "*****" + HBTEST Str(-10, 5, 0) IS " -10" + HBTEST Str(-10.0, 5, 0) IS " -10" + HBTEST Str(-10.00, 5, 0) IS " -10" + HBTEST Str(-10.50, 5, 0) IS " -11" + HBTEST Str(-100000, 5, 0) IS "*****" + HBTEST Str(-100000, 6, 0) IS "******" + HBTEST Str(-100000, 8, 0) IS " -100000" + HBTEST Str(10, 5, 1) IS " 10.0" + HBTEST Str(10.0, 5, 1) IS " 10.0" + HBTEST Str(10.00, 5, 1) IS " 10.0" + HBTEST Str(10.50, 5, 1) IS " 10.5" + HBTEST Str(100000, 5, 1) IS "*****" + HBTEST Str(-10, 5, 1) IS "-10.0" + HBTEST Str(-10.0, 5, 1) IS "-10.0" + HBTEST Str(-10.00, 5, 1) IS "-10.0" + HBTEST Str(-10.50, 5, 1) IS "-10.5" + HBTEST Str(-100000, 5, 1) IS "*****" + HBTEST Str(-100000, 6, 1) IS "******" + HBTEST Str(-100000, 8, 1) IS "********" #ifndef __XPP__ /* Internal structures corrupted */ - TEST_LINE( Str(10, 5, -1) , " 10" ) - TEST_LINE( Str(10.0, 5, -1) , " 10" ) - TEST_LINE( Str(10.00, 5, -1) , " 10" ) - TEST_LINE( Str(10.50, 5, -1) , " 11" ) - TEST_LINE( Str(100000, 5, -1) , "*****" ) - TEST_LINE( Str(-10, 5, -1) , " -10" ) - TEST_LINE( Str(-10.0, 5, -1) , " -10" ) - TEST_LINE( Str(-10.00, 5, -1) , " -10" ) - TEST_LINE( Str(-10.50, 5, -1) , " -11" ) - TEST_LINE( Str(-100000, 5, -1) , "*****" ) - TEST_LINE( Str(-100000, 6, -1) , "******" ) - TEST_LINE( Str(-100000, 8, -1) , " -100000" ) + HBTEST Str(10, 5, -1) IS " 10" + HBTEST Str(10.0, 5, -1) IS " 10" + HBTEST Str(10.00, 5, -1) IS " 10" + HBTEST Str(10.50, 5, -1) IS " 11" + HBTEST Str(100000, 5, -1) IS "*****" + HBTEST Str(-10, 5, -1) IS " -10" + HBTEST Str(-10.0, 5, -1) IS " -10" + HBTEST Str(-10.00, 5, -1) IS " -10" + HBTEST Str(-10.50, 5, -1) IS " -11" + HBTEST Str(-100000, 5, -1) IS "*****" + HBTEST Str(-100000, 6, -1) IS "******" + HBTEST Str(-100000, 8, -1) IS " -100000" #endif /* StrZero() */ #ifdef HB_CLP_STRICT - TEST_LINE( StrZero(NIL) , "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( StrZero("A", 10, 2) , "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:C:A;N:10;N:2 F:S" ) - TEST_LINE( StrZero(100, 10, "A") , "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:N:100;N:10;C:A F:S" ) - TEST_LINE( StrZero(100, 10, NIL) , "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:N:100;N:10;U:NIL F:S" ) - TEST_LINE( StrZero(100, NIL, NIL) , "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:N:100;U:NIL;U:NIL F:S" ) + HBTEST StrZero(NIL) IS "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:1:U:NIL F:S" + HBTEST StrZero("A", 10, 2) IS "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:C:A;N:10;N:2 F:S" + HBTEST StrZero(100, 10, "A") IS "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:N:100;N:10;C:A F:S" + HBTEST StrZero(100, 10, NIL) IS "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:N:100;N:10;U:NIL F:S" + HBTEST StrZero(100, NIL, NIL) IS "E 1 BASE 1099 Argument error (STR) OS:0 #:0 A:3:N:100;U:NIL;U:NIL F:S" #else - TEST_LINE( StrZero(NIL) , "E 1 BASE 6003 Argument error (STRZERO) OS:0 #:0 A:1:U:NIL F:S" ) - TEST_LINE( StrZero("A", 10, 2) , "E 1 BASE 6003 Argument error (STRZERO) OS:0 #:0 A:3:C:A;N:10;N:2 F:S" ) - TEST_LINE( StrZero(100, 10, "A") , "E 1 BASE 6003 Argument error (STRZERO) OS:0 #:0 A:3:N:100;N:10;C:A F:S" ) - TEST_LINE( StrZero(100, 10, NIL) , "E 1 BASE 6003 Argument error (STRZERO) OS:0 #:0 A:3:N:100;N:10;U:NIL F:S" ) - TEST_LINE( StrZero(100, NIL, NIL) , "E 1 BASE 6003 Argument error (STRZERO) OS:0 #:0 A:3:N:100;U:NIL;U:NIL F:S" ) + HBTEST StrZero(NIL) IS "E 1 BASE 6003 Argument error (STRZERO) OS:0 #:0 A:1:U:NIL F:S" + HBTEST StrZero("A", 10, 2) IS "E 1 BASE 6003 Argument error (STRZERO) OS:0 #:0 A:3:C:A;N:10;N:2 F:S" + HBTEST StrZero(100, 10, "A") IS "E 1 BASE 6003 Argument error (STRZERO) OS:0 #:0 A:3:N:100;N:10;C:A F:S" + HBTEST StrZero(100, 10, NIL) IS "E 1 BASE 6003 Argument error (STRZERO) OS:0 #:0 A:3:N:100;N:10;U:NIL F:S" + HBTEST StrZero(100, NIL, NIL) IS "E 1 BASE 6003 Argument error (STRZERO) OS:0 #:0 A:3:N:100;U:NIL;U:NIL F:S" #endif - TEST_LINE( StrZero(10) , "0000000010" ) - TEST_LINE( StrZero(10.0) , "0000000010.0" ) - TEST_LINE( StrZero(10.00) , "0000000010.00" ) - TEST_LINE( StrZero(10.50) , "0000000010.50" ) - TEST_LINE( StrZero(100000) , "0000100000" ) - TEST_LINE( StrZero(-10) , "-000000010" ) - TEST_LINE( StrZero(-10.0) , "-000000010.0" ) - TEST_LINE( StrZero(-10.00) , "-000000010.00" ) - TEST_LINE( StrZero(-10.50) , "-000000010.50" ) - TEST_LINE( StrZero(-100000) , "-000100000" ) - TEST_LINE( StrZero(10, 5) , "00010" ) - TEST_LINE( StrZero(10.0, 5) , "00010" ) - TEST_LINE( StrZero(10.00, 5) , "00010" ) - TEST_LINE( StrZero(10.50, 5) , "00011" ) - TEST_LINE( StrZero(100000, 5) , "*****" ) - TEST_LINE( StrZero(100000, 8) , "00100000" ) - TEST_LINE( StrZero(-10, 5) , "-0010" ) - TEST_LINE( StrZero(-10.0, 5) , "-0010" ) - TEST_LINE( StrZero(-10.00, 5) , "-0010" ) - TEST_LINE( StrZero(-10.50, 5) , "-0011" ) - TEST_LINE( StrZero(-100000, 5) , "*****" ) - TEST_LINE( StrZero(-100000, 6) , "******" ) - TEST_LINE( StrZero(-100000, 8) , "-0100000" ) + HBTEST StrZero(10) IS "0000000010" + HBTEST StrZero(10.0) IS "0000000010.0" + HBTEST StrZero(10.00) IS "0000000010.00" + HBTEST StrZero(10.50) IS "0000000010.50" + HBTEST StrZero(100000) IS "0000100000" + HBTEST StrZero(-10) IS "-000000010" + HBTEST StrZero(-10.0) IS "-000000010.0" + HBTEST StrZero(-10.00) IS "-000000010.00" + HBTEST StrZero(-10.50) IS "-000000010.50" + HBTEST StrZero(-100000) IS "-000100000" + HBTEST StrZero(10, 5) IS "00010" + HBTEST StrZero(10.0, 5) IS "00010" + HBTEST StrZero(10.00, 5) IS "00010" + HBTEST StrZero(10.50, 5) IS "00011" + HBTEST StrZero(100000, 5) IS "*****" + HBTEST StrZero(100000, 8) IS "00100000" + HBTEST StrZero(-10, 5) IS "-0010" + HBTEST StrZero(-10.0, 5) IS "-0010" + HBTEST StrZero(-10.00, 5) IS "-0010" + HBTEST StrZero(-10.50, 5) IS "-0011" + HBTEST StrZero(-100000, 5) IS "*****" + HBTEST StrZero(-100000, 6) IS "******" + HBTEST StrZero(-100000, 8) IS "-0100000" #ifndef __XPP__ /* Internal structures corrupted */ - TEST_LINE( StrZero(10, -5) , "0000000010" ) - TEST_LINE( StrZero(10.0, -5) , "0000000010" ) - TEST_LINE( StrZero(10.00, -5) , "0000000010" ) - TEST_LINE( StrZero(10.50, -5) , "0000000011" ) - TEST_LINE( StrZero(100000, -5) , "0000100000" ) - TEST_LINE( StrZero(100000, -8) , "0000100000" ) - TEST_LINE( StrZero(-10, -5) , "-000000010" ) - TEST_LINE( StrZero(-10.0, -5) , "-000000010" ) - TEST_LINE( StrZero(-10.00, -5) , "-000000010" ) - TEST_LINE( StrZero(-10.50, -5) , "-000000011" ) - TEST_LINE( StrZero(-100000, -5) , "-000100000" ) - TEST_LINE( StrZero(-100000, -6) , "-000100000" ) - TEST_LINE( StrZero(-100000, -8) , "-000100000" ) + HBTEST StrZero(10, -5) IS "0000000010" + HBTEST StrZero(10.0, -5) IS "0000000010" + HBTEST StrZero(10.00, -5) IS "0000000010" + HBTEST StrZero(10.50, -5) IS "0000000011" + HBTEST StrZero(100000, -5) IS "0000100000" + HBTEST StrZero(100000, -8) IS "0000100000" + HBTEST StrZero(-10, -5) IS "-000000010" + HBTEST StrZero(-10.0, -5) IS "-000000010" + HBTEST StrZero(-10.00, -5) IS "-000000010" + HBTEST StrZero(-10.50, -5) IS "-000000011" + HBTEST StrZero(-100000, -5) IS "-000100000" + HBTEST StrZero(-100000, -6) IS "-000100000" + HBTEST StrZero(-100000, -8) IS "-000100000" #endif - TEST_LINE( StrZero(10, 5, 0) , "00010" ) - TEST_LINE( StrZero(10.0, 5, 0) , "00010" ) - TEST_LINE( StrZero(10.50, 5, 0) , "00011" ) - TEST_LINE( StrZero(100000, 5, 0) , "*****" ) - TEST_LINE( StrZero(-10, 5, 0) , "-0010" ) - TEST_LINE( StrZero(-10.0, 5, 0) , "-0010" ) - TEST_LINE( StrZero(-10.00, 5, 0) , "-0010" ) - TEST_LINE( StrZero(-10.50, 5, 0) , "-0011" ) - TEST_LINE( StrZero(-100000, 5, 0) , "*****" ) - TEST_LINE( StrZero(-100000, 6, 0) , "******" ) - TEST_LINE( StrZero(-100000, 8, 0) , "-0100000" ) - TEST_LINE( StrZero(10, 5, 1) , "010.0" ) - TEST_LINE( StrZero(10.0, 5, 1) , "010.0" ) - TEST_LINE( StrZero(10.50, 5, 1) , "010.5" ) - TEST_LINE( StrZero(100000, 5, 1) , "*****" ) - TEST_LINE( StrZero(-10, 5, 1) , "-10.0" ) - TEST_LINE( StrZero(-10.0, 5, 1) , "-10.0" ) - TEST_LINE( StrZero(-10.00, 5, 1) , "-10.0" ) - TEST_LINE( StrZero(-10.50, 5, 1) , "-10.5" ) - TEST_LINE( StrZero(-100000, 5, 1) , "*****" ) - TEST_LINE( StrZero(-100000, 6, 1) , "******" ) - TEST_LINE( StrZero(-100000, 8, 1) , "********" ) + HBTEST StrZero(10, 5, 0) IS "00010" + HBTEST StrZero(10.0, 5, 0) IS "00010" + HBTEST StrZero(10.50, 5, 0) IS "00011" + HBTEST StrZero(100000, 5, 0) IS "*****" + HBTEST StrZero(-10, 5, 0) IS "-0010" + HBTEST StrZero(-10.0, 5, 0) IS "-0010" + HBTEST StrZero(-10.00, 5, 0) IS "-0010" + HBTEST StrZero(-10.50, 5, 0) IS "-0011" + HBTEST StrZero(-100000, 5, 0) IS "*****" + HBTEST StrZero(-100000, 6, 0) IS "******" + HBTEST StrZero(-100000, 8, 0) IS "-0100000" + HBTEST StrZero(10, 5, 1) IS "010.0" + HBTEST StrZero(10.0, 5, 1) IS "010.0" + HBTEST StrZero(10.50, 5, 1) IS "010.5" + HBTEST StrZero(100000, 5, 1) IS "*****" + HBTEST StrZero(-10, 5, 1) IS "-10.0" + HBTEST StrZero(-10.0, 5, 1) IS "-10.0" + HBTEST StrZero(-10.00, 5, 1) IS "-10.0" + HBTEST StrZero(-10.50, 5, 1) IS "-10.5" + HBTEST StrZero(-100000, 5, 1) IS "*****" + HBTEST StrZero(-100000, 6, 1) IS "******" + HBTEST StrZero(-100000, 8, 1) IS "********" #ifndef __XPP__ /* Internal structures corrupted */ - TEST_LINE( StrZero(10, 5, -1) , "00010" ) - TEST_LINE( StrZero(10.0, 5, -1) , "00010" ) - TEST_LINE( StrZero(10.50, 5, -1) , "00011" ) - TEST_LINE( StrZero(100000, 5, -1) , "*****" ) - TEST_LINE( StrZero(-10, 5, -1) , "-0010" ) - TEST_LINE( StrZero(-10.0, 5, -1) , "-0010" ) - TEST_LINE( StrZero(-10.00, 5, -1) , "-0010" ) - TEST_LINE( StrZero(-10.50, 5, -1) , "-0011" ) - TEST_LINE( StrZero(-100000, 5, -1) , "*****" ) - TEST_LINE( StrZero(-100000, 6, -1) , "******" ) - TEST_LINE( StrZero(-100000, 8, -1) , "-0100000" ) + HBTEST StrZero(10, 5, -1) IS "00010" + HBTEST StrZero(10.0, 5, -1) IS "00010" + HBTEST StrZero(10.50, 5, -1) IS "00011" + HBTEST StrZero(100000, 5, -1) IS "*****" + HBTEST StrZero(-10, 5, -1) IS "-0010" + HBTEST StrZero(-10.0, 5, -1) IS "-0010" + HBTEST StrZero(-10.00, 5, -1) IS "-0010" + HBTEST StrZero(-10.50, 5, -1) IS "-0011" + HBTEST StrZero(-100000, 5, -1) IS "*****" + HBTEST StrZero(-100000, 6, -1) IS "******" + HBTEST StrZero(-100000, 8, -1) IS "-0100000" #endif RETURN @@ -256,111 +256,111 @@ PROCEDURE Main_STRA() PROCEDURE Comp_Str() LOCAL old_exact := Set( _SET_EXACT, .F. ) - TEST_LINE( "ABC" == "", .F. ) - TEST_LINE( "ABC" = "", .T. ) - TEST_LINE( "ABC" != "", .F. ) - TEST_LINE( "ABC" < "", .F. ) - TEST_LINE( "ABC" <= "", .T. ) - TEST_LINE( "ABC" > "", .F. ) - TEST_LINE( "ABC" >= "", .T. ) - TEST_LINE( "" == "ABC", .F. ) - TEST_LINE( "" = "ABC", .F. ) - TEST_LINE( "" != "ABC", .T. ) - TEST_LINE( "" < "ABC", .T. ) - TEST_LINE( "" <= "ABC", .T. ) - TEST_LINE( "" > "ABC", .F. ) - TEST_LINE( "" >= "ABC", .F. ) - TEST_LINE( "ABC" == " ", .F. ) - TEST_LINE( "ABC" = " ", .F. ) - TEST_LINE( "ABC" != " ", .T. ) - TEST_LINE( "ABC" < " ", .F. ) - TEST_LINE( "ABC" <= " ", .F. ) - TEST_LINE( "ABC" > " ", .T. ) - TEST_LINE( "ABC" >= " ", .T. ) - TEST_LINE( " " == "ABC", .F. ) - TEST_LINE( " " = "ABC", .F. ) - TEST_LINE( " " != "ABC", .T. ) - TEST_LINE( " " < "ABC", .T. ) - TEST_LINE( " " <= "ABC", .T. ) - TEST_LINE( " " > "ABC", .F. ) - TEST_LINE( " " >= "ABC", .F. ) - TEST_LINE( "ABC" == "ABC", .T. ) - TEST_LINE( "ABC" = "ABC", .T. ) - TEST_LINE( "ABC" != "ABC", .F. ) - TEST_LINE( "ABC" < "ABC", .F. ) - TEST_LINE( "ABC" <= "ABC", .T. ) - TEST_LINE( "ABC" > "ABC", .F. ) - TEST_LINE( "ABC" >= "ABC", .T. ) - TEST_LINE( "ABC" == "ABCD", .F. ) - TEST_LINE( "ABC" = "ABCD", .F. ) - TEST_LINE( "ABC" != "ABCD", .T. ) - TEST_LINE( "ABC" < "ABCD", .T. ) - TEST_LINE( "ABC" <= "ABCD", .T. ) - TEST_LINE( "ABC" > "ABCD", .F. ) - TEST_LINE( "ABC" >= "ABCD", .F. ) - TEST_LINE( "ABCD" == "ABC", .F. ) - TEST_LINE( "ABCD" = "ABC", .T. ) - TEST_LINE( "ABCD" != "ABC", .F. ) - TEST_LINE( "ABCD" < "ABC", .F. ) - TEST_LINE( "ABCD" <= "ABC", .T. ) - TEST_LINE( "ABCD" > "ABC", .F. ) - TEST_LINE( "ABCD" >= "ABC", .T. ) - TEST_LINE( "ABC" == "ABC ", .F. ) - TEST_LINE( "ABC" = "ABC ", .F. ) - TEST_LINE( "ABC" != "ABC ", .T. ) - TEST_LINE( "ABC" < "ABC ", .T. ) - TEST_LINE( "ABC" <= "ABC ", .T. ) - TEST_LINE( "ABC" > "ABC ", .F. ) - TEST_LINE( "ABC" >= "ABC ", .F. ) - TEST_LINE( "ABC " == "ABC", .F. ) - TEST_LINE( "ABC " = "ABC", .T. ) - TEST_LINE( "ABC " != "ABC", .F. ) - TEST_LINE( "ABC " < "ABC", .F. ) - TEST_LINE( "ABC " <= "ABC", .T. ) - TEST_LINE( "ABC " > "ABC", .F. ) - TEST_LINE( "ABC " >= "ABC", .T. ) - TEST_LINE( "ABC" == "DEF", .F. ) - TEST_LINE( "ABC" = "DEF", .F. ) - TEST_LINE( "ABC" != "DEF", .T. ) - TEST_LINE( "ABC" < "DEF", .T. ) - TEST_LINE( "ABC" <= "DEF", .T. ) - TEST_LINE( "ABC" > "DEF", .F. ) - TEST_LINE( "ABC" >= "DEF", .F. ) - TEST_LINE( "DEF" == "ABC", .F. ) - TEST_LINE( "DEF" = "ABC", .F. ) - TEST_LINE( "DEF" != "ABC", .T. ) - TEST_LINE( "DEF" < "ABC", .F. ) - TEST_LINE( "DEF" <= "ABC", .F. ) - TEST_LINE( "DEF" > "ABC", .T. ) - TEST_LINE( "DEF" >= "ABC", .T. ) - TEST_LINE( "ABC" == "DEFG", .F. ) - TEST_LINE( "ABC" = "DEFG", .F. ) - TEST_LINE( "ABC" != "DEFG", .T. ) - TEST_LINE( "ABC" < "DEFG", .T. ) - TEST_LINE( "ABC" <= "DEFG", .T. ) - TEST_LINE( "ABC" > "DEFG", .F. ) - TEST_LINE( "ABC" >= "DEFG", .F. ) - TEST_LINE( "DEFG" == "ABC", .F. ) - TEST_LINE( "DEFG" = "ABC", .F. ) - TEST_LINE( "DEFG" != "ABC", .T. ) - TEST_LINE( "DEFG" < "ABC", .F. ) - TEST_LINE( "DEFG" <= "ABC", .F. ) - TEST_LINE( "DEFG" > "ABC", .T. ) - TEST_LINE( "DEFG" >= "ABC", .T. ) - TEST_LINE( "ABCD" == "DEF", .F. ) - TEST_LINE( "ABCD" = "DEF", .F. ) - TEST_LINE( "ABCD" != "DEF", .T. ) - TEST_LINE( "ABCD" < "DEF", .T. ) - TEST_LINE( "ABCD" <= "DEF", .T. ) - TEST_LINE( "ABCD" > "DEF", .F. ) - TEST_LINE( "ABCD" >= "DEF", .F. ) - TEST_LINE( "DEF" == "ABCD", .F. ) - TEST_LINE( "DEF" = "ABCD", .F. ) - TEST_LINE( "DEF" != "ABCD", .T. ) - TEST_LINE( "DEF" < "ABCD", .F. ) - TEST_LINE( "DEF" <= "ABCD", .F. ) - TEST_LINE( "DEF" > "ABCD", .T. ) - TEST_LINE( "DEF" >= "ABCD", .T. ) + HBTEST "ABC" == "" IS .F. + HBTEST "ABC" = "" IS .T. + HBTEST "ABC" != "" IS .F. + HBTEST "ABC" < "" IS .F. + HBTEST "ABC" <= "" IS .T. + HBTEST "ABC" > "" IS .F. + HBTEST "ABC" >= "" IS .T. + HBTEST "" == "ABC" IS .F. + HBTEST "" = "ABC" IS .F. + HBTEST "" != "ABC" IS .T. + HBTEST "" < "ABC" IS .T. + HBTEST "" <= "ABC" IS .T. + HBTEST "" > "ABC" IS .F. + HBTEST "" >= "ABC" IS .F. + HBTEST "ABC" == " " IS .F. + HBTEST "ABC" = " " IS .F. + HBTEST "ABC" != " " IS .T. + HBTEST "ABC" < " " IS .F. + HBTEST "ABC" <= " " IS .F. + HBTEST "ABC" > " " IS .T. + HBTEST "ABC" >= " " IS .T. + HBTEST " " == "ABC" IS .F. + HBTEST " " = "ABC" IS .F. + HBTEST " " != "ABC" IS .T. + HBTEST " " < "ABC" IS .T. + HBTEST " " <= "ABC" IS .T. + HBTEST " " > "ABC" IS .F. + HBTEST " " >= "ABC" IS .F. + HBTEST "ABC" == "ABC" IS .T. + HBTEST "ABC" = "ABC" IS .T. + HBTEST "ABC" != "ABC" IS .F. + HBTEST "ABC" < "ABC" IS .F. + HBTEST "ABC" <= "ABC" IS .T. + HBTEST "ABC" > "ABC" IS .F. + HBTEST "ABC" >= "ABC" IS .T. + HBTEST "ABC" == "ABCD" IS .F. + HBTEST "ABC" = "ABCD" IS .F. + HBTEST "ABC" != "ABCD" IS .T. + HBTEST "ABC" < "ABCD" IS .T. + HBTEST "ABC" <= "ABCD" IS .T. + HBTEST "ABC" > "ABCD" IS .F. + HBTEST "ABC" >= "ABCD" IS .F. + HBTEST "ABCD" == "ABC" IS .F. + HBTEST "ABCD" = "ABC" IS .T. + HBTEST "ABCD" != "ABC" IS .F. + HBTEST "ABCD" < "ABC" IS .F. + HBTEST "ABCD" <= "ABC" IS .T. + HBTEST "ABCD" > "ABC" IS .F. + HBTEST "ABCD" >= "ABC" IS .T. + HBTEST "ABC" == "ABC " IS .F. + HBTEST "ABC" = "ABC " IS .F. + HBTEST "ABC" != "ABC " IS .T. + HBTEST "ABC" < "ABC " IS .T. + HBTEST "ABC" <= "ABC " IS .T. + HBTEST "ABC" > "ABC " IS .F. + HBTEST "ABC" >= "ABC " IS .F. + HBTEST "ABC " == "ABC" IS .F. + HBTEST "ABC " = "ABC" IS .T. + HBTEST "ABC " != "ABC" IS .F. + HBTEST "ABC " < "ABC" IS .F. + HBTEST "ABC " <= "ABC" IS .T. + HBTEST "ABC " > "ABC" IS .F. + HBTEST "ABC " >= "ABC" IS .T. + HBTEST "ABC" == "DEF" IS .F. + HBTEST "ABC" = "DEF" IS .F. + HBTEST "ABC" != "DEF" IS .T. + HBTEST "ABC" < "DEF" IS .T. + HBTEST "ABC" <= "DEF" IS .T. + HBTEST "ABC" > "DEF" IS .F. + HBTEST "ABC" >= "DEF" IS .F. + HBTEST "DEF" == "ABC" IS .F. + HBTEST "DEF" = "ABC" IS .F. + HBTEST "DEF" != "ABC" IS .T. + HBTEST "DEF" < "ABC" IS .F. + HBTEST "DEF" <= "ABC" IS .F. + HBTEST "DEF" > "ABC" IS .T. + HBTEST "DEF" >= "ABC" IS .T. + HBTEST "ABC" == "DEFG" IS .F. + HBTEST "ABC" = "DEFG" IS .F. + HBTEST "ABC" != "DEFG" IS .T. + HBTEST "ABC" < "DEFG" IS .T. + HBTEST "ABC" <= "DEFG" IS .T. + HBTEST "ABC" > "DEFG" IS .F. + HBTEST "ABC" >= "DEFG" IS .F. + HBTEST "DEFG" == "ABC" IS .F. + HBTEST "DEFG" = "ABC" IS .F. + HBTEST "DEFG" != "ABC" IS .T. + HBTEST "DEFG" < "ABC" IS .F. + HBTEST "DEFG" <= "ABC" IS .F. + HBTEST "DEFG" > "ABC" IS .T. + HBTEST "DEFG" >= "ABC" IS .T. + HBTEST "ABCD" == "DEF" IS .F. + HBTEST "ABCD" = "DEF" IS .F. + HBTEST "ABCD" != "DEF" IS .T. + HBTEST "ABCD" < "DEF" IS .T. + HBTEST "ABCD" <= "DEF" IS .T. + HBTEST "ABCD" > "DEF" IS .F. + HBTEST "ABCD" >= "DEF" IS .F. + HBTEST "DEF" == "ABCD" IS .F. + HBTEST "DEF" = "ABCD" IS .F. + HBTEST "DEF" != "ABCD" IS .T. + HBTEST "DEF" < "ABCD" IS .F. + HBTEST "DEF" <= "ABCD" IS .F. + HBTEST "DEF" > "ABCD" IS .T. + HBTEST "DEF" >= "ABCD" IS .T. Set( _SET_EXACT, old_exact ) RETURN @@ -368,111 +368,111 @@ PROCEDURE Comp_Str() PROCEDURE Exact_Str() LOCAL old_exact := Set( _SET_EXACT, .T. ) - TEST_LINE( "ABC" == "", .F. ) - TEST_LINE( "ABC" = "", .F. ) - TEST_LINE( "ABC" != "", .T. ) - TEST_LINE( "ABC" < "", .F. ) - TEST_LINE( "ABC" <= "", .F. ) - TEST_LINE( "ABC" > "", .T. ) - TEST_LINE( "ABC" >= "", .T. ) - TEST_LINE( "" == "ABC", .F. ) - TEST_LINE( "" = "ABC", .F. ) - TEST_LINE( "" != "ABC", .T. ) - TEST_LINE( "" < "ABC", .T. ) - TEST_LINE( "" <= "ABC", .T. ) - TEST_LINE( "" > "ABC", .F. ) - TEST_LINE( "" >= "ABC", .F. ) - TEST_LINE( "ABC" == " ", .F. ) - TEST_LINE( "ABC" = " ", .F. ) - TEST_LINE( "ABC" != " ", .T. ) - TEST_LINE( "ABC" < " ", .F. ) - TEST_LINE( "ABC" <= " ", .F. ) - TEST_LINE( "ABC" > " ", .T. ) - TEST_LINE( "ABC" >= " ", .T. ) - TEST_LINE( " " == "ABC", .F. ) - TEST_LINE( " " = "ABC", .F. ) - TEST_LINE( " " != "ABC", .T. ) - TEST_LINE( " " < "ABC", .T. ) - TEST_LINE( " " <= "ABC", .T. ) - TEST_LINE( " " > "ABC", .F. ) - TEST_LINE( " " >= "ABC", .F. ) - TEST_LINE( "ABC" == "ABC", .T. ) - TEST_LINE( "ABC" = "ABC", .T. ) - TEST_LINE( "ABC" != "ABC", .F. ) - TEST_LINE( "ABC" < "ABC", .F. ) - TEST_LINE( "ABC" <= "ABC", .T. ) - TEST_LINE( "ABC" > "ABC", .F. ) - TEST_LINE( "ABC" >= "ABC", .T. ) - TEST_LINE( "ABC" == "ABCD", .F. ) - TEST_LINE( "ABC" = "ABCD", .F. ) - TEST_LINE( "ABC" != "ABCD", .T. ) - TEST_LINE( "ABC" < "ABCD", .T. ) - TEST_LINE( "ABC" <= "ABCD", .T. ) - TEST_LINE( "ABC" > "ABCD", .F. ) - TEST_LINE( "ABC" >= "ABCD", .F. ) - TEST_LINE( "ABCD" == "ABC", .F. ) - TEST_LINE( "ABCD" = "ABC", .F. ) - TEST_LINE( "ABCD" != "ABC", .T. ) - TEST_LINE( "ABCD" < "ABC", .F. ) - TEST_LINE( "ABCD" <= "ABC", .F. ) - TEST_LINE( "ABCD" > "ABC", .T. ) - TEST_LINE( "ABCD" >= "ABC", .T. ) - TEST_LINE( "ABC" == "ABC ", .F. ) - TEST_LINE( "ABC" = "ABC ", .T. ) - TEST_LINE( "ABC" != "ABC ", .F. ) - TEST_LINE( "ABC" < "ABC ", .F. ) - TEST_LINE( "ABC" <= "ABC ", .T. ) - TEST_LINE( "ABC" > "ABC ", .F. ) - TEST_LINE( "ABC" >= "ABC ", .T. ) - TEST_LINE( "ABC " == "ABC", .F. ) - TEST_LINE( "ABC " = "ABC", .T. ) - TEST_LINE( "ABC " != "ABC", .F. ) - TEST_LINE( "ABC " < "ABC", .F. ) - TEST_LINE( "ABC " <= "ABC", .T. ) - TEST_LINE( "ABC " > "ABC", .F. ) - TEST_LINE( "ABC " >= "ABC", .T. ) - TEST_LINE( "ABC" == "DEF", .F. ) - TEST_LINE( "ABC" = "DEF", .F. ) - TEST_LINE( "ABC" != "DEF", .T. ) - TEST_LINE( "ABC" < "DEF", .T. ) - TEST_LINE( "ABC" <= "DEF", .T. ) - TEST_LINE( "ABC" > "DEF", .F. ) - TEST_LINE( "ABC" >= "DEF", .F. ) - TEST_LINE( "DEF" == "ABC", .F. ) - TEST_LINE( "DEF" = "ABC", .F. ) - TEST_LINE( "DEF" != "ABC", .T. ) - TEST_LINE( "DEF" < "ABC", .F. ) - TEST_LINE( "DEF" <= "ABC", .F. ) - TEST_LINE( "DEF" > "ABC", .T. ) - TEST_LINE( "DEF" >= "ABC", .T. ) - TEST_LINE( "ABC" == "DEFG", .F. ) - TEST_LINE( "ABC" = "DEFG", .F. ) - TEST_LINE( "ABC" != "DEFG", .T. ) - TEST_LINE( "ABC" < "DEFG", .T. ) - TEST_LINE( "ABC" <= "DEFG", .T. ) - TEST_LINE( "ABC" > "DEFG", .F. ) - TEST_LINE( "ABC" >= "DEFG", .F. ) - TEST_LINE( "DEFG" == "ABC", .F. ) - TEST_LINE( "DEFG" = "ABC", .F. ) - TEST_LINE( "DEFG" != "ABC", .T. ) - TEST_LINE( "DEFG" < "ABC", .F. ) - TEST_LINE( "DEFG" <= "ABC", .F. ) - TEST_LINE( "DEFG" > "ABC", .T. ) - TEST_LINE( "DEFG" >= "ABC", .T. ) - TEST_LINE( "ABCD" == "DEF", .F. ) - TEST_LINE( "ABCD" = "DEF", .F. ) - TEST_LINE( "ABCD" != "DEF", .T. ) - TEST_LINE( "ABCD" < "DEF", .T. ) - TEST_LINE( "ABCD" <= "DEF", .T. ) - TEST_LINE( "ABCD" > "DEF", .F. ) - TEST_LINE( "ABCD" >= "DEF", .F. ) - TEST_LINE( "DEF" == "ABCD", .F. ) - TEST_LINE( "DEF" = "ABCD", .F. ) - TEST_LINE( "DEF" != "ABCD", .T. ) - TEST_LINE( "DEF" < "ABCD", .F. ) - TEST_LINE( "DEF" <= "ABCD", .F. ) - TEST_LINE( "DEF" > "ABCD", .T. ) - TEST_LINE( "DEF" >= "ABCD", .T. ) + HBTEST "ABC" == "" IS .F. + HBTEST "ABC" = "" IS .F. + HBTEST "ABC" != "" IS .T. + HBTEST "ABC" < "" IS .F. + HBTEST "ABC" <= "" IS .F. + HBTEST "ABC" > "" IS .T. + HBTEST "ABC" >= "" IS .T. + HBTEST "" == "ABC" IS .F. + HBTEST "" = "ABC" IS .F. + HBTEST "" != "ABC" IS .T. + HBTEST "" < "ABC" IS .T. + HBTEST "" <= "ABC" IS .T. + HBTEST "" > "ABC" IS .F. + HBTEST "" >= "ABC" IS .F. + HBTEST "ABC" == " " IS .F. + HBTEST "ABC" = " " IS .F. + HBTEST "ABC" != " " IS .T. + HBTEST "ABC" < " " IS .F. + HBTEST "ABC" <= " " IS .F. + HBTEST "ABC" > " " IS .T. + HBTEST "ABC" >= " " IS .T. + HBTEST " " == "ABC" IS .F. + HBTEST " " = "ABC" IS .F. + HBTEST " " != "ABC" IS .T. + HBTEST " " < "ABC" IS .T. + HBTEST " " <= "ABC" IS .T. + HBTEST " " > "ABC" IS .F. + HBTEST " " >= "ABC" IS .F. + HBTEST "ABC" == "ABC" IS .T. + HBTEST "ABC" = "ABC" IS .T. + HBTEST "ABC" != "ABC" IS .F. + HBTEST "ABC" < "ABC" IS .F. + HBTEST "ABC" <= "ABC" IS .T. + HBTEST "ABC" > "ABC" IS .F. + HBTEST "ABC" >= "ABC" IS .T. + HBTEST "ABC" == "ABCD" IS .F. + HBTEST "ABC" = "ABCD" IS .F. + HBTEST "ABC" != "ABCD" IS .T. + HBTEST "ABC" < "ABCD" IS .T. + HBTEST "ABC" <= "ABCD" IS .T. + HBTEST "ABC" > "ABCD" IS .F. + HBTEST "ABC" >= "ABCD" IS .F. + HBTEST "ABCD" == "ABC" IS .F. + HBTEST "ABCD" = "ABC" IS .F. + HBTEST "ABCD" != "ABC" IS .T. + HBTEST "ABCD" < "ABC" IS .F. + HBTEST "ABCD" <= "ABC" IS .F. + HBTEST "ABCD" > "ABC" IS .T. + HBTEST "ABCD" >= "ABC" IS .T. + HBTEST "ABC" == "ABC " IS .F. + HBTEST "ABC" = "ABC " IS .T. + HBTEST "ABC" != "ABC " IS .F. + HBTEST "ABC" < "ABC " IS .F. + HBTEST "ABC" <= "ABC " IS .T. + HBTEST "ABC" > "ABC " IS .F. + HBTEST "ABC" >= "ABC " IS .T. + HBTEST "ABC " == "ABC" IS .F. + HBTEST "ABC " = "ABC" IS .T. + HBTEST "ABC " != "ABC" IS .F. + HBTEST "ABC " < "ABC" IS .F. + HBTEST "ABC " <= "ABC" IS .T. + HBTEST "ABC " > "ABC" IS .F. + HBTEST "ABC " >= "ABC" IS .T. + HBTEST "ABC" == "DEF" IS .F. + HBTEST "ABC" = "DEF" IS .F. + HBTEST "ABC" != "DEF" IS .T. + HBTEST "ABC" < "DEF" IS .T. + HBTEST "ABC" <= "DEF" IS .T. + HBTEST "ABC" > "DEF" IS .F. + HBTEST "ABC" >= "DEF" IS .F. + HBTEST "DEF" == "ABC" IS .F. + HBTEST "DEF" = "ABC" IS .F. + HBTEST "DEF" != "ABC" IS .T. + HBTEST "DEF" < "ABC" IS .F. + HBTEST "DEF" <= "ABC" IS .F. + HBTEST "DEF" > "ABC" IS .T. + HBTEST "DEF" >= "ABC" IS .T. + HBTEST "ABC" == "DEFG" IS .F. + HBTEST "ABC" = "DEFG" IS .F. + HBTEST "ABC" != "DEFG" IS .T. + HBTEST "ABC" < "DEFG" IS .T. + HBTEST "ABC" <= "DEFG" IS .T. + HBTEST "ABC" > "DEFG" IS .F. + HBTEST "ABC" >= "DEFG" IS .F. + HBTEST "DEFG" == "ABC" IS .F. + HBTEST "DEFG" = "ABC" IS .F. + HBTEST "DEFG" != "ABC" IS .T. + HBTEST "DEFG" < "ABC" IS .F. + HBTEST "DEFG" <= "ABC" IS .F. + HBTEST "DEFG" > "ABC" IS .T. + HBTEST "DEFG" >= "ABC" IS .T. + HBTEST "ABCD" == "DEF" IS .F. + HBTEST "ABCD" = "DEF" IS .F. + HBTEST "ABCD" != "DEF" IS .T. + HBTEST "ABCD" < "DEF" IS .T. + HBTEST "ABCD" <= "DEF" IS .T. + HBTEST "ABCD" > "DEF" IS .F. + HBTEST "ABCD" >= "DEF" IS .F. + HBTEST "DEF" == "ABCD" IS .F. + HBTEST "DEF" = "ABCD" IS .F. + HBTEST "DEF" != "ABCD" IS .T. + HBTEST "DEF" < "ABCD" IS .F. + HBTEST "DEF" <= "ABCD" IS .F. + HBTEST "DEF" > "ABCD" IS .T. + HBTEST "DEF" >= "ABCD" IS .T. Set( _SET_EXACT, old_exact ) @@ -482,44 +482,44 @@ PROCEDURE New_STRINGS() #ifdef __HARBOUR__ - TEST_LINE( hb_ValToStr( 4 ) , " 4" ) - TEST_LINE( hb_ValToStr( 4.0 / 2 ) , " 2.00" ) - TEST_LINE( hb_ValToStr( "String" ) , "String" ) - TEST_LINE( hb_ValToStr( hb_SToD( "20010101" ) ) , "2001.01.01" ) - TEST_LINE( hb_ValToStr( NIL ) , "NIL" ) - TEST_LINE( hb_ValToStr( .F. ) , ".F." ) - TEST_LINE( hb_ValToStr( .T. ) , ".T." ) + HBTEST hb_ValToStr( 4 ) IS " 4" + HBTEST hb_ValToStr( 4.0 / 2 ) IS " 2.00" + HBTEST hb_ValToStr( "String" ) IS "String" + HBTEST hb_ValToStr( hb_SToD( "20010101" ) ) IS "2001.01.01" + HBTEST hb_ValToStr( NIL ) IS "NIL" + HBTEST hb_ValToStr( .F. ) IS ".F." + HBTEST hb_ValToStr( .T. ) IS ".T." - TEST_LINE( hb_StrShrink() , "" ) - TEST_LINE( hb_StrShrink( NIL ) , "" ) - TEST_LINE( hb_StrShrink( "" ) , "" ) - TEST_LINE( hb_StrShrink( "", -1 ) , "" ) - TEST_LINE( hb_StrShrink( "", 0 ) , "" ) - TEST_LINE( hb_StrShrink( "", 1 ) , "" ) - TEST_LINE( hb_StrShrink( "", 10 ) , "" ) - TEST_LINE( hb_StrShrink( "a" ) , "" ) - TEST_LINE( hb_StrShrink( "a", -1 ) , "a" ) - TEST_LINE( hb_StrShrink( "a", 0 ) , "a" ) - TEST_LINE( hb_StrShrink( "a", 1 ) , "" ) - TEST_LINE( hb_StrShrink( "a", 10 ) , "" ) - TEST_LINE( hb_StrShrink( "ab" ) , "a" ) - TEST_LINE( hb_StrShrink( "ab", -1 ) , "ab" ) - TEST_LINE( hb_StrShrink( "ab", 0 ) , "ab" ) - TEST_LINE( hb_StrShrink( "ab", 1 ) , "a" ) - TEST_LINE( hb_StrShrink( "ab", 10 ) , "" ) - TEST_LINE( hb_StrShrink( "ab" ) , "a" ) - TEST_LINE( hb_StrShrink( "ab", -2 ) , "ab" ) - TEST_LINE( hb_StrShrink( "ab", 2 ) , "" ) - TEST_LINE( hb_StrShrink( "hello" ) , "hell" ) - TEST_LINE( hb_StrShrink( "hello", -1 ) , "hello" ) - TEST_LINE( hb_StrShrink( "hello", 0 ) , "hello" ) - TEST_LINE( hb_StrShrink( "hello", 1 ) , "hell" ) - TEST_LINE( hb_StrShrink( "hello", 2 ) , "hel" ) - TEST_LINE( hb_StrShrink( "hello", 3 ) , "he" ) - TEST_LINE( hb_StrShrink( "hello", 4 ) , "h" ) - TEST_LINE( hb_StrShrink( "hello", 5 ) , "" ) - TEST_LINE( hb_StrShrink( "hello", 6 ) , "" ) - TEST_LINE( hb_StrShrink( "hello", 7 ) , "" ) + HBTEST hb_StrShrink() IS "" + HBTEST hb_StrShrink( NIL ) IS "" + HBTEST hb_StrShrink( "" ) IS "" + HBTEST hb_StrShrink( "", -1 ) IS "" + HBTEST hb_StrShrink( "", 0 ) IS "" + HBTEST hb_StrShrink( "", 1 ) IS "" + HBTEST hb_StrShrink( "", 10 ) IS "" + HBTEST hb_StrShrink( "a" ) IS "" + HBTEST hb_StrShrink( "a", -1 ) IS "a" + HBTEST hb_StrShrink( "a", 0 ) IS "a" + HBTEST hb_StrShrink( "a", 1 ) IS "" + HBTEST hb_StrShrink( "a", 10 ) IS "" + HBTEST hb_StrShrink( "ab" ) IS "a" + HBTEST hb_StrShrink( "ab", -1 ) IS "ab" + HBTEST hb_StrShrink( "ab", 0 ) IS "ab" + HBTEST hb_StrShrink( "ab", 1 ) IS "a" + HBTEST hb_StrShrink( "ab", 10 ) IS "" + HBTEST hb_StrShrink( "ab" ) IS "a" + HBTEST hb_StrShrink( "ab", -2 ) IS "ab" + HBTEST hb_StrShrink( "ab", 2 ) IS "" + HBTEST hb_StrShrink( "hello" ) IS "hell" + HBTEST hb_StrShrink( "hello", -1 ) IS "hello" + HBTEST hb_StrShrink( "hello", 0 ) IS "hello" + HBTEST hb_StrShrink( "hello", 1 ) IS "hell" + HBTEST hb_StrShrink( "hello", 2 ) IS "hel" + HBTEST hb_StrShrink( "hello", 3 ) IS "he" + HBTEST hb_StrShrink( "hello", 4 ) IS "h" + HBTEST hb_StrShrink( "hello", 5 ) IS "" + HBTEST hb_StrShrink( "hello", 6 ) IS "" + HBTEST hb_StrShrink( "hello", 7 ) IS "" #endif @@ -527,9 +527,9 @@ PROCEDURE New_STRINGS() PROCEDURE Long_STRINGS() - TEST_LINE( Right( Space( 64 * 1024 - 5 ) + "12345 7890", 10 ), "12345 7890" ) - TEST_LINE( Len( Space( 81910 ) + "1234567890" ), 81920 ) - TEST_LINE( ( "1234567890" + Space( 810910 ) ) - ( "1234567890" + Space( 810910 ) ), "12345678901234567890" + Space( 810910 * 2 ) ) + HBTEST Right( Space( 64 * 1024 - 5 ) + "12345 7890", 10 ) IS "12345 7890" + HBTEST Len( Space( 81910 ) + "1234567890" ) IS 81920 + HBTEST ( "1234567890" + Space( 810910 ) ) - ( "1234567890" + Space( 810910 ) ) IS "12345678901234567890" + Space( 810910 * 2 ) RETURN diff --git a/harbour/utils/hbtest/rt_trans.prg b/harbour/utils/hbtest/rt_trans.prg index a713fac116..3f60709361 100644 --- a/harbour/utils/hbtest/rt_trans.prg +++ b/harbour/utils/hbtest/rt_trans.prg @@ -63,352 +63,352 @@ PROCEDURE Main_TRANS() /* Transform() */ - TEST_LINE( Transform( NIL , NIL ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:U:NIL;U:NIL F:S" ) - TEST_LINE( Transform( NIL , "" ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:U:NIL;C: F:S" ) - TEST_LINE( Transform( NIL , "@" ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:U:NIL;C:@ F:S" ) - TEST_LINE( Transform( {} , NIL ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:A:{.[0].};U:NIL F:S" ) - TEST_LINE( Transform( {} , "" ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:A:{.[0].};C: F:S" ) - TEST_LINE( Transform( {} , "@" ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:A:{.[0].};C:@ F:S" ) - TEST_LINE( Transform( ErrorNew(), NIL ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:O:ERROR Object;U:NIL F:S" ) - TEST_LINE( Transform( ErrorNew(), "" ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:O:ERROR Object;C: F:S" ) - TEST_LINE( Transform( ErrorNew(), "@" ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:O:ERROR Object;C:@ F:S" ) - TEST_LINE( Transform( {|| NIL } , NIL ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:B:{||...};U:NIL F:S" ) - TEST_LINE( Transform( {|| NIL } , "" ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:B:{||...};C: F:S" ) - TEST_LINE( Transform( {|| NIL } , "@" ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:B:{||...};C:@ F:S" ) + HBTEST Transform( NIL , NIL ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:U:NIL;U:NIL F:S" + HBTEST Transform( NIL , "" ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:U:NIL;C: F:S" + HBTEST Transform( NIL , "@" ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:U:NIL;C:@ F:S" + HBTEST Transform( {} , NIL ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:A:{.[0].};U:NIL F:S" + HBTEST Transform( {} , "" ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:A:{.[0].};C: F:S" + HBTEST Transform( {} , "@" ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:A:{.[0].};C:@ F:S" + HBTEST Transform( ErrorNew(), NIL ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:O:ERROR Object;U:NIL F:S" + HBTEST Transform( ErrorNew(), "" ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:O:ERROR Object;C: F:S" + HBTEST Transform( ErrorNew(), "@" ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:O:ERROR Object;C:@ F:S" + HBTEST Transform( {|| NIL } , NIL ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:B:{||...};U:NIL F:S" + HBTEST Transform( {|| NIL } , "" ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:B:{||...};C: F:S" + HBTEST Transform( {|| NIL } , "@" ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:B:{||...};C:@ F:S" - TEST_LINE( Transform( "", "" ) , "" ) - TEST_LINE( Transform( "", "@" ) , "" ) + HBTEST Transform( "", "" ) IS "" + HBTEST Transform( "", "@" ) IS "" #ifndef __XPP__ - TEST_LINE( Transform( "", NIL ) , "" ) + HBTEST Transform( "", NIL ) IS "" #endif - TEST_LINE( Transform( "", 100 ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:C:;N:100 F:S" ) - TEST_LINE( Transform( "hello", "" ) , "hello" ) - TEST_LINE( Transform( "hello", "@" ) , "hello" ) + HBTEST Transform( "", 100 ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:C:;N:100 F:S" + HBTEST Transform( "hello", "" ) IS "hello" + HBTEST Transform( "hello", "@" ) IS "hello" #ifndef __XPP__ - TEST_LINE( Transform( "hello", NIL ) , "hello" ) + HBTEST Transform( "hello", NIL ) IS "hello" #endif - TEST_LINE( Transform( "hello", 100 ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:C:hello;N:100 F:S" ) - TEST_LINE( Transform( 100.2, "" ) , " 100.2" ) - TEST_LINE( Transform( 100.2, "@" ) , " 100.2" ) + HBTEST Transform( "hello", 100 ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:C:hello;N:100 F:S" + HBTEST Transform( 100.2, "" ) IS " 100.2" + HBTEST Transform( 100.2, "@" ) IS " 100.2" #ifndef __XPP__ - TEST_LINE( Transform( 100.2, NIL ) , " 100.2" ) + HBTEST Transform( 100.2, NIL ) IS " 100.2" #endif - TEST_LINE( Transform( 100.2, 100 ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:N:100.2;N:100 F:S" ) - TEST_LINE( Transform( 100.20, "" ) , " 100.20" ) - TEST_LINE( Transform( 100.20, "@" ) , " 100.20" ) + HBTEST Transform( 100.2, 100 ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:N:100.2;N:100 F:S" + HBTEST Transform( 100.20, "" ) IS " 100.20" + HBTEST Transform( 100.20, "@" ) IS " 100.20" #ifndef __XPP__ - TEST_LINE( Transform( 100.20, NIL ) , " 100.20" ) + HBTEST Transform( 100.20, NIL ) IS " 100.20" #endif - TEST_LINE( Transform( 100.20, 100 ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:N:100.20;N:100 F:S" ) - TEST_LINE( Transform( Val("100.2"), "" ) , "100.2" ) - TEST_LINE( Transform( Val("100.2"), "@" ) , "100.2" ) + HBTEST Transform( 100.20, 100 ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:N:100.20;N:100 F:S" + HBTEST Transform( Val("100.2"), "" ) IS "100.2" + HBTEST Transform( Val("100.2"), "@" ) IS "100.2" #ifndef __XPP__ - TEST_LINE( Transform( Val("100.2"), NIL ) , "100.2" ) + HBTEST Transform( Val("100.2"), NIL ) IS "100.2" #endif - TEST_LINE( Transform( Val("100.2"), 100 ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:N:100.2;N:100 F:S" ) - TEST_LINE( Transform( Val("100.20"), "" ) , "100.20" ) -// TEST_LINE( Transform( Val("100.20"), "@" ) , "100.20" ) + HBTEST Transform( Val("100.2"), 100 ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:N:100.2;N:100 F:S" + HBTEST Transform( Val("100.20"), "" ) IS "100.20" +// HBTEST Transform( Val("100.20"), "@" ) IS "100.20" #ifndef __XPP__ - TEST_LINE( Transform( Val("100.20"), NIL ) , "100.20" ) + HBTEST Transform( Val("100.20"), NIL ) IS "100.20" #endif - TEST_LINE( Transform( Val("100.20"), 100 ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:N:100.20;N:100 F:S" ) - TEST_LINE( Transform( sdDate, "" ) , "1984.03.25" ) - TEST_LINE( Transform( sdDate, "@" ) , "1984.03.25" ) + HBTEST Transform( Val("100.20"), 100 ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:N:100.20;N:100 F:S" + HBTEST Transform( sdDate, "" ) IS "1984.03.25" + HBTEST Transform( sdDate, "@" ) IS "1984.03.25" #ifndef __XPP__ - TEST_LINE( Transform( sdDate, NIL ) , "1984.03.25" ) + HBTEST Transform( sdDate, NIL ) IS "1984.03.25" #endif - TEST_LINE( Transform( sdDate, 100 ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:D:19840325;N:100 F:S" ) - TEST_LINE( Transform( .T., "" ) , "T" ) - TEST_LINE( Transform( .T., "@" ) , "T" ) + HBTEST Transform( sdDate, 100 ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:D:19840325;N:100 F:S" + HBTEST Transform( .T., "" ) IS "T" + HBTEST Transform( .T., "@" ) IS "T" #ifndef __XPP__ - TEST_LINE( Transform( .F., NIL ) , "F" ) + HBTEST Transform( .F., NIL ) IS "F" #endif - TEST_LINE( Transform( .F., 100 ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:L:.F.;N:100 F:S" ) + HBTEST Transform( .F., 100 ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:L:.F.;N:100 F:S" - TEST_LINE( Transform( scStringM , "!!!!!" ) , "HELLO" ) - TEST_LINE( Transform( scStringM , "@!" ) , "HELLO" ) + HBTEST Transform( scStringM , "!!!!!" ) IS "HELLO" + HBTEST Transform( scStringM , "@!" ) IS "HELLO" #ifdef __HARBOUR__ - TEST_LINE( Transform( @scStringM, "!!!!!" ) , "HELLO" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:U:Hello;C:!!!!! F:S" */ - TEST_LINE( Transform( @scStringM, "@!" ) , "HELLO" ) /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:U:Hello;C:@! F:S" */ + HBTEST Transform( @scStringM, "!!!!!" ) IS "HELLO" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:U:Hello;C:!!!!! F:S" */ + HBTEST Transform( @scStringM, "@!" ) IS "HELLO" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:U:Hello;C:@! F:S" */ #endif - TEST_LINE( Transform( scStringM , "" ) , "Hello" ) + HBTEST Transform( scStringM , "" ) IS "Hello" #ifndef __XPP__ - TEST_LINE( Transform( scStringM , NIL ) , "Hello" ) + HBTEST Transform( scStringM , NIL ) IS "Hello" #endif - TEST_LINE( Transform( scStringM , 100 ) , "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:C:Hello;N:100 F:S" ) + HBTEST Transform( scStringM , 100 ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:C:Hello;N:100 F:S" - TEST_LINE( Transform("abcdef", "@! !lkm!") , "ABkmE" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! 1234567890"), "12345678I0" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyzabcdefg", "@! abcdefghijklmnopqrstuvwxyzabcdefg"), "AbcdefghijkLmNopqrstuvwXYzAbcdefg" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! `~!@#$% ^&*()_+-={}\|;':") , "`~C@E$% ^&*()_+-={}\|;':" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! ,./<>?") , ",./<>?" ) - TEST_LINE( Transform("hello", " @!") , " @L" ) + HBTEST Transform("abcdef", "@! !lkm!") IS "ABkmE" + HBTEST Transform("abcdefghijklmnopqrstuvwxyz", "@! 1234567890") IS "12345678I0" + HBTEST Transform("abcdefghijklmnopqrstuvwxyzabcdefg", "@! abcdefghijklmnopqrstuvwxyzabcdefg") IS "AbcdefghijkLmNopqrstuvwXYzAbcdefg" + HBTEST Transform("abcdefghijklmnopqrstuvwxyz", "@! `~!@#$% ^&*()_+-={}\|;':") IS "`~C@E$% ^&*()_+-={}\|;':" + HBTEST Transform("abcdefghijklmnopqrstuvwxyz", "@! ,./<>?") IS ",./<>?" + HBTEST Transform("hello", " @!") IS " @L" - TEST_LINE( Transform("abcdef", "@R! !lkm!") , "ABkmC" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! 1234567890"), "12345678A0" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyzabcdefg", "@R! abcdefghijklmnopqrstuvwxyzabcdefg"), "AbcdefghijkBmCopqrstuvwDNzFbcdefg" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! `~!@#$% ^&*()_+-={}\|;':") , "`~A@B$% ^&*()_+-={}\|;':" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,./<>?") , ",./<>?ABCDEFGHIJKLMNOPQRSTUVWXYZ" ) - TEST_LINE( Transform("hello", " @R!") , " @RL" ) + HBTEST Transform("abcdef", "@R! !lkm!") IS "ABkmC" + HBTEST Transform("abcdefghijklmnopqrstuvwxyz", "@R! 1234567890") IS "12345678A0" + HBTEST Transform("abcdefghijklmnopqrstuvwxyzabcdefg", "@R! abcdefghijklmnopqrstuvwxyzabcdefg") IS "AbcdefghijkBmCopqrstuvwDNzFbcdefg" + HBTEST Transform("abcdefghijklmnopqrstuvwxyz", "@R! `~!@#$% ^&*()_+-={}\|;':") IS "`~A@B$% ^&*()_+-={}\|;':" + HBTEST Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,./<>?") IS ",./<>?ABCDEFGHIJKLMNOPQRSTUVWXYZ" + HBTEST Transform("hello", " @R!") IS " @RL" - TEST_LINE( Transform("abc", "@R !!!!") , "ABC " ) - TEST_LINE( Transform("abc", "@R XXXX") , "abc " ) - TEST_LINE( Transform("abc", "@R !!") , "AB" ) - TEST_LINE( Transform("abc", "@R XX") , "ab" ) - TEST_LINE( Transform("abc", "@!R !!!!") , "ABC " ) - TEST_LINE( Transform("abc", "@!R XXXX") , "ABC " ) - TEST_LINE( Transform("abc", "@!R !!") , "AB" ) - TEST_LINE( Transform("abc", "@!R XX") , "AB" ) + HBTEST Transform("abc", "@R !!!!") IS "ABC " + HBTEST Transform("abc", "@R XXXX") IS "abc " + HBTEST Transform("abc", "@R !!") IS "AB" + HBTEST Transform("abc", "@R XX") IS "ab" + HBTEST Transform("abc", "@!R !!!!") IS "ABC " + HBTEST Transform("abc", "@!R XXXX") IS "ABC " + HBTEST Transform("abc", "@!R !!") IS "AB" + HBTEST Transform("abc", "@!R XX") IS "AB" - TEST_LINE( Transform( "Hallo ", "!!!!!" ) , "HALLO" ) - TEST_LINE( Transform( "Hallo ", "!!A!!" ) , "HAlLO" ) - TEST_LINE( Transform( "Hallo ", "!!A9!" ) , "HAllO" ) - TEST_LINE( Transform( "Hallo ", "!QA9!" ) , "HQllO" ) - TEST_LINE( Transform( "Hallo ", "ZQA9!" ) , "ZQllO" ) - TEST_LINE( Transform( "Hall" , "ZQA9!" ) , "ZQll" ) - TEST_LINE( Transform( "Hallo ", "!AAA" ) , "Hall" ) - TEST_LINE( Transform( "Hallo ", "@!" ) , "HALLO " ) - TEST_LINE( Transform( "Hallo ", "@! AA" ) , "HA" ) - TEST_LINE( Transform( "Hallo ", "@R" ) , "Hallo " ) - TEST_LINE( Transform( "Hallo ", "@Z" ) , " " ) - TEST_LINE( Transform( "Hallo ", "@R !!" ) , "HA" ) - TEST_LINE( Transform( "Hi" , "@R !!!" ) , "HI " ) - TEST_LINE( Transform( "Hallo ", "" ) , "Hallo " ) + HBTEST Transform( "Hallo ", "!!!!!" ) IS "HALLO" + HBTEST Transform( "Hallo ", "!!A!!" ) IS "HAlLO" + HBTEST Transform( "Hallo ", "!!A9!" ) IS "HAllO" + HBTEST Transform( "Hallo ", "!QA9!" ) IS "HQllO" + HBTEST Transform( "Hallo ", "ZQA9!" ) IS "ZQllO" + HBTEST Transform( "Hall" , "ZQA9!" ) IS "ZQll" + HBTEST Transform( "Hallo ", "!AAA" ) IS "Hall" + HBTEST Transform( "Hallo ", "@!" ) IS "HALLO " + HBTEST Transform( "Hallo ", "@! AA" ) IS "HA" + HBTEST Transform( "Hallo ", "@R" ) IS "Hallo " + HBTEST Transform( "Hallo ", "@Z" ) IS " " + HBTEST Transform( "Hallo ", "@R !!" ) IS "HA" + HBTEST Transform( "Hi" , "@R !!!" ) IS "HI " + HBTEST Transform( "Hallo ", "" ) IS "Hallo " - TEST_LINE( Transform( .T. , "" ) , "T" ) - TEST_LINE( Transform( .F. , "" ) , "F" ) - TEST_LINE( Transform( .T. , "L" ) , "T" ) - TEST_LINE( Transform( .F. , "L" ) , "F" ) - TEST_LINE( Transform( .T. , "Y" ) , "Y" ) - TEST_LINE( Transform( .F. , "Y" ) , "N" ) - TEST_LINE( Transform( .T. , "X" ) , "X" ) - TEST_LINE( Transform( .F. , "#" ) , "F" ) - TEST_LINE( Transform( .T. , "X!" ) , "X" ) - TEST_LINE( Transform( .F. , "@R Y" ) , "N" ) - TEST_LINE( Transform( .T. , "@R X!" ) , "X!T" ) + HBTEST Transform( .T. , "" ) IS "T" + HBTEST Transform( .F. , "" ) IS "F" + HBTEST Transform( .T. , "L" ) IS "T" + HBTEST Transform( .F. , "L" ) IS "F" + HBTEST Transform( .T. , "Y" ) IS "Y" + HBTEST Transform( .F. , "Y" ) IS "N" + HBTEST Transform( .T. , "X" ) IS "X" + HBTEST Transform( .F. , "#" ) IS "F" + HBTEST Transform( .T. , "X!" ) IS "X" + HBTEST Transform( .F. , "@R Y" ) IS "N" + HBTEST Transform( .T. , "@R X!" ) IS "X!T" - TEST_LINE( Transform( hb_SToD("20000101") , "@B" ) , "2000.01.01" ) - TEST_LINE( Transform( hb_SToD("19901214") , "99/99/9999" ) , "1990.12.14" ) - TEST_LINE( Transform( hb_SToD("19901202") , "99.99.9999" ) , "1990.12.02" ) - TEST_LINE( Transform( hb_SToD("") , "99/99/9999" ) , " . . " ) - TEST_LINE( Transform( hb_SToD("19901202") , "99/99/99" ) , "1990.12.02" ) - TEST_LINE( Transform( hb_SToD("19901214") , "99-99-99" ) , "1990.12.14" ) - TEST_LINE( Transform( hb_SToD("20040430") , "99.99.99" ) , "2004.04.30" ) - TEST_LINE( Transform( hb_SToD("") , "99/99/99" ) , " . . " ) - TEST_LINE( Transform( hb_SToD("19920101") , "THISWRNG" ) , "1992.01.01" ) - TEST_LINE( Transform( hb_SToD("19350605") , "999/99/9" ) , "1935.06.05" ) - TEST_LINE( Transform( hb_SToD("19101112") , "9#-9#/##" ) , "1910.11.12" ) - TEST_LINE( Transform( hb_SToD("19920101") , "" ) , "1992.01.01" ) - TEST_LINE( Transform( hb_SToD("19920101") , "DO THIS " ) , "1992.01.01" ) - TEST_LINE( Transform( hb_SToD("19920102") , "@E" ) , "02.01.1992" ) /* Bug in CA-Cl*pper, it returns: "2.91901.02" */ - TEST_LINE( Transform( 1234 , "@D 9999" ) , "1234.00.0 " ) - TEST_LINE( Transform( 1234 , "@BD 9999" ) , "1234.00.0 " ) + HBTEST Transform( hb_SToD("20000101") , "@B" ) IS "2000.01.01" + HBTEST Transform( hb_SToD("19901214") , "99/99/9999" ) IS "1990.12.14" + HBTEST Transform( hb_SToD("19901202") , "99.99.9999" ) IS "1990.12.02" + HBTEST Transform( hb_SToD("") , "99/99/9999" ) IS " . . " + HBTEST Transform( hb_SToD("19901202") , "99/99/99" ) IS "1990.12.02" + HBTEST Transform( hb_SToD("19901214") , "99-99-99" ) IS "1990.12.14" + HBTEST Transform( hb_SToD("20040430") , "99.99.99" ) IS "2004.04.30" + HBTEST Transform( hb_SToD("") , "99/99/99" ) IS " . . " + HBTEST Transform( hb_SToD("19920101") , "THISWRNG" ) IS "1992.01.01" + HBTEST Transform( hb_SToD("19350605") , "999/99/9" ) IS "1935.06.05" + HBTEST Transform( hb_SToD("19101112") , "9#-9#/##" ) IS "1910.11.12" + HBTEST Transform( hb_SToD("19920101") , "" ) IS "1992.01.01" + HBTEST Transform( hb_SToD("19920101") , "DO THIS " ) IS "1992.01.01" + HBTEST Transform( hb_SToD("19920102") , "@E" ) IS "02.01.1992" /* Bug in CA-Cl*pper, it returns: "2.91901.02" */ + HBTEST Transform( 1234 , "@D 9999" ) IS "1234.00.0 " + HBTEST Transform( 1234 , "@BD 9999" ) IS "1234.00.0 " SET CENTURY OFF - TEST_LINE( Transform( hb_SToD("20000101") , "@B" ) , "00.01.01" ) - TEST_LINE( Transform( hb_SToD("19901214") , "99/99/9999" ) , "90.12.14" ) - TEST_LINE( Transform( hb_SToD("19901202") , "99.99.9999" ) , "90.12.02" ) - TEST_LINE( Transform( hb_SToD("") , "99/99/9999" ) , " . . " ) - TEST_LINE( Transform( hb_SToD("19901202") , "99/99/99" ) , "90.12.02" ) - TEST_LINE( Transform( hb_SToD("19901214") , "99-99-99" ) , "90.12.14" ) - TEST_LINE( Transform( hb_SToD("20040430") , "99.99.99" ) , "04.04.30" ) - TEST_LINE( Transform( hb_SToD("") , "99/99/99" ) , " . . " ) - TEST_LINE( Transform( hb_SToD("19920101") , "THISWRNG" ) , "92.01.01" ) - TEST_LINE( Transform( hb_SToD("19350605") , "999/99/9" ) , "35.06.05" ) - TEST_LINE( Transform( hb_SToD("19101112") , "9#-9#/##" ) , "10.11.12" ) - TEST_LINE( Transform( hb_SToD("19920101") , "" ) , "92.01.01" ) - TEST_LINE( Transform( hb_SToD("19920101") , "DO THIS " ) , "92.01.01" ) - TEST_LINE( Transform( hb_SToD("19920102") , "@E" ) , "02.01.92" ) /* Bug in CA-Cl*pper, it returns: "01.92.02" */ - TEST_LINE( Transform( 1234 , "@D 9999" ) , "**.**.* " ) - TEST_LINE( Transform( 1234 , "@BD 9999" ) , "**.**.* " ) + HBTEST Transform( hb_SToD("20000101") , "@B" ) IS "00.01.01" + HBTEST Transform( hb_SToD("19901214") , "99/99/9999" ) IS "90.12.14" + HBTEST Transform( hb_SToD("19901202") , "99.99.9999" ) IS "90.12.02" + HBTEST Transform( hb_SToD("") , "99/99/9999" ) IS " . . " + HBTEST Transform( hb_SToD("19901202") , "99/99/99" ) IS "90.12.02" + HBTEST Transform( hb_SToD("19901214") , "99-99-99" ) IS "90.12.14" + HBTEST Transform( hb_SToD("20040430") , "99.99.99" ) IS "04.04.30" + HBTEST Transform( hb_SToD("") , "99/99/99" ) IS " . . " + HBTEST Transform( hb_SToD("19920101") , "THISWRNG" ) IS "92.01.01" + HBTEST Transform( hb_SToD("19350605") , "999/99/9" ) IS "35.06.05" + HBTEST Transform( hb_SToD("19101112") , "9#-9#/##" ) IS "10.11.12" + HBTEST Transform( hb_SToD("19920101") , "" ) IS "92.01.01" + HBTEST Transform( hb_SToD("19920101") , "DO THIS " ) IS "92.01.01" + HBTEST Transform( hb_SToD("19920102") , "@E" ) IS "02.01.92" /* Bug in CA-Cl*pper, it returns: "01.92.02" */ + HBTEST Transform( 1234 , "@D 9999" ) IS "**.**.* " + HBTEST Transform( 1234 , "@BD 9999" ) IS "**.**.* " SET CENTURY ON - TEST_LINE( Transform( 1 , "@b" ) , "1 " ) - TEST_LINE( Transform( 1 , "@B" ) , "1 " ) - TEST_LINE( Transform( 1.0 , "@B" ) , "1.0 " ) - TEST_LINE( Transform( 15 , "9999" ) , " 15" ) - TEST_LINE( Transform( 1.5 , "99.99" ) , " 1.50" ) - TEST_LINE( Transform( 1.5 , "9999" ) , " 2" ) - TEST_LINE( Transform( 15 , "####" ) , " 15" ) - TEST_LINE( Transform( 1.5 , "##.##" ) , " 1.50" ) - TEST_LINE( Transform( 1.5 , "####" ) , " 2" ) - TEST_LINE( Transform( 15 , " AX##" ) , " AX15" ) - TEST_LINE( Transform( 1.5 , "!9XPA.9" ) , "!1XPA.5" ) - TEST_LINE( Transform( -15 , "9999" ) , " -15" ) - TEST_LINE( Transform( -1.5 , "99.99" ) , "-1.50" ) - TEST_LINE( Transform( -15 , "$999" ) , "$-15" ) - TEST_LINE( Transform( -1.5 , "*9.99" ) , "-1.50" ) - TEST_LINE( Transform( 41 , "$$$9" ) , "$$41" ) - TEST_LINE( Transform( 41 , "***9" ) , "**41" ) - TEST_LINE( Transform( 15000 , "9999" ) , "****" ) - TEST_LINE( Transform( 15000 , "99,999" ) , "15,000" ) - TEST_LINE( Transform( 1500 , "99,999" ) , " 1,500" ) - TEST_LINE( Transform( 150 , "99,999" ) , " 150" ) - TEST_LINE( Transform( 150 , "99,99" ) , " 1,50" ) - TEST_LINE( Transform( 41 , "@Z 9999" ) , " 41" ) - TEST_LINE( Transform( 0 , "@Z 9999" ) , " " ) + HBTEST Transform( 1 , "@b" ) IS "1 " + HBTEST Transform( 1 , "@B" ) IS "1 " + HBTEST Transform( 1.0 , "@B" ) IS "1.0 " + HBTEST Transform( 15 , "9999" ) IS " 15" + HBTEST Transform( 1.5 , "99.99" ) IS " 1.50" + HBTEST Transform( 1.5 , "9999" ) IS " 2" + HBTEST Transform( 15 , "####" ) IS " 15" + HBTEST Transform( 1.5 , "##.##" ) IS " 1.50" + HBTEST Transform( 1.5 , "####" ) IS " 2" + HBTEST Transform( 15 , " AX##" ) IS " AX15" + HBTEST Transform( 1.5 , "!9XPA.9" ) IS "!1XPA.5" + HBTEST Transform( -15 , "9999" ) IS " -15" + HBTEST Transform( -1.5 , "99.99" ) IS "-1.50" + HBTEST Transform( -15 , "$999" ) IS "$-15" + HBTEST Transform( -1.5 , "*9.99" ) IS "-1.50" + HBTEST Transform( 41 , "$$$9" ) IS "$$41" + HBTEST Transform( 41 , "***9" ) IS "**41" + HBTEST Transform( 15000 , "9999" ) IS "****" + HBTEST Transform( 15000 , "99,999" ) IS "15,000" + HBTEST Transform( 1500 , "99,999" ) IS " 1,500" + HBTEST Transform( 150 , "99,999" ) IS " 150" + HBTEST Transform( 150 , "99,99" ) IS " 1,50" + HBTEST Transform( 41 , "@Z 9999" ) IS " 41" + HBTEST Transform( 0 , "@Z 9999" ) IS " " #ifdef __HARBOUR__ - TEST_LINE( Transform( 41 , "@0 9999" ) , "0041" ) /* Extension in Harbour, in CA-Cl*pper it should return: " 41" */ - TEST_LINE( Transform( 0 , "@0 9999" ) , "0000" ) /* Extension in Harbour, in CA-Cl*pper it should return: " 0" */ + HBTEST Transform( 41 , "@0 9999" ) IS "0041" /* Extension in Harbour, in CA-Cl*pper it should return: " 41" */ + HBTEST Transform( 0 , "@0 9999" ) IS "0000" /* Extension in Harbour, in CA-Cl*pper it should return: " 0" */ #endif - TEST_LINE( Transform( 41 , "@B 9999" ) , "41 " ) - TEST_LINE( Transform( 41 , "@B 99.9" ) , "41.0" ) - TEST_LINE( Transform( 7 , "@B 99.9" ) , "7.0 " ) - TEST_LINE( Transform( 7 , "@C 99.9" ) , " 7.0 CR" ) - TEST_LINE( Transform( -7 , "@C 99.9" ) , "-7.0" ) - TEST_LINE( Transform( 7 , "@X 99.9" ) , " 7.0" ) - TEST_LINE( Transform( -7 , "@X 99.9" ) , " 7.0 DB" ) - TEST_LINE( Transform( 7 , "@( 99.9" ) , " 7.0" ) - TEST_LINE( Transform( -7 , "@( 99.9" ) , "(7.0)" ) - TEST_LINE( Transform( 7 , "9X9Z5.9" ) , " X7Z5.0" ) - TEST_LINE( Transform( -7 , "@R 9X9^" ) , "-X7^" ) - TEST_LINE( Transform( -7 , "9X9^" ) , "-X7^" ) - TEST_LINE( Transform( 1 , "@R 9HI!" ) , "1HI!" ) - TEST_LINE( Transform( 1 , "9HI!" ) , "1HI!" ) - TEST_LINE( Transform( -12 , "@( 99" ) , "(*)" ) /* Bug in CA-Cl*pper, it returns: "(2)" */ - TEST_LINE( Transform( 12 , "@( 99" ) , "12" ) - TEST_LINE( Transform( 1 , "" ) , " 1" ) - TEST_LINE( Transform( 32768 , "" ) , " 32768" ) - TEST_LINE( Transform( -20 , "" ) , " -20" ) - TEST_LINE( Transform( 1048576 , "" ) , " 1048576" ) - TEST_LINE( Transform( 21.65 , "" ) , " 21.65" ) - TEST_LINE( Transform( -3.33 , "" ) , " -3.33" ) - TEST_LINE( Transform( -1234 , "@( 9999" ) , "(***)" ) /* Bug in CA-Cl*pper, it returns: "(234)" */ - TEST_LINE( Transform( -1234 , "@B 9999" ) , "****" ) - TEST_LINE( Transform( -1234 , "@B( 9999" ) , "(***)" ) /* Bug in CA-Cl*pper, it returns: "(234)" */ - TEST_LINE( Transform( 1234 , "@E 9,999.99" ) , "1.234,00" ) - TEST_LINE( Transform( 12.2 , "@E 9,999.99" ) , " 12,20" ) - TEST_LINE( Transform( -1234 , "@X 9999" ) , "1234 DB" ) - TEST_LINE( Transform( -1234 , "@BX 9999" ) , "1234 DB" ) - TEST_LINE( Transform( 1234 , "@B 9999" ) , "1234" ) - TEST_LINE( Transform( 1234 , "@BX 9999" ) , "1234" ) - TEST_LINE( Transform( 0 , "@Z 9999" ) , " " ) - TEST_LINE( Transform( 0 , "@BZ 9999" ) , " " ) - TEST_LINE( Transform( 2334 , "Xxxxx: #####") , "Xxxxx: 2334" ) + HBTEST Transform( 41 , "@B 9999" ) IS "41 " + HBTEST Transform( 41 , "@B 99.9" ) IS "41.0" + HBTEST Transform( 7 , "@B 99.9" ) IS "7.0 " + HBTEST Transform( 7 , "@C 99.9" ) IS " 7.0 CR" + HBTEST Transform( -7 , "@C 99.9" ) IS "-7.0" + HBTEST Transform( 7 , "@X 99.9" ) IS " 7.0" + HBTEST Transform( -7 , "@X 99.9" ) IS " 7.0 DB" + HBTEST Transform( 7 , "@( 99.9" ) IS " 7.0" + HBTEST Transform( -7 , "@( 99.9" ) IS "(7.0)" + HBTEST Transform( 7 , "9X9Z5.9" ) IS " X7Z5.0" + HBTEST Transform( -7 , "@R 9X9^" ) IS "-X7^" + HBTEST Transform( -7 , "9X9^" ) IS "-X7^" + HBTEST Transform( 1 , "@R 9HI!" ) IS "1HI!" + HBTEST Transform( 1 , "9HI!" ) IS "1HI!" + HBTEST Transform( -12 , "@( 99" ) IS "(*)" /* Bug in CA-Cl*pper, it returns: "(2)" */ + HBTEST Transform( 12 , "@( 99" ) IS "12" + HBTEST Transform( 1 , "" ) IS " 1" + HBTEST Transform( 32768 , "" ) IS " 32768" + HBTEST Transform( -20 , "" ) IS " -20" + HBTEST Transform( 1048576 , "" ) IS " 1048576" + HBTEST Transform( 21.65 , "" ) IS " 21.65" + HBTEST Transform( -3.33 , "" ) IS " -3.33" + HBTEST Transform( -1234 , "@( 9999" ) IS "(***)" /* Bug in CA-Cl*pper, it returns: "(234)" */ + HBTEST Transform( -1234 , "@B 9999" ) IS "****" + HBTEST Transform( -1234 , "@B( 9999" ) IS "(***)" /* Bug in CA-Cl*pper, it returns: "(234)" */ + HBTEST Transform( 1234 , "@E 9,999.99" ) IS "1.234,00" + HBTEST Transform( 12.2 , "@E 9,999.99" ) IS " 12,20" + HBTEST Transform( -1234 , "@X 9999" ) IS "1234 DB" + HBTEST Transform( -1234 , "@BX 9999" ) IS "1234 DB" + HBTEST Transform( 1234 , "@B 9999" ) IS "1234" + HBTEST Transform( 1234 , "@BX 9999" ) IS "1234" + HBTEST Transform( 0 , "@Z 9999" ) IS " " + HBTEST Transform( 0 , "@BZ 9999" ) IS " " + HBTEST Transform( 2334 , "Xxxxx: #####") IS "Xxxxx: 2334" - TEST_LINE( Transform("Hello", "@S-1") , "Hello" ) - TEST_LINE( Transform("Hello", "@S3.0!") , "HEL" ) - TEST_LINE( Transform("Hello", "@S3") , "Hel" ) - TEST_LINE( Transform("Hello", "@S13") + "<" , "Hello<" ) - TEST_LINE( Transform("Hello", "@S000000000003K") , "Hel" ) - TEST_LINE( Transform("Hello", "@S3K") , "Hel" ) - TEST_LINE( Transform("Hello", "@S 3K") , "3K" ) - TEST_LINE( Transform("Hello", "@S3"+Chr(9)) , "Hel" ) - TEST_LINE( Transform("abcdef","@! !lkm!") , "ABkmE" ) - TEST_LINE( Transform("abcdef","@! !LKM!") , "ABKME" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! !lkm!x") , "ABkmEF" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! abcdefghijklmnopqrstuvwxyz") , "AbcdefghijkLmNopqrstuvwXYz" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! `~!@#$%^&*()_+-={}[]\|;':") , "`~C@E$%^&*()_+-={}[]\|;':" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! ,./<>?") , ",./<>?" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,./<>?" ) , ",./<>?ABCDEFGHIJKLMNOPQRSTUVWXYZ" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,./<>" ) , ",./<>ABCDEFGHIJKLMNOPQRSTUVWXYZ" ) - TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,./<" ) , ",./?") IS ",./<>?" + HBTEST Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,./<>?" ) IS ",./<>?ABCDEFGHIJKLMNOPQRSTUVWXYZ" + HBTEST Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,./<>" ) IS ",./<>ABCDEFGHIJKLMNOPQRSTUVWXYZ" + HBTEST Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,./<" ) IS ",./YY" - TEST_LINE( Transform( dt, "@E" ) , "31<12>87" ) + HBTEST Transform( dt, "@E" ) IS "31<12>87" #ifdef __HARBOUR__ /* this are wrongly converted by CA-Cl*pper */ SET DATE FORMAT TO "DD:MM:YYYY" - TEST_LINE( Transform( dt, "@E" ) , "31:12:1987" ) + HBTEST Transform( dt, "@E" ) IS "31:12:1987" SET DATE FORMAT TO "YYYY:MM:DD" - TEST_LINE( Transform( dt, "@E" ) , "31:12:1987" ) + HBTEST Transform( dt, "@E" ) IS "31:12:1987" SET DATE FORMAT TO "YYYY:DD:MM" - TEST_LINE( Transform( dt, "@E" ) , "31:12:1987" ) + HBTEST Transform( dt, "@E" ) IS "31:12:1987" SET DATE FORMAT TO "YY:MM:DD" - TEST_LINE( Transform( dt, "@E" ) , "31:12:87" ) + HBTEST Transform( dt, "@E" ) IS "31:12:87" SET DATE FORMAT TO "DD:MM:YY" - TEST_LINE( Transform( dt, "@E" ) , "31:12:87" ) + HBTEST Transform( dt, "@E" ) IS "31:12:87" SET DATE FORMAT TO "" - TEST_LINE( Transform( dt, "@E" ) , "<31:12.87>" ) + HBTEST Transform( dt, "@E" ) IS "<31:12.87>" SET DATE FORMAT TO "|YY|MM|DD|" - TEST_LINE( Transform( dt, "@E" ) , "|31|12|87|" ) + HBTEST Transform( dt, "@E" ) IS "|31|12|87|" #endif SET DATE FORMAT TO "MM.DD.YYYY" - TEST_LINE( Transform( dt, "@E" ) , "31.12.1987" ) + HBTEST Transform( dt, "@E" ) IS "31.12.1987" - TEST_LINE( Transform( -5, "@(Z $###,##9.99" ) , "( 5.00)" ) - TEST_LINE( Transform( -10, "@)Z $###,##9.99" ) , "$ (10.00)" ) - TEST_LINE( Transform( -20, "@Z $###,##9.99" ) , "$ -20.00" ) - TEST_LINE( Transform( 100, "9999." ) , " 100." ) - TEST_LINE( Transform( 1.1, "@B!99.99" ) , "1.1 " ) - TEST_LINE( Transform( 12.345, "@R 99/99" ) , " /12" ) - TEST_LINE( Transform( "1234567890", "@9" ) , "1234567890" ) - TEST_LINE( Transform( 1234567890, "@9" ) , " 1234567890" ) - TEST_LINE( Transform( 1234, "9 999" ) , "1 234" ) - TEST_LINE( Transform( 123.123456, "999.99.99.99" ) , "123.12.45. " ) - TEST_LINE( Transform( 123.123456, "$$$.$$.$$.$$" ) , "123.12.45. " ) - TEST_LINE( Transform( 123.123456, "***.**.**.**" ) , "123.12.45. " ) - TEST_LINE( Transform( 99999, "9.999" ) , "*.***" ) - TEST_LINE( Transform( 99, "*.***" ) , "*.***" ) - TEST_LINE( Transform( 12345, "9999." ) , "****." ) + HBTEST Transform( -5, "@(Z $###,##9.99" ) IS "( 5.00)" + HBTEST Transform( -10, "@)Z $###,##9.99" ) IS "$ (10.00)" + HBTEST Transform( -20, "@Z $###,##9.99" ) IS "$ -20.00" + HBTEST Transform( 100, "9999." ) IS " 100." + HBTEST Transform( 1.1, "@B!99.99" ) IS "1.1 " + HBTEST Transform( 12.345, "@R 99/99" ) IS " /12" + HBTEST Transform( "1234567890", "@9" ) IS "1234567890" + HBTEST Transform( 1234567890, "@9" ) IS " 1234567890" + HBTEST Transform( 1234, "9 999" ) IS "1 234" + HBTEST Transform( 123.123456, "999.99.99.99" ) IS "123.12.45. " + HBTEST Transform( 123.123456, "$$$.$$.$$.$$" ) IS "123.12.45. " + HBTEST Transform( 123.123456, "***.**.**.**" ) IS "123.12.45. " + HBTEST Transform( 99999, "9.999" ) IS "*.***" + HBTEST Transform( 99, "*.***" ) IS "*.***" + HBTEST Transform( 12345, "9999." ) IS "****." - TEST_LINE( Transform( -12345.00, "@(" ) , "( 12345.00)" ) - TEST_LINE( Transform( -12345.00, "@)" ) , " (12345.00)" ) - TEST_LINE( Transform(-123456789.00, "@(" ) , "(123456789.00)" ) - TEST_LINE( Transform(-123456789.00, "@)" ) , "(123456789.00)" ) - TEST_LINE( Transform( -1234567890, "@(" ) , "( 1234567890)" ) - TEST_LINE( Transform( -1234567890, "@)" ) , " (1234567890)" ) - TEST_LINE( Transform( -12345, "@( [999999]" ) , "( 12345])" ) - TEST_LINE( Transform( -12345, "@) [999999]" ) , "[(12345])" ) - TEST_LINE( Transform( -12345, "@( $999999" ) , "( 12345)" ) - TEST_LINE( Transform( -12345, "@) $999999" ) , "$(12345)" ) - TEST_LINE( Transform( -12345, "@( #999999" ) , "( 12345)" ) - TEST_LINE( Transform( -12345, "@) #999999" ) , " (12345)" ) - TEST_LINE( Transform( -12345, "@( $99999" ) , "(12345)" ) - TEST_LINE( Transform( -12345, "@) $99999" ) , "(12345)" ) - TEST_LINE( Transform( -12345, "@( #99999" ) , "(12345)" ) - TEST_LINE( Transform( -12345, "@) #99999" ) , "(12345)" ) - TEST_LINE( Transform( -12345, "@( 6798^999" ) , "(7*8^***)" ) - TEST_LINE( Transform( -12345, "@( 9798^9999" ) , "(718^2345)" ) + HBTEST Transform( -12345.00, "@(" ) IS "( 12345.00)" + HBTEST Transform( -12345.00, "@)" ) IS " (12345.00)" + HBTEST Transform(-123456789.00, "@(" ) IS "(123456789.00)" + HBTEST Transform(-123456789.00, "@)" ) IS "(123456789.00)" + HBTEST Transform( -1234567890, "@(" ) IS "( 1234567890)" + HBTEST Transform( -1234567890, "@)" ) IS " (1234567890)" + HBTEST Transform( -12345, "@( [999999]" ) IS "( 12345])" + HBTEST Transform( -12345, "@) [999999]" ) IS "[(12345])" + HBTEST Transform( -12345, "@( $999999" ) IS "( 12345)" + HBTEST Transform( -12345, "@) $999999" ) IS "$(12345)" + HBTEST Transform( -12345, "@( #999999" ) IS "( 12345)" + HBTEST Transform( -12345, "@) #999999" ) IS " (12345)" + HBTEST Transform( -12345, "@( $99999" ) IS "(12345)" + HBTEST Transform( -12345, "@) $99999" ) IS "(12345)" + HBTEST Transform( -12345, "@( #99999" ) IS "(12345)" + HBTEST Transform( -12345, "@) #99999" ) IS "(12345)" + HBTEST Transform( -12345, "@( 6798^999" ) IS "(7*8^***)" + HBTEST Transform( -12345, "@( 9798^9999" ) IS "(718^2345)" - TEST_LINE( Transform( 134.24, "@E99,999.99" ) , " 134,24" ) - TEST_LINE( Transform( -134.24, "@E99,999.99" ) , " -134,24" ) - TEST_LINE( Transform( 0.80, ".9999" ) , ".8000" ) - TEST_LINE( Transform( -0.80, ".9999" ) , ".****" ) - TEST_LINE( Transform( 12345.123, "@X99" ) , " 12345.123" ) - TEST_LINE( Transform( -12345.123, "@X99" ) , " 12345.123 DB" ) - TEST_LINE( Transform( 123456.78, "@E" ) , " 123456,78" ) - TEST_LINE( Transform( 0, "@C 9.99" ) , "0.00" ) - TEST_LINE( Transform( 1.1, "@B!99.99" ) , "1.1 " ) - TEST_LINE( Transform( -12345, "@) [999999]" ) , "[(12345])" ) - TEST_LINE( Transform( -12345, "@) $999999" ) , "$(12345)" ) - TEST_LINE( Transform( -12345, "@) *999999" ) , "*(12345)" ) - TEST_LINE( Transform( -12345, "@) #999999" ) , " (12345)" ) - TEST_LINE( Transform( -12345, "@) *9$9*999]" ) , "*($12345])" ) - TEST_LINE( Transform( -12345, "@) *999*999]" ) , "* (12345])" ) - TEST_LINE( Transform( -12345, "@) 0999*999]" ) , "0 (12345])" ) - TEST_LINE( Transform( -12345, "@) 1999*999]" ) , "1 (12345])" ) - TEST_LINE( Transform( -12345, "@) *[99*999]" ) , "([ 12345])" ) - TEST_LINE( Transform( -12345, "@) *****999]" ) , "(**12345])" ) - TEST_LINE( Transform( -12345, "@) *1***999]" ) , "(1*12345])" ) - TEST_LINE( Transform( -12345, "@) * 999999]" ) , "* (12345])" ) - TEST_LINE( Transform( -5, "@(Z $###,##9.99" ) , "( 5.00)" ) - TEST_LINE( Transform( -10, "@)Z $###,##9.99" ) , "$ (10.00)" ) - TEST_LINE( Transform( -5, "@(Z $999,999.99" ) , "( 5.00)" ) - TEST_LINE( Transform( -10, "@)Z $999,999.99" ) , "$ (10.00)" ) - TEST_LINE( Transform( -5, "@(Z 999,999.99" ) , "( 5.00)" ) - TEST_LINE( Transform( -10, "@)Z 999,999.99" ) , " (10.00)" ) - TEST_LINE( Transform( -20, "@Z $###,##9.99" ) , "$ -20.00" ) - TEST_LINE( Transform( 0.1, ".9" ) , ".1" ) - TEST_LINE( Transform( 0.0, ".9" ) , ".0" ) - TEST_LINE( Transform( 1, ".9" ) , ".*" ) - TEST_LINE( Transform( .456, ".9" ) , ".5" ) - TEST_LINE( Transform( 123, "99.-" ) , "**.-" ) + HBTEST Transform( 134.24, "@E99,999.99" ) IS " 134,24" + HBTEST Transform( -134.24, "@E99,999.99" ) IS " -134,24" + HBTEST Transform( 0.80, ".9999" ) IS ".8000" + HBTEST Transform( -0.80, ".9999" ) IS ".****" + HBTEST Transform( 12345.123, "@X99" ) IS " 12345.123" + HBTEST Transform( -12345.123, "@X99" ) IS " 12345.123 DB" + HBTEST Transform( 123456.78, "@E" ) IS " 123456,78" + HBTEST Transform( 0, "@C 9.99" ) IS "0.00" + HBTEST Transform( 1.1, "@B!99.99" ) IS "1.1 " + HBTEST Transform( -12345, "@) [999999]" ) IS "[(12345])" + HBTEST Transform( -12345, "@) $999999" ) IS "$(12345)" + HBTEST Transform( -12345, "@) *999999" ) IS "*(12345)" + HBTEST Transform( -12345, "@) #999999" ) IS " (12345)" + HBTEST Transform( -12345, "@) *9$9*999]" ) IS "*($12345])" + HBTEST Transform( -12345, "@) *999*999]" ) IS "* (12345])" + HBTEST Transform( -12345, "@) 0999*999]" ) IS "0 (12345])" + HBTEST Transform( -12345, "@) 1999*999]" ) IS "1 (12345])" + HBTEST Transform( -12345, "@) *[99*999]" ) IS "([ 12345])" + HBTEST Transform( -12345, "@) *****999]" ) IS "(**12345])" + HBTEST Transform( -12345, "@) *1***999]" ) IS "(1*12345])" + HBTEST Transform( -12345, "@) * 999999]" ) IS "* (12345])" + HBTEST Transform( -5, "@(Z $###,##9.99" ) IS "( 5.00)" + HBTEST Transform( -10, "@)Z $###,##9.99" ) IS "$ (10.00)" + HBTEST Transform( -5, "@(Z $999,999.99" ) IS "( 5.00)" + HBTEST Transform( -10, "@)Z $999,999.99" ) IS "$ (10.00)" + HBTEST Transform( -5, "@(Z 999,999.99" ) IS "( 5.00)" + HBTEST Transform( -10, "@)Z 999,999.99" ) IS " (10.00)" + HBTEST Transform( -20, "@Z $###,##9.99" ) IS "$ -20.00" + HBTEST Transform( 0.1, ".9" ) IS ".1" + HBTEST Transform( 0.0, ".9" ) IS ".0" + HBTEST Transform( 1, ".9" ) IS ".*" + HBTEST Transform( .456, ".9" ) IS ".5" + HBTEST Transform( 123, "99.-" ) IS "**.-" - TEST_LINE( Transform( -123.45, "999,999.99" ) , " -123.45" ) - TEST_LINE( Transform( -123456.78, "999,999,999.99" ) , " -123,456.78" ) - TEST_LINE( Transform( -123456.78, "$$$,$$$,$$$.$$" ) , "$$ -123,456.78" ) - TEST_LINE( Transform( -123456.78, "***,***,***.**" ) , "***-123,456.78" ) - TEST_LINE( Transform( 123456.78, "@E 888,$$$,$$$.$$" ) , "888.123.456,78" ) - TEST_LINE( Transform( 123456.78, "@E 888x,$$$,$$$.$$" ) , "888xx123.456,78" ) - TEST_LINE( Transform( 123456.78, "@E 888x,,$$$,$$$.$$" ) , "888xxx123.456,78" ) - TEST_LINE( Transform( 123456.78, "@E 8,88x,,$$$,$$$.$$" ) , "8.88xxx123.456,78" ) - TEST_LINE( Transform( 123456.78, "@E 8,88x,,$$$,,$$$.$$" ) , "8.88xxx123..456,78" ) - TEST_LINE( Transform( 123456.78, "@E 8,88x,,$$$,,$$$.$$77,7") , "8.88xxx123..456,7877,7" ) - TEST_LINE( Transform( 123456, "@E 8,88x,,$$$,,$$$77,7" ) , "8.88xxx123..45677,7" ) - TEST_LINE( Transform( 123456, "@E -,999,999" ) , " -123.456" ) - TEST_LINE( Transform( 12345, "@E -,999,999" ) , " - 12.345" ) - TEST_LINE( Transform( 12345, "@E -,|999,999" ) , " -| 12.345" ) - TEST_LINE( Transform( 12345, "@E ^-,|999,999" ) , "^^-| 12.345" ) - TEST_LINE( Transform( 12345, "@E 1-,|999,999" ) , "11-| 12.345" ) - TEST_LINE( Transform( 12345, "@E |--,|999,999" ) , "|---| 12.345" ) + HBTEST Transform( -123.45, "999,999.99" ) IS " -123.45" + HBTEST Transform( -123456.78, "999,999,999.99" ) IS " -123,456.78" + HBTEST Transform( -123456.78, "$$$,$$$,$$$.$$" ) IS "$$ -123,456.78" + HBTEST Transform( -123456.78, "***,***,***.**" ) IS "***-123,456.78" + HBTEST Transform( 123456.78, "@E 888,$$$,$$$.$$" ) IS "888.123.456,78" + HBTEST Transform( 123456.78, "@E 888x,$$$,$$$.$$" ) IS "888xx123.456,78" + HBTEST Transform( 123456.78, "@E 888x,,$$$,$$$.$$" ) IS "888xxx123.456,78" + HBTEST Transform( 123456.78, "@E 8,88x,,$$$,$$$.$$" ) IS "8.88xxx123.456,78" + HBTEST Transform( 123456.78, "@E 8,88x,,$$$,,$$$.$$" ) IS "8.88xxx123..456,78" + HBTEST Transform( 123456.78, "@E 8,88x,,$$$,,$$$.$$77,7") IS "8.88xxx123..456,7877,7" + HBTEST Transform( 123456, "@E 8,88x,,$$$,,$$$77,7" ) IS "8.88xxx123..45677,7" + HBTEST Transform( 123456, "@E -,999,999" ) IS " -123.456" + HBTEST Transform( 12345, "@E -,999,999" ) IS " - 12.345" + HBTEST Transform( 12345, "@E -,|999,999" ) IS " -| 12.345" + HBTEST Transform( 12345, "@E ^-,|999,999" ) IS "^^-| 12.345" + HBTEST Transform( 12345, "@E 1-,|999,999" ) IS "11-| 12.345" + HBTEST Transform( 12345, "@E |--,|999,999" ) IS "|---| 12.345" - TEST_LINE( Transform( 12.34, "@E 99'99" ) , " '12" ) - TEST_LINE( Transform( 12.34, "99,99,11" ) , " 12,11" ) - TEST_LINE( Transform( 12.34, "@E 99,99,11" ) , " 12,11" ) - TEST_LINE( Transform( 12.34, "@E 99," ) , "12," ) - TEST_LINE( Transform( 12.34, "@E 9,9" ) , "1.2" ) - TEST_LINE( Transform( 12.34, "@E ab,cd.ef9,9.99,.--" ) , "abbcd,ef***,* ,.--" ) - TEST_LINE( Transform( 12.34, "@E ab,cd,ef9,9.99,.--" ) , "abbcddef1.2,34,.--" ) - TEST_LINE( Transform( 12.34, "@E ,ab,cd,ef9,9.99,.--" ) , ",abbcddef1.2,34,.--" ) - TEST_LINE( Transform( 12.34, "@E ,,,,99,.99,.--" ) , ",,,,12.,34,.--" ) - TEST_LINE( Transform( 124.4, "@E ,,,,9,9.99,.--" ) , ",,,,***,**,.--" ) - TEST_LINE( Transform( 1.2, "@E ,,,,*,*.**,.--" ) , ",,,,**1,20,.--" ) - TEST_LINE( Transform( 12.34, "@E ,,,,*,*.**,.--" ) , ",,,,1.2,34,.--" ) - TEST_LINE( Transform( 12.34, "@E ,,,,*,*.**,.--,--" ) , ",,,,1.2,34,.--,--" ) - TEST_LINE( Transform( 12.34, "@E ,,,,*,*,.,**" ) , ",,,,1.2.,,34" ) - TEST_LINE( Transform( 12.34, ",,,,*,*,.,**" ) , ",,,,1,2,..34" ) - TEST_LINE( Transform( 12.34, ",,,,*,*,.,*|,*" ) , ",,,,1,2,..3||4" ) - TEST_LINE( Transform( 12.34, ",,,,*,*,.,*,*" ) , ",,,,1,2,..3,4" ) - TEST_LINE( Transform(123.345678912, "@E 999.99.99,99.99." ) , "123,34,67.89, ." ) + HBTEST Transform( 12.34, "@E 99'99" ) IS " '12" + HBTEST Transform( 12.34, "99,99,11" ) IS " 12,11" + HBTEST Transform( 12.34, "@E 99,99,11" ) IS " 12,11" + HBTEST Transform( 12.34, "@E 99," ) IS "12," + HBTEST Transform( 12.34, "@E 9,9" ) IS "1.2" + HBTEST Transform( 12.34, "@E ab,cd.ef9,9.99,.--" ) IS "abbcd,ef***,* ,.--" + HBTEST Transform( 12.34, "@E ab,cd,ef9,9.99,.--" ) IS "abbcddef1.2,34,.--" + HBTEST Transform( 12.34, "@E ,ab,cd,ef9,9.99,.--" ) IS ",abbcddef1.2,34,.--" + HBTEST Transform( 12.34, "@E ,,,,99,.99,.--" ) IS ",,,,12.,34,.--" + HBTEST Transform( 124.4, "@E ,,,,9,9.99,.--" ) IS ",,,,***,**,.--" + HBTEST Transform( 1.2, "@E ,,,,*,*.**,.--" ) IS ",,,,**1,20,.--" + HBTEST Transform( 12.34, "@E ,,,,*,*.**,.--" ) IS ",,,,1.2,34,.--" + HBTEST Transform( 12.34, "@E ,,,,*,*.**,.--,--" ) IS ",,,,1.2,34,.--,--" + HBTEST Transform( 12.34, "@E ,,,,*,*,.,**" ) IS ",,,,1.2.,,34" + HBTEST Transform( 12.34, ",,,,*,*,.,**" ) IS ",,,,1,2,..34" + HBTEST Transform( 12.34, ",,,,*,*,.,*|,*" ) IS ",,,,1,2,..3||4" + HBTEST Transform( 12.34, ",,,,*,*,.,*,*" ) IS ",,,,1,2,..3,4" + HBTEST Transform(123.345678912, "@E 999.99.99,99.99." ) IS "123,34,67.89, ." #ifdef __HARBOUR__ - TEST_LINE( Transform( 1234567890123456789, "99999999999999999999" ) , " 1234567890123456789" ) - TEST_LINE( Transform( -1234567890123456789, "99999999999999999999" ) , "-1234567890123456789" ) + HBTEST Transform( 1234567890123456789, "99999999999999999999" ) IS " 1234567890123456789" + HBTEST Transform( -1234567890123456789, "99999999999999999999" ) IS "-1234567890123456789" #else - TEST_LINE( Transform( 1234567890123456789, "99999999999999999999" ) , " 1234567890123457000" ) - TEST_LINE( Transform( -1234567890123456789, "99999999999999999999" ) , "-1234567890123457000" ) + HBTEST Transform( 1234567890123456789, "99999999999999999999" ) IS " 1234567890123457000" + HBTEST Transform( -1234567890123456789, "99999999999999999999" ) IS "-1234567890123457000" #endif Set( _SET_DATEFORMAT, "YYYY/MM/DD" ) - TEST_LINE( Transform( 12345678, "@D" ), "1234/56/78" ) + HBTEST Transform( 12345678, "@D" ) IS "1234/56/78" Set( _SET_DATEFORMAT, "YYYY.MM.DD" ) - TEST_LINE( Transform( 1234.56789, "@D" ), "1234.56.9 " ) + HBTEST Transform( 1234.56789, "@D" ) IS "1234.56.9 " Set( _SET_DATEFORMAT, "YYYY.MM:DD" ) - TEST_LINE( Transform( 1234.56789, "@D" ), "1234.56:79" ) - TEST_LINE( Transform( 123.345678912, "@D" ), " 123.34:57" ) + HBTEST Transform( 1234.56789, "@D" ) IS "1234.56:79" + HBTEST Transform( 123.345678912, "@D" ) IS " 123.34:57" Set( _SET_DATEFORMAT, "MM-DD-YYYY" ) - TEST_LINE( Transform( .T., "@RE <|,yY#lL,|>" ) , "99-99-9999T" ) - TEST_LINE( Transform( .F., "@RE <|,yY#lL,|>" ) , "99-99-9999F" ) - TEST_LINE( Transform( .T., "@RD <|,yY#lL,|>" ) , "99-99-9999T" ) - TEST_LINE( Transform( .F., "@RD <|,yY#lL,|>" ) , "99-99-9999F" ) - TEST_LINE( Transform( .F., "@DE <|,yY#lL,|>" ) , "9" ) + HBTEST Transform( .T., "@RE <|,yY#lL,|>" ) IS "99-99-9999T" + HBTEST Transform( .F., "@RE <|,yY#lL,|>" ) IS "99-99-9999F" + HBTEST Transform( .T., "@RD <|,yY#lL,|>" ) IS "99-99-9999T" + HBTEST Transform( .F., "@RD <|,yY#lL,|>" ) IS "99-99-9999F" + HBTEST Transform( .F., "@DE <|,yY#lL,|>" ) IS "9" - TEST_LINE( Transform( "abcdefghij", "@S15! " ) , "" ) - TEST_LINE( Transform( "abcdefghij", "@S0! " ) , "" ) - TEST_LINE( Transform( "abcdefghij", "@S5! " ) , "" ) IS "" + HBTEST Transform( "abcdefghij", "@S0! " ) IS "" + HBTEST Transform( "abcdefghij", "@S5! " ) IS "