fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-11-28 21:28 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* 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.
This commit is contained in:
Viktor Szakats
2012-11-28 20:30:46 +00:00
parent 59fa2d248c
commit fa6d4dcd44
15 changed files with 4995 additions and 4975 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
harbour/ChangeLog.txt
View File

@@ -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

14
harbour/utils/hbtest/hbtest.prg
View File

@@ -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

532
harbour/utils/hbtest/rt_array.prg
View File

@@ -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

1794
harbour/utils/hbtest/rt_class.prg
View File

File diff suppressed because it is too large Load Diff

170
harbour/utils/hbtest/rt_date.prg
View File

@@ -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

232
harbour/utils/hbtest/rt_file.prg
View File

@@ -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

870
harbour/utils/hbtest/rt_hvm.prg
View File

@@ -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

902
harbour/utils/hbtest/rt_hvma.prg
View File

File diff suppressed because it is too large Load Diff

2
harbour/utils/hbtest/rt_main.ch
View File

@@ -50,7 +50,7 @@
*
*/
#translate TEST_LINE( <x>, <result> ) => TEST_CALL( #<x>, {|| <x> }, <result> )
#translate HBTEST <x> IS <result> => TEST_CALL( #<x>, {|| <x> }, <result> )
#ifndef __HARBOUR__
#ifndef __XPP__

728
harbour/utils/hbtest/rt_math.prg
View File

@@ -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"
/* <OP>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

1552
harbour/utils/hbtest/rt_misc.prg
View File

File diff suppressed because it is too large Load Diff

2
harbour/utils/hbtest/rt_mt.prg
View File

@@ -62,7 +62,7 @@ PROCEDURE Main_MT()
#ifdef __HARBOUR__
IF hb_mtvm()
TEST_LINE( DO_MTTES1() , "OK" )
HBTEST DO_MTTES1() IS "OK"
ENDIF
#endif

1124
harbour/utils/hbtest/rt_str.prg
View File

File diff suppressed because it is too large Load Diff

850
harbour/utils/hbtest/rt_stra.prg
View File

@@ -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

1178
harbour/utils/hbtest/rt_trans.prg
View File

File diff suppressed because it is too large Load Diff