fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
bce9c87fdfd4d35e65130e010cf60378ad65fb74
harbour-core/harbour/utils/hbtest/rt_str.prg
Przemyslaw Czerpak ef0883bf02 2004-10-11 21:40 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) 
* harbour/Makefile
  + harbour/make_bsd.sh
  + harbour/make_drw.sh
  * harbour/make_tgz.sh
  + harbour/bin/hb-func.sh
  * harbour/bin/pack_src.sh
  + harbour/bin/postinst.bat
  + harbour/bin/postinst.sh
  * harbour/config/dir.cf
  * harbour/config/bsd/gcc.cf
  * harbour/config/bsd/global.cf
  + harbour/config/darwin/dir.cf
  + harbour/config/darwin/gcc.cf
  + harbour/config/darwin/global.cf
  + harbour/config/darwin/install.cf
  * harbour/config/dos/dir.cf
  * harbour/config/dos/global.cf
  * harbour/config/dos/install.cf
  * harbour/config/dos/owatcom.cf
  * harbour/config/dos/watcom.cf
  * harbour/config/linux/gcc.cf
  * harbour/config/linux/global.cf
  * harbour/contrib/Makefile
  * harbour/contrib/dot/pp_harb.ch
  * harbour/contrib/libct/Makefile
  * harbour/contrib/libct/bit1.c
  * harbour/contrib/libct/bit2.c
  * harbour/contrib/libct/bit3.c
  * harbour/contrib/libct/files.c
  * harbour/contrib/libct/ftoc.c
  - harbour/contrib/libct/invertwin.prg
  + harbour/contrib/libct/invrtwin.prg
  * harbour/contrib/libct/keyset.c
  * harbour/contrib/libct/makefile.bc
  * harbour/contrib/libmisc/dates2.c
  * harbour/contrib/rdd_ads/ads1.c
  * harbour/contrib/rdd_ads/adsfunc.c
  * harbour/contrib/samples/date.c
  * harbour/include/dbinfo.ch
  * harbour/include/hbapi.h
  * harbour/include/hbapicdp.h
  * harbour/include/hbapifs.h
  * harbour/include/hbapigt.h
  * harbour/include/hbapiitm.h
  * harbour/include/hbcomp.h
  * harbour/include/hbdate.h
  * harbour/include/hbdbf.h
  * harbour/include/hbdbferr.h
  * harbour/include/hbdefs.h
  * harbour/include/hbexprb.c
  * harbour/include/hbexprc.c
  * harbour/include/hbexprop.h
  * harbour/include/hbmacro.h
  * harbour/include/hbmath.h
  * harbour/include/hbpcode.h
  * harbour/include/hbrddcdx.h
  * harbour/include/hbrdddbf.h
  * harbour/include/hbrdddbt.h
  * harbour/include/hbrddfpt.h
  * harbour/include/hbrddntx.h
  * harbour/include/hbset.h
  * harbour/include/hbsetup.h
  * harbour/include/set.ch
  * harbour/source/common/Makefile
  * harbour/source/common/expropt1.c
  * harbour/source/common/expropt2.c
  - harbour/source/common/hbffind.c
  * harbour/source/common/hbfsapi.c
  * harbour/source/common/hbstr.c
  * harbour/source/common/hbver.c
  + harbour/source/common/hbverdsp.c
  * harbour/source/compiler/genc.c
  * harbour/source/compiler/gencli.c
  * harbour/source/compiler/harbour.c
  * harbour/source/compiler/harbour.l
  * harbour/source/compiler/harbour.slx
  * harbour/source/compiler/harbour.sly
  * harbour/source/compiler/harbour.y
  * harbour/source/compiler/hbfix.c
  * harbour/source/compiler/hbpcode.c
  * harbour/source/compiler/hbusage.c
  * harbour/source/compiler/simplex.c
  * harbour/source/macro/macro.l
  * harbour/source/macro/macro.slx
  * harbour/source/macro/macro.y
  * harbour/source/pp/ppcore.c
  * harbour/source/rdd/dbcmd.c
  * harbour/source/rdd/dbf1.c
  * harbour/source/rdd/dbfcdx/dbfcdx1.c
  - harbour/source/rdd/dbfcdx/dbfcdx1.h
  * harbour/source/rdd/dbffpt/dbffpt1.c
  * harbour/source/rdd/dbfntx/dbfntx1.c
  * harbour/source/rtl/Makefile
  * harbour/source/rtl/abs.c
  * harbour/source/rtl/at.c
  * harbour/source/rtl/datec.c
  * harbour/source/rtl/dates.c
  * harbour/source/rtl/dateshb.c
  * harbour/source/rtl/datesx.c
  * harbour/source/rtl/empty.c
  * harbour/source/rtl/errorapi.c
  * harbour/source/rtl/errorint.c
  * harbour/source/rtl/filesys.c
  * harbour/source/rtl/fstemp.c
  + harbour/source/rtl/hbffind.c
  * harbour/source/rtl/hbrandom.c
  * harbour/source/rtl/idle.c
  * harbour/source/rtl/inkey.c
  * harbour/source/rtl/math.c
  * harbour/source/rtl/minmax.c
  * harbour/source/rtl/pad.c
  * harbour/source/rtl/padc.c
  * harbour/source/rtl/padl.c
  * harbour/source/rtl/padr.c
  * harbour/source/rtl/philes.c
  * harbour/source/rtl/round.c
  * harbour/source/rtl/soundex.c
  * harbour/source/rtl/str.c
  * harbour/source/rtl/strcase.c
  * harbour/source/rtl/strmatch.c
  * harbour/source/rtl/strtran.c
  * harbour/source/rtl/strzero.c
  * harbour/source/rtl/substr.c
  * harbour/source/rtl/val.c
  * harbour/source/rtl/gtcrs/gtcrs.c
  * harbour/source/rtl/gtcrs/kbdcrs.c
  * harbour/source/rtl/gtdos/gtdos.c
  * harbour/source/rtl/gtsln/gtsln.c
  * harbour/source/rtl/gtsln/kbsln.c
  * harbour/source/rtl/gtsln/keytrans.c
  * harbour/source/vm/arrays.c
  * harbour/source/vm/codebloc.c
  * harbour/source/vm/estack.c
  * harbour/source/vm/eval.c
  * harbour/source/vm/extend.c
  * harbour/source/vm/hvm.c
  * harbour/source/vm/itemapi.c
  * harbour/source/vm/macro.c
  * harbour/source/vm/memvars.c
  * harbour/source/vm/runner.c
  * harbour/tests/bldtest/bldtest.c
  * harbour/utils/hbtest/hbtest.prg
  * harbour/utils/hbtest/rt_misc.prg
  * harbour/utils/hbtest/rt_str.prg
   * Sorry but it's too much modification for full description
     cvs diff gives file 785982 bytes length. So I only count the
     main things:
   ! cleand the code (no more warning messages under Linux and GCC and
     DOS OpenWatcom) - some of them were real bugs
   ! cleaned all endian dependend code I've found - now Harbour can be
     compiled on LITLE and BIG endian machines - for some other like
     PDP ENDIAN it's enough to define proper macros in hbdefs.h
   + added macros for to get/put values in chosen byte order:
         HB_GET_LE_[U]INT{16,24,32,64}( pPtr )
         HB_GET_BE_[U]INT{16,24,32,64}( pPtr )
         HB_PUT_LE_[U]INT{16,24,32,64}( pPtr, nVal )
         HB_PUT_BE_[U]INT{16,24,32,64}( pPtr, nVal )
   + added macro HB_CAST_BYTE_NUMBERS_OFF which disables casting in
     HB_{GET|PUT}_{LE|BE}_* macros - it's necessary for some platforms
     like ALPHA DEC.
   ! cleaned the code for 64bit machines
   * changed all parameters in hb_date* functions (day, month, year, week)
     from LONG to int - it doesn't change binary compatibility for 32bit
     machines but can cause troubles with compiling the old source
   + changed HB_IT_LONG type to HB_LONG which is mapped to long long
     by default for 32 bit machines.
   + change HB_IT_INTEGER to be real 'int' C type not 'short int'
   + added HB_IS_NUMINT() macro
   + added hb_parnll, hb_stornll, hb_retnll, hbretnlllen, hb_itemPutNLL,
     hb_itemPutNLLLen, hb_itemGetNLL which operates on LONGLONG
   + added hb_parnint, hb_stornint, hb_retnint, hb_retnintlen,
     hb_itemPutNInt, hb_itemPutNIntLen, hb_itemGetNInt which operates on
     HB_LONG
   + added HB_PUSHLONGLONG pcode
   + changed compiler and optimizer to use HB_LONG numbers and reduce
     conversion from to double which may damage the 64bit number.
   + common functions for string to number conversions for compiler, RTL
     and RDD to reduce problems with differ FL values for the same number:
     hb_compStrToNum(), hb_valStrnToNum(), hb_strToNum(), hb_strnToNum()
   + common function hb_numRoun() which uses exactly the same algorithms
     as string to number conversion for the same reason - please keep
     this functions together.
   + hack inside hb_numRound() similar to the one used by CL5.3
   + hb_numInt() which uses uses the same hack as hb_numRound()
   + rewritten number to string conversion
   + some new string manipulation functions hb_strncpy(), hb_strncat(), ...
     They works differ the the C one - always set 0 at the end, the buffer
     has to be n+1 bytes length, the n is total size of buffer not the
     left free space.
   ! cleaned some code which operates on ASCIIZ string to avoid potential
     buffer overflow
   + updated RDD code - it's the first part - in few days I plan to change
     workarea structure in both projects - it will break any 3rd party RDDs
     so they have to be updated. I want to add SUPERTABLE into workarea
     to allow creating new RDD on-line.
   ! cleaned the bugs with negating integers - on most machines (like x86)
     the integers are not 0 symmetric - it means that x = -x does not work
     for {INT,LONG,LONGLONG}_MIN (hb_vmNegate, ABS())
   + cleaned error messages to be Clipper compatible.
   + updated build process for .DEB packages - now hb* scripts and shared
     libs are created by standard make install
   * added new .prg #defines: __PLATFORM__<cPlatfrom>,
     __ARCH{16|32|64}BIT__, __LITTLE_ENDIAN__|__BIG_ENDIAN__|__PDP_ENDIAN__
     !!! cPlatfrom can have lower letters (for xHarbour compatibility)
     If you do not like it please change it.
   * others ...
2004-10-11 20:44:30 +00:00

729 lines
45 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
/*
* $Id$
*/
/*
* Harbour Project source code:
* Regression tests for the runtime library (strings)
*
* Copyright 1999-2001 Viktor Szakats <viktor.szakats@syenar.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
#include "rt_main.ch"
/* Don't change the position of this #include. */
#include "rt_vars.ch"
FUNCTION Main_STR()
/* VAL() */
TEST_LINE( Val( NIL ) , "E BASE 1098 Argument error VAL A:1:U:NIL F:S" )
TEST_LINE( Val( 10 ) , "E BASE 1098 Argument error VAL A:1:N:10 F:S" )
TEST_LINE( Str(Val("")) , " 0" )
TEST_LINE( Str(Val(" ")) , "0" )
TEST_LINE( Str(Val("-")) , "0" )
TEST_LINE( Str(Val("+")) , "0" )
TEST_LINE( Str(Val("-+")) , " 0" )
TEST_LINE( Str(Val("+-")) , " 0" )
TEST_LINE( Str(Val(".")) , "0" )
TEST_LINE( Str(Val("..")) , "0.0" )
TEST_LINE( Str(Val("-.")) , " 0" )
TEST_LINE( Str(Val("-..")) , "0.0" )
TEST_LINE( Str(Val("1.")) , " 1" )
TEST_LINE( Str(Val("1..")) , "1.0" )
TEST_LINE( Str(Val("1...")) , "1.00" )
TEST_LINE( Str(Val("-1.")) , " -1" )
TEST_LINE( Str(Val(" -1.")) , " -1" )
TEST_LINE( Str(Val(" --1.")) , " 0" )
TEST_LINE( Str(Val("-1..")) , "-1.0" )
TEST_LINE( Str(Val("-1...")) , "-1.00" )
TEST_LINE( Str(Val(".1")) , "0.1" )
TEST_LINE( Str(Val("-.1")) , "-0.1" )
TEST_LINE( Str(Val("-.0")) , "0.0" )
TEST_LINE( Str(Val(" -.1")) , "-0.1" )
TEST_LINE( Str(Val(" --.1")) , " 0.0" )
TEST_LINE( Str(Val("+.1")) , "0.1" )
TEST_LINE( Str(Val(" .1")) , "0.1" )
TEST_LINE( Str(Val("- .1")) , " 0.0" )
TEST_LINE( Str(Val("+.1")) , "0.1" )
TEST_LINE( Str(Val("- 12")) , " 0" )
TEST_LINE( Str(Val(" - 12")) , " 0" )
TEST_LINE( Str(Val(" -12")) , " -12" )
TEST_LINE( Str(Val(" --12")) , " 0" )
TEST_LINE( Str(Val(" 12-")) , " 12" )
TEST_LINE( Str(Val(" 12 -")) , " 12" )
TEST_LINE( Str(Val(" 13.1.9")) , " 13.100" )
TEST_LINE( Str(Val(" 12")) , " 12" )
TEST_LINE( Str(Val(" 12"+Chr(0)+"0")) , " 12" )
TEST_LINE( Str(Val(" 12.1"+Chr(0)+"2")) , " 12.100" )
TEST_LINE( Str(Val(" 12"+Chr(0)+".2")) , " 12.0" )
TEST_LINE( Str(Val(" 12.0")) , " 12.0" )
TEST_LINE( Str(Val(" 12. 0")) , " 12.00" )
TEST_LINE( Str(Val(" 12 .0")) , " 12.0" )
TEST_LINE( Str(Val(" 12. 00")) , " 12.000" )
TEST_LINE( Str(Val(" 12 .00")) , " 12.00" )
TEST_LINE( Str(Val(" 12. 1")) , " 12.00" )
TEST_LINE( Str(Val(" 12 .1")) , " 12.0" )
TEST_LINE( Str(Val(" 12. 10")) , " 12.000" )
TEST_LINE( Str(Val(" 12 .10")) , " 12.00" )
TEST_LINE( Str(Val("+ 12")) , " 0" )
TEST_LINE( Str(Val(" + 12")) , " 0" )
TEST_LINE( Str(Val(" +12")) , " 12" )
TEST_LINE( Str(Val("+++12")) , " 0" )
TEST_LINE( Str(Val(Chr(9)+"12")) , " 12" )
TEST_LINE( Str(Val(Chr(10)+"12")) , " 12" )
TEST_LINE( Str(Val(Chr(13)+"12")) , " 12" )
TEST_LINE( Str(Val("1E2")) , " 1" )
TEST_LINE( Str(Val("+INF")) , " 0" )
TEST_LINE( Str(Val("-INF")) , " 0" )
TEST_LINE( Str(Val("+NAN")) , " 0" )
TEST_LINE( Str(Val("-NAN")) , " 0" )
TEST_LINE( Str(Val("2.0000000000000001")) , "2.0000000000000000" )
TEST_LINE( Str(Val("2.0000000000000009")) , "2.0000000000000010" )
TEST_LINE( Str(Val("2.000000000000001")) , "2.000000000000001" )
TEST_LINE( Str(Val("2.000000000000009")) , "2.000000000000009" )
TEST_LINE( Str(Val("2.00000000000001")) , "2.00000000000001" )
TEST_LINE( Str(Val("2.00000000000009")) , "2.00000000000009" )
TEST_LINE( Str(Val("2.000000000001")) , "2.000000000001" )
TEST_LINE( Str(Val("2.00000000001")) , "2.00000000001" )
TEST_LINE( Str(Val("1HELLO.")) , " 1" )
/* CHR() */
TEST_LINE( Chr( NIL ) , "E BASE 1104 Argument error CHR A:1:U:NIL F:S" )
TEST_LINE( Chr( "A" ) , "E BASE 1104 Argument error CHR A:1:C:A F:S" )
TEST_LINE( Chr( "ADDDDDD" ) , "E BASE 1104 Argument error CHR A:1:C:ADDDDDD F:S" )
TEST_LINE( Chr( -10000000.0 ) , "€" )
TEST_LINE( Chr( -100000 ) , "`" )
TEST_LINE( Chr( -65 ) , "¿" )
TEST_LINE( Chr( snIntP1 ) , "A" )
#ifdef __HARBOUR__
TEST_LINE( Chr( @snIntP1 ) , "A" ) /* Bug in CA-Cl*pper, it returns: "E BASE 1104 Argument error CHR F:S" */
#endif
TEST_LINE( Chr( 0 ) , ""+Chr(0)+"" )
TEST_LINE( Chr( 0.0 ) , ""+Chr(0)+"" )
TEST_LINE( Chr( 0.1 ) , ""+Chr(0)+"" )
TEST_LINE( Chr( -0.1 ) , ""+Chr(0)+"" )
TEST_LINE( Chr( 66.4 ) , "B" )
TEST_LINE( Chr( 66.5 ) , "B" )
TEST_LINE( Chr( 66.6 ) , "B" )
TEST_LINE( Chr( 255 ) , "ÿ" )
TEST_LINE( Chr( 256 ) , "" ) /* Due to a bug in CA-Cl*pper compiler optimizer. It should return Chr(0) */
TEST_LINE( Chr( 256.0 ) , ""+Chr(0)+"" )
TEST_LINE( Chr( 256.1 ) , ""+Chr(0)+"" )
TEST_LINE( Chr( ( 256 ) ) , ""+Chr(0)+"" ) /* Double paranthesis should be used here to avoid the optimizer of the CA-Cl*pper compiler */
TEST_LINE( Chr( 257 ) , "" )
TEST_LINE( Chr( ( 512 ) ) , ""+Chr(0)+"" ) /* Double paranthesis should be used here to avoid the optimizer of the CA-Cl*pper compiler */
TEST_LINE( Chr( 1023 ) , "ÿ" )
TEST_LINE( Chr( ( 1024 ) ) , ""+Chr(0)+"" ) /* Double paranthesis should be used here to avoid the optimizer of the CA-Cl*pper compiler */
TEST_LINE( Chr( 1025 ) , "" )
TEST_LINE( Chr( 1000 ) , "è" )
TEST_LINE( Chr( 100000 ) , " " )
TEST_LINE( Chr( 100000.0 ) , " " )
/* ASC() */
TEST_LINE( Asc( NIL ) , "E BASE 1107 Argument error ASC A:1:U:NIL F:S" )
TEST_LINE( Asc( 100 ) , "E BASE 1107 Argument error ASC A:1:N:100 F:S" )
TEST_LINE( Asc( 20000 ) , "E BASE 1107 Argument error ASC A:1:N:20000 F:S" )
TEST_LINE( Asc( "HELLO" ) , 72 )
TEST_LINE( Asc( Chr(0) ) , 0 )
TEST_LINE( Asc( "a" ) , 97 )
TEST_LINE( Asc( "A" ) , 65 )
TEST_LINE( Asc( scString ) , 72 )
#ifdef __HARBOUR__
TEST_LINE( Asc( @scString ) , 72 ) /* Bug in CA-Cl*pper, it returns: "E BASE 1107 Argument error ASC F:S" */
#endif
/* ISDIGIT() */
#ifndef __XPP__
TEST_LINE( IsDigit() , .F. )
#endif
TEST_LINE( IsDigit( 100 ) , .F. )
#ifdef __HARBOUR__
TEST_LINE( IsDigit( @scString ) , .F. ) /* Bug in CA-Cl*pper, it will always return .F. */
#endif
TEST_LINE( IsDigit( "" ) , .F. )
TEST_LINE( IsDigit( "A" ) , .F. )
TEST_LINE( IsDigit( "AA" ) , .F. )
TEST_LINE( IsDigit( "-" ) , .F. )
TEST_LINE( IsDigit( "." ) , .F. )
TEST_LINE( IsDigit( "0" ) , .T. )
TEST_LINE( IsDigit( "9" ) , .T. )
TEST_LINE( IsDigit( "123" ) , .T. )
TEST_LINE( IsDigit( "1" ) , .T. )
TEST_LINE( IsDigit( "A1" ) , .F. )
TEST_LINE( IsDigit( "1A" ) , .T. )
/* ISALPHA() */
#ifndef __XPP__
TEST_LINE( IsAlpha() , .F. )
#endif
TEST_LINE( IsAlpha( 100 ) , .F. )
#ifdef __HARBOUR__
TEST_LINE( IsAlpha( @scString ) , .T. ) /* Bug in CA-Cl*pper, it will always return .F. */
#endif
TEST_LINE( IsAlpha( "" ) , .F. )
TEST_LINE( IsAlpha( "A" ) , .T. )
TEST_LINE( IsAlpha( "AA" ) , .T. )
TEST_LINE( IsAlpha( "-" ) , .F. )
TEST_LINE( IsAlpha( "." ) , .F. )
TEST_LINE( IsAlpha( "0" ) , .F. )
TEST_LINE( IsAlpha( "9" ) , .F. )
TEST_LINE( IsAlpha( "123" ) , .F. )
TEST_LINE( IsAlpha( "1" ) , .F. )
TEST_LINE( IsAlpha( "A" ) , .T. )
TEST_LINE( IsAlpha( "A1" ) , .T. )
TEST_LINE( IsAlpha( "aa" ) , .T. )
TEST_LINE( IsAlpha( "za" ) , .T. )
TEST_LINE( IsAlpha( "Aa" ) , .T. )
TEST_LINE( IsAlpha( "Za" ) , .T. )
TEST_LINE( IsAlpha( "@" ) , .F. )
TEST_LINE( IsAlpha( "[" ) , .F. )
TEST_LINE( IsAlpha( "`" ) , .F. )
TEST_LINE( IsAlpha( "{" ) , .F. )
/* ISUPPER() */
#ifndef __XPP__
TEST_LINE( IsUpper() , .F. )
#endif
TEST_LINE( IsUpper( 100 ) , .F. )
#ifdef __HARBOUR__
TEST_LINE( IsUpper( @scString ) , .T. ) /* Bug in CA-Cl*pper, it will always return .F. */
#endif
TEST_LINE( IsUpper( "" ) , .F. )
TEST_LINE( IsUpper( "6" ) , .F. )
TEST_LINE( IsUpper( "A" ) , .T. )
TEST_LINE( IsUpper( "AA" ) , .T. )
TEST_LINE( IsUpper( "a" ) , .F. )
TEST_LINE( IsUpper( "K" ) , .T. )
TEST_LINE( IsUpper( "Z" ) , .T. )
TEST_LINE( IsUpper( "z" ) , .F. )
TEST_LINE( IsUpper( "™" ) , .F. )
TEST_LINE( IsUpper( "”" ) , .F. )
/* ISLOWER() */
#ifndef __XPP__
TEST_LINE( IsLower() , .F. )
#endif
TEST_LINE( IsLower( 100 ) , .F. )
#ifdef __HARBOUR__
TEST_LINE( IsLower( @scString ) , .F. ) /* Bug in CA-Cl*pper, it will always return .F. */
#endif
TEST_LINE( IsLower( "" ) , .F. )
TEST_LINE( IsLower( "6" ) , .F. )
TEST_LINE( IsLower( "A" ) , .F. )
TEST_LINE( IsLower( "AA" ) , .F. )
TEST_LINE( IsLower( "a" ) , .T. )
TEST_LINE( IsLower( "K" ) , .F. )
TEST_LINE( IsLower( "Z" ) , .F. )
TEST_LINE( IsLower( "z" ) , .T. )
TEST_LINE( IsLower( "™" ) , .F. )
TEST_LINE( IsLower( "”" ) , .F. )
/* ALLTRIM() */
/* These lines will cause CA-Cl*pper 5.2e to trash memory and later crash, it was fixed in 5.3 */
#ifndef __CLIPPER__
TEST_LINE( AllTrim( NIL ) , "E BASE 2022 Argument error ALLTRIM F:S" ) /* CA-Cl*pper 5.2e/5.3 is not giving the same result for this one. */
TEST_LINE( AllTrim( 100 ) , "E BASE 2022 Argument error ALLTRIM F:S" ) /* CA-Cl*pper 5.2e/5.3 is not giving the same result for this one. */
#endif
#ifdef __HARBOUR__
TEST_LINE( AllTrim(@scString) , "HELLO" ) /* CA-Cl*pper bug, it will terminate the program on this line. */
#endif
TEST_LINE( AllTrim(scString) , "HELLO" )
TEST_LINE( AllTrim("HELLO") , "HELLO" )
TEST_LINE( AllTrim( "" ) , "" )
TEST_LINE( AllTrim( "UA " ) , "UA" )
TEST_LINE( AllTrim( " UA" ) , "UA" )
TEST_LINE( AllTrim( " UA " ) , "UA" )
TEST_LINE( AllTrim( " "+Chr(0)+" UA " ) , ""+Chr(0)+" UA" )
TEST_LINE( AllTrim( " "+Chr(9)+" UA " ) , "UA" )
TEST_LINE( AllTrim( " "+Chr(9)+"U"+Chr(9)) , "U"+Chr(9)+"" )
TEST_LINE( AllTrim( " "+Chr(9)+Chr(9)) , "" )
TEST_LINE( AllTrim( Chr(10)+"U"+Chr(10)) , "U"+Chr(10)+"" )
TEST_LINE( AllTrim( Chr(13)+"U"+Chr(13)) , "U"+Chr(13)+"" )
TEST_LINE( AllTrim( "A"+Chr(10)) , "A"+Chr(10)+"" )
TEST_LINE( AllTrim( "A"+Chr(13)) , "A"+Chr(13)+"" )
TEST_LINE( AllTrim( " "+Chr(0)+"ABC"+Chr(0)+" "), ""+Chr(0)+"ABC"+Chr(0)+"" )
/* TRIM() */
TEST_LINE( Trim( 100 ) , "E BASE 1100 Argument error TRIM A:1:N:100 F:S" )
TEST_LINE( Trim( NIL ) , "E BASE 1100 Argument error TRIM A:1:U:NIL F:S" )
#ifdef __HARBOUR__
TEST_LINE( Trim(@scString) , "HELLO" ) /* CA-Cl*pper bug, it will throw an error here. */
#endif
TEST_LINE( Trim(scString) , "HELLO" )
TEST_LINE( Trim("HELLO") , "HELLO" )
TEST_LINE( Trim( "" ) , "" )
TEST_LINE( Trim( "UA " ) , "UA" )
TEST_LINE( Trim( " UA" ) , " UA" )
TEST_LINE( Trim( " UA " ) , " UA" )
TEST_LINE( Trim( " "+Chr(0)+" UA " ) , " "+Chr(0)+" UA" )
TEST_LINE( Trim( " "+Chr(9)+" UA " ) , " "+Chr(9)+" UA" )
TEST_LINE( Trim( " "+Chr(9)+"U"+Chr(9)) , " "+Chr(9)+"U"+Chr(9)+"" )
TEST_LINE( Trim( " "+Chr(9)+Chr(9)) , " "+Chr(9)+""+Chr(9)+"" )
TEST_LINE( Trim( Chr(10)+"U"+Chr(10)) , ""+Chr(10)+"U"+Chr(10)+"" )
TEST_LINE( Trim( Chr(13)+"U"+Chr(13)) , ""+Chr(13)+"U"+Chr(13)+"" )
TEST_LINE( Trim( "A"+Chr(10)) , "A"+Chr(10)+"" )
TEST_LINE( Trim( "A"+Chr(13)) , "A"+Chr(13)+"" )
TEST_LINE( Trim( " "+Chr(0)+"ABC"+Chr(0)+" "), " "+Chr(0)+"ABC"+Chr(0)+"" )
/* RTRIM() */
TEST_LINE( RTrim( 100 ) , "E BASE 1100 Argument error TRIM A:1:N:100 F:S" )
TEST_LINE( RTrim( NIL ) , "E BASE 1100 Argument error TRIM A:1:U:NIL F:S" )
#ifdef __HARBOUR__
TEST_LINE( RTrim(@scString) , "HELLO" ) /* CA-Cl*pper bug, it will throw an error here. */
#endif
TEST_LINE( RTrim(scString) , "HELLO" )
TEST_LINE( RTrim("HELLO") , "HELLO" )
TEST_LINE( RTrim( "" ) , "" )
TEST_LINE( RTrim( "UA " ) , "UA" )
TEST_LINE( RTrim( " UA" ) , " UA" )
TEST_LINE( RTrim( " UA " ) , " UA" )
TEST_LINE( RTrim( " "+Chr(0)+" UA " ) , " "+Chr(0)+" UA" )
TEST_LINE( RTrim( " "+Chr(9)+" UA " ) , " "+Chr(9)+" UA" )
TEST_LINE( RTrim( " "+Chr(9)+"U"+Chr(9)) , " "+Chr(9)+"U"+Chr(9)+"" )
TEST_LINE( RTrim( " "+Chr(9)+Chr(9)) , " "+Chr(9)+""+Chr(9)+"" )
TEST_LINE( RTrim( Chr(10)+"U"+Chr(10)) , ""+Chr(10)+"U"+Chr(10)+"" )
TEST_LINE( RTrim( Chr(13)+"U"+Chr(13)) , ""+Chr(13)+"U"+Chr(13)+"" )
TEST_LINE( RTrim( "A"+Chr(10)) , "A"+Chr(10)+"" )
TEST_LINE( RTrim( "A"+Chr(13)) , "A"+Chr(13)+"" )
TEST_LINE( RTrim( " "+Chr(0)+"ABC"+Chr(0)+" "), " "+Chr(0)+"ABC"+Chr(0)+"" )
/* LTRIM() */
TEST_LINE( LTrim( 100 ) , "E BASE 1101 Argument error LTRIM A:1:N:100 F:S" )
TEST_LINE( LTrim( NIL ) , "E BASE 1101 Argument error LTRIM A:1:U:NIL F:S" )
#ifdef __HARBOUR__
TEST_LINE( LTrim(@scString) , "HELLO" ) /* CA-Cl*pper bug, it will throw an error here. */
#endif
TEST_LINE( LTrim(scString) , "HELLO" )
TEST_LINE( LTrim("HELLO") , "HELLO" )
TEST_LINE( LTrim( "" ) , "" )
TEST_LINE( LTrim( "UA " ) , "UA " )
TEST_LINE( LTrim( " UA" ) , "UA" )
TEST_LINE( LTrim( " UA " ) , "UA " )
TEST_LINE( LTrim( " "+Chr(0)+" UA " ) , ""+Chr(0)+" UA " )
TEST_LINE( LTrim( " "+Chr(9)+" UA " ) , "UA " )
TEST_LINE( LTrim( " "+Chr(9)+"U"+Chr(9)) , "U"+Chr(9)+"" )
TEST_LINE( LTrim( " "+Chr(9)+Chr(9)) , "" )
TEST_LINE( LTrim( Chr(10)+"U"+Chr(10)) , "U"+Chr(10)+"" )
TEST_LINE( LTrim( Chr(13)+"U"+Chr(13)) , "U"+Chr(13)+"" )
TEST_LINE( LTrim( "A"+Chr(10)) , "A"+Chr(10)+"" )
TEST_LINE( LTrim( "A"+Chr(13)) , "A"+Chr(13)+"" )
TEST_LINE( LTrim( " "+Chr(0)+"ABC"+Chr(0)+" "), ""+Chr(0)+"ABC"+Chr(0)+" " )
/* STRTRAN() */
/* TODO: STRTRAN() */
/* NOTE: It seems like CA-Cl*pper 5.x is not aware of the BREAK return value of
the error handler, so the error is thrown, but we can't catch it.
This bug is fixed in CA-Clipper 5.3 [vszakats] */
#ifndef __CLIPPER__
#ifndef __XPP__
TEST_LINE( StrTran() , "E BASE 1126 Argument error STRTRAN F:S" ) /* CA-Cl*pper bug, it will exit on this */
TEST_LINE( StrTran( NIL ) , "E BASE 1126 Argument error STRTRAN F:S" ) /* CA-Cl*pper bug, it will exit on this */
TEST_LINE( StrTran( 100 ) , "E BASE 1126 Argument error STRTRAN F:S" ) /* CA-Cl*pper bug, it will exit on this */
#endif
TEST_LINE( StrTran( "AA", 1 ) , "E BASE 1126 Argument error STRTRAN F:S" ) /* CA-Cl*pper bug, it will exit on this */
#endif
TEST_LINE( StrTran( "AA", "A" ) , "" )
TEST_LINE( StrTran( "AA", "A", "1" ) , "11" )
TEST_LINE( StrTran( "AA", "A", "1", "2" ) , "11" )
/* UPPER() */
TEST_LINE( Upper( scString ) , "HELLO" )
#ifdef __HARBOUR__
TEST_LINE( Upper( @scString ) , "HELLO" ) /* Bug in CA-Cl*pper, it will return argument error */
#endif
TEST_LINE( Upper( 100 ) , "E BASE 1102 Argument error UPPER A:1:N:100 F:S" )
TEST_LINE( Upper( "" ) , "" )
TEST_LINE( Upper( " " ) , " " )
TEST_LINE( Upper( "2" ) , "2" )
TEST_LINE( Upper( "{" ) , "{" )
TEST_LINE( Upper( Chr(0) ) , ""+Chr(0)+"" )
TEST_LINE( Upper( "aAZAZa" ) , "AAZAZA" )
TEST_LINE( Upper( "AazazA" ) , "AAZAZA" )
TEST_LINE( Upper( "Aaz"+Chr(0)+"zA" ) , "AAZ"+Chr(0)+"ZA" )
TEST_LINE( Upper( "z" ) , "Z" )
TEST_LINE( Upper( " µ" ) , " µ" )
TEST_LINE( Upper( "H rbor 8-) µ" ) , "H RBOR 8-) µ" )
/* LOWER() */
TEST_LINE( Lower( scString ) , "hello" )
#ifdef __HARBOUR__
TEST_LINE( Lower( @scString ) , "hello" ) /* Bug in CA-Cl*pper, it will return argument error */
#endif
TEST_LINE( Lower( 100 ) , "E BASE 1103 Argument error LOWER A:1:N:100 F:S" )
TEST_LINE( Lower( "" ) , "" )
TEST_LINE( Lower( " " ) , " " )
TEST_LINE( Lower( "2" ) , "2" )
TEST_LINE( Lower( "{" ) , "{" )
TEST_LINE( Lower( Chr(0) ) , ""+Chr(0)+"" )
TEST_LINE( Lower( "aAZAZa" ) , "aazaza" )
TEST_LINE( Lower( "AazazA" ) , "aazaza" )
TEST_LINE( Lower( "Aaz"+Chr(0)+"zA" ) , "aaz"+Chr(0)+"za" )
TEST_LINE( Lower( "z" ) , "z" )
TEST_LINE( Lower( " µ" ) , " µ" )
TEST_LINE( Lower( "H rbor 8-) µ" ) , "h rbor 8-) µ" )
/* AT() */
TEST_LINE( At(90, 100) , "E BASE 1108 Argument error AT A:2:N:90;N:100 F:S" )
TEST_LINE( At("", 100) , "E BASE 1108 Argument error AT A:2:C:;N:100 F:S" )
TEST_LINE( At(100, "") , "E BASE 1108 Argument error AT A:2:N:100;C: F:S" )
TEST_LINE( At("", "") , 1 ) /* Bug in CA-Cl*ppers compiler optimizer, it should return 0 */
TEST_LINE( At("", "ABCDEF") , 1 ) /* Bug in CA-Cl*ppers compiler optimizer, it should return 0 */
TEST_LINE( At(scStringE, "ABCDEF") , 0 )
TEST_LINE( At("ABCDEF", "") , 0 )
TEST_LINE( At("AB", "AB") , 1 )
TEST_LINE( At("AB", "AAB") , 2 )
TEST_LINE( At("A", "ABCDEF") , 1 )
TEST_LINE( At("F", "ABCDEF") , 6 )
TEST_LINE( At("D", "ABCDEF") , 4 )
TEST_LINE( At("X", "ABCDEF") , 0 )
TEST_LINE( At("AB", "ABCDEF") , 1 )
TEST_LINE( At("AA", "ABCDEF") , 0 )
TEST_LINE( At("ABCDEF", "ABCDEF") , 1 )
TEST_LINE( At("BCDEF", "ABCDEF") , 2 )
TEST_LINE( At("BCDEFG", "ABCDEF") , 0 )
TEST_LINE( At("ABCDEFG", "ABCDEF") , 0 )
TEST_LINE( At("FI", "ABCDEF") , 0 )
/* RAT() */
TEST_LINE( RAt(90, 100) , 0 )
TEST_LINE( RAt("", 100) , 0 )
TEST_LINE( RAt(100, "") , 0 )
TEST_LINE( RAt("", "") , 0 )
TEST_LINE( RAt("", "ABCDEF") , 0 )
TEST_LINE( RAt("ABCDEF", "") , 0 )
TEST_LINE( RAt("AB", "AB") , 1 )
TEST_LINE( RAt("AB", "AAB") , 2 )
TEST_LINE( RAt("AB", "ABAB") , 3 )
TEST_LINE( RAt("A", "ABCADEF") , 4 )
TEST_LINE( RAt("A", "ABCADEFA") , 8 )
TEST_LINE( RAt("A", "ABCDEFA") , 7 )
TEST_LINE( RAt("A", "ABCDEF") , 1 )
TEST_LINE( RAt("F", "ABCDEF") , 6 )
TEST_LINE( RAt("D", "ABCDEF") , 4 )
TEST_LINE( RAt("X", "ABCDEF") , 0 )
TEST_LINE( RAt("AB", "ABCDEF") , 1 )
TEST_LINE( RAt("AA", "ABCDEF") , 0 )
TEST_LINE( RAt("ABCDEF", "ABCDEF") , 1 )
TEST_LINE( RAt("BCDEF", "ABCDEF") , 2 )
TEST_LINE( RAt("BCDEFG", "ABCDEF") , 0 )
TEST_LINE( RAt("ABCDEFG", "ABCDEF") , 0 )
TEST_LINE( RAt("FI", "ABCDEF") , 0 )
/* REPLICATE() */
#ifdef __HARBOUR__
#ifdef __ARCH64BIT__
TEST_LINE( Replicate("XXX", 9000000000000000000) , "E BASE 1234 String overflow REPLICATE A:2:C:XXX;N:9000000000000000000 F:S" )
#else
TEST_LINE( Replicate("XXX", 2000000000) , "E BASE 1234 String overflow REPLICATE A:2:C:XXX;N:2000000000 F:S" )
#endif
#else
TEST_LINE( Replicate("XXX", 30000) , "E BASE 1234 String overflow REPLICATE A:2:C:XXX;N:30000 F:S" )
#endif
TEST_LINE( Replicate(200 , 0 ) , "E BASE 1106 Argument error REPLICATE A:2:N:200;N:0 F:S" )
TEST_LINE( Replicate("" , 10 ) , "" )
TEST_LINE( Replicate("" , 0 ) , "" )
TEST_LINE( Replicate("A" , "B" ) , "E BASE 1106 Argument error REPLICATE A:2:C:A;C:B F:S" )
TEST_LINE( Replicate("A" , 1 ) , "A" )
TEST_LINE( Replicate("A" , 2 ) , "AA" )
TEST_LINE( Replicate("HE", 3 ) , "HEHEHE" )
TEST_LINE( Replicate("HE", 3.1 ) , "HEHEHE" )
TEST_LINE( Replicate("HE", 3.5 ) , "HEHEHE" )
TEST_LINE( Replicate("HE", 3.7 ) , "HEHEHE" )
TEST_LINE( Replicate("HE", -3 ) , "" )
TEST_LINE( Replicate("H"+Chr(0), 2 ) , "H"+Chr(0)+"H"+Chr(0)+"" )
/* SPACE() */
TEST_LINE( Space( "A" ) , "E BASE 1105 Argument error SPACE A:1:C:A F:S" )
TEST_LINE( Space( 0 ) , "" )
TEST_LINE( Space( -10 ) , "" )
TEST_LINE( Space( 10 ) , " " )
TEST_LINE( Space( 10.2 ) , " " )
TEST_LINE( Space( 10.5 ) , " " )
TEST_LINE( Space( 10.7 ) , " " )
/* SUBSTR() */
TEST_LINE( SubStr(100 , 0, -1) , "E BASE 1110 Argument error SUBSTR A:3:N:100;N:0;N:-1 F:S" )
TEST_LINE( SubStr("abcdef", 1, "a") , "E BASE 1110 Argument error SUBSTR A:3:C:abcdef;N:1;C:a F:S" )
TEST_LINE( SubStr("abcdef", "a") , "E BASE 1110 Argument error SUBSTR A:2:C:abcdef;C:a F:S" )
TEST_LINE( SubStr("abcdef", "a", 1) , "E BASE 1110 Argument error SUBSTR A:3:C:abcdef;C:a;N:1 F:S" )
TEST_LINE( SubStr("abcdef", 0, -1) , "" )
TEST_LINE( SubStr("abcdef", 0, 0) , "" )
TEST_LINE( SubStr("abcdef", 0, 1) , "a" )
TEST_LINE( SubStr("abcdef", 0, 7) , "abcdef" )
TEST_LINE( SubStr("abcdef", 0) , "abcdef" )
TEST_LINE( SubStr("abcdef", 2, -1) , "" )
TEST_LINE( SubStr("abcdef", 2, 0) , "" )
TEST_LINE( SubStr("abcdef", 2, 1) , "b" )
TEST_LINE( SubStr("abcdef", 2, 7) , "bcdef" )
TEST_LINE( SubStr("abcdef", 2) , "bcdef" )
#ifndef __XPP__
TEST_LINE( SubStr("abcdef", -2, -1) , "" )
TEST_LINE( SubStr("abcdef", -2, 0) , "" )
TEST_LINE( SubStr("abcdef", -2, 1) , "e" )
TEST_LINE( SubStr("abcdef", -2, 7) , "ef" )
TEST_LINE( SubStr("abcdef", -2) , "ef" )
#endif
TEST_LINE( SubStr("abcdef", 10, -1) , "" )
TEST_LINE( SubStr("abcdef", 10, 0) , "" )
TEST_LINE( SubStr("abcdef", 10, 1) , "" )
TEST_LINE( SubStr("abcdef", 10, 7) , "" )
TEST_LINE( SubStr("abcdef", 10) , "" )
#ifndef __XPP__
TEST_LINE( SubStr("abcdef", -10, -1) , "" )
TEST_LINE( SubStr("abcdef", -10, 0) , "" )
TEST_LINE( SubStr("abcdef", -10, 1) , "a" )
TEST_LINE( SubStr("abcdef", -10, 7) , "abcdef" )
TEST_LINE( SubStr("abcdef", -10, 15) , "abcdef" )
TEST_LINE( SubStr("abcdef", -10) , "abcdef" )
#endif
TEST_LINE( SubStr("ab" + Chr(0) + "def", 2, 3) , "b" + Chr(0) + "d" )
TEST_LINE( SubStr("abc" + Chr(0) + "def", 3, 1) , "c" )
TEST_LINE( SubStr("abc" + Chr(0) + "def", 4, 1) , "" + Chr(0) + "" )
TEST_LINE( SubStr("abc" + Chr(0) + "def", 5, 1) , "d" )
/* LEFT() */
TEST_LINE( Left(100 , -10) , "E BASE 1124 Argument error LEFT A:2:N:100;N:-10 F:S" )
TEST_LINE( Left("abcdef", "A") , "E BASE 1124 Argument error LEFT A:2:C:abcdef;C:A F:S" )
TEST_LINE( Left("abcdef", -10) , "" )
TEST_LINE( Left("abcdef", -2) , "" )
TEST_LINE( Left("abcdef", 0) , "" )
TEST_LINE( Left("abcdef", 2) , "ab" )
TEST_LINE( Left("abcdef", 10) , "abcdef" )
TEST_LINE( Left("ab" + Chr(0) + "def", 5) , "ab" + Chr(0) + "de" )
/* RIGHT() */
TEST_LINE( Right(100 , -10) , "" )
TEST_LINE( Right("abcdef", "A") , "" )
TEST_LINE( Right("abcdef", -10) , "" )
TEST_LINE( Right("abcdef", -2) , "" )
TEST_LINE( Right("abcdef", 0) , "" )
TEST_LINE( Right("abcdef", 2) , "ef" )
TEST_LINE( Right("abcdef", 10) , "abcdef" )
TEST_LINE( Right("ab" + Chr(0) + "def", 5) , "b" + Chr(0) + "def" )
/* PADR() */
TEST_LINE( Pad(NIL, 5) , "" )
TEST_LINE( Pad(.T., 5) , "" )
TEST_LINE( Pad(10, 5) , "10 " )
TEST_LINE( Pad(10.2, 5) , "10.2 " )
TEST_LINE( Pad(100000, 8) , "100000 " )
TEST_LINE( Pad(100000, 8, "-") , "100000--" )
TEST_LINE( Pad(-100000, 8, "-") , "-100000-" )
TEST_LINE( Pad(5000000000, 15) , "5000000000 ")
TEST_LINE( Pad(HB_SToD("19840325"), 12) , "1984.03.25 " )
TEST_LINE( Pad(Year(HB_SToD("19840325")), 5) , "1984 " )
TEST_LINE( Pad(Day(HB_SToD("19840325")), 5) , "25 " )
#ifdef __HARBOUR__
TEST_LINE( Pad(@scString, 10) , "HELLO " ) /* Bug in CA-Cl*pper, it will return "" */
TEST_LINE( Pad(scString, @snIntP) , "HELLO " ) /* Bug in CA-Cl*pper, it will return "" */
#endif
#ifndef __XPP__
TEST_LINE( Pad("abcdef", "A") , "" )
TEST_LINE( Pad("abcdef", -5) , "" )
#endif
TEST_LINE( Pad("abcdef", 0) , "" )
TEST_LINE( Pad("abcdef", 5) , "abcde" )
TEST_LINE( Pad("abcdef", 10) , "abcdef " )
TEST_LINE( Pad("abcdef", 10, "") , "abcdef"+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" )
TEST_LINE( Pad("abcdef", 10, "1") , "abcdef1111" )
TEST_LINE( Pad("abcdef", 10, "12") , "abcdef1111" )
/* PADR() */
TEST_LINE( PadR(NIL, 5) , "" )
TEST_LINE( PadR(.T., 5) , "" )
TEST_LINE( PadR(10, 5) , "10 " )
TEST_LINE( PadR(10.2, 5) , "10.2 " )
TEST_LINE( PadR(100000, 8) , "100000 " )
TEST_LINE( PadR(100000, 8, "-") , "100000--" )
TEST_LINE( PadR(-100000, 8, "-") , "-100000-" )
TEST_LINE( PadR(HB_SToD("19840325"), 12) , "1984.03.25 " )
TEST_LINE( PadR(Year(HB_SToD("19840325")), 5) , "1984 " )
TEST_LINE( PadR(Day(HB_SToD("19840325")), 5) , "25 " )
#ifdef __HARBOUR__
TEST_LINE( PadR(@scString, 10) , "HELLO " ) /* Bug in CA-Cl*pper, it will return "" */
TEST_LINE( PadR(scString, @snIntP) , "HELLO " ) /* Bug in CA-Cl*pper, it will return "" */
#endif
#ifndef __XPP__
TEST_LINE( PadR("abcdef", "A") , "" )
TEST_LINE( PadR("abcdef", -5) , "" )
#endif
TEST_LINE( PadR("abcdef", 0) , "" )
TEST_LINE( PadR("abcdef", 5) , "abcde" )
TEST_LINE( PadR("abcdef", 10) , "abcdef " )
TEST_LINE( PadR("abcdef", 10, "") , "abcdef"+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" )
TEST_LINE( PadR("abcdef", 10, "1") , "abcdef1111" )
TEST_LINE( PadR("abcdef", 10, "12") , "abcdef1111" )
/* PADL() */
TEST_LINE( PadL(NIL, 5) , "" )
TEST_LINE( PadL(.T., 5) , "" )
TEST_LINE( PadL(10, 5) , " 10" )
TEST_LINE( PadL(10.2, 5) , " 10.2" )
TEST_LINE( PadL(100000, 8) , " 100000" )
TEST_LINE( PadL(100000, 8, "-") , "--100000" )
TEST_LINE( PadL(-100000, 8, "-") , "--100000" )
TEST_LINE( PadL(HB_SToD("19840325"), 12) , " 1984.03.25" )
TEST_LINE( PadL(Year(HB_SToD("19840325")), 5) , " 1984" )
TEST_LINE( PadL(Day(HB_SToD("19840325")), 5) , " 25" )
#ifdef __HARBOUR__
TEST_LINE( PadL(@scString, 10) , " HELLO" ) /* Bug in CA-Cl*pper, it will return "" */
TEST_LINE( PadL(scString, @snIntP) , " HELLO" ) /* Bug in CA-Cl*pper, it will return "" */
#endif
#ifndef __XPP__
TEST_LINE( PadL("abcdef", "A") , "" )
TEST_LINE( PadL("abcdef", -5) , "" )
#endif
TEST_LINE( PadL("abcdef", 0) , "" )
TEST_LINE( PadL("abcdef", 5) , "abcde" ) /* QUESTION: CA-Cl*pper "bug", should return: "bcdef" ? */
TEST_LINE( PadL("abcdef", 10) , " abcdef" )
TEST_LINE( PadL("abcdef", 10, "") , ""+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"abcdef" )
TEST_LINE( PadL("abcdef", 10, "1") , "1111abcdef" )
TEST_LINE( PadL("abcdef", 10, "12") , "1111abcdef" )
/* PADC() */
TEST_LINE( PadC(NIL, 5) , "" )
TEST_LINE( PadC(.T., 5) , "" )
TEST_LINE( PadC(10, 5) , " 10 " )
TEST_LINE( PadC(10.2, 5) , "10.2 " )
TEST_LINE( PadC(100000, 8) , " 100000 " )
TEST_LINE( PadC(100000, 8, "-") , "-100000-" )
TEST_LINE( PadC(-100000, 8, "-") , "-100000-" )
TEST_LINE( PadC(HB_SToD("19840325"), 12) , " 1984.03.25 " )
TEST_LINE( PadC(Year(HB_SToD("19840325")), 5) , "1984 " )
TEST_LINE( PadC(Day(HB_SToD("19840325")), 5) , " 25 " )
#ifdef __HARBOUR__
TEST_LINE( PadC(@scString, 10) , " HELLO " ) /* Bug in CA-Cl*pper, it will return "" */
TEST_LINE( PadC(scString, @snIntP) , " HELLO " ) /* Bug in CA-Cl*pper, it will return "" */
#endif
#ifndef __XPP__
TEST_LINE( PadC("abcdef", "A") , "" )
TEST_LINE( PadC("abcdef", -5) , "" )
#endif
TEST_LINE( PadC("abcdef", 0) , "" )
TEST_LINE( PadC("abcdef", 2) , "ab" ) /* QUESTION: CA-Cl*pper "bug", should return: "cd" ? */
TEST_LINE( PadC("abcdef", 5) , "abcde" )
TEST_LINE( PadC("abcdef", 10) , " abcdef " )
TEST_LINE( PadC("abcdef", 10, "") , ""+Chr(0)+""+Chr(0)+"abcdef"+Chr(0)+""+Chr(0)+"" )
TEST_LINE( PadC("abcdef", 10, "1") , "11abcdef11" )
TEST_LINE( PadC("abcdef", 10, "12") , "11abcdef11" )
/* STUFF() */
#ifndef __XPP__
TEST_LINE( Stuff() , "" )
TEST_LINE( Stuff( 100 ) , "" )
#endif
TEST_LINE( Stuff("ABCDEF", -6, -5, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", -6, -2, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", -6, 0, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", -6, 10, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", -6, 30, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", -2, -5, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", -2, -2, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", -2, 0, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", -2, 10, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", -2, 30, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", 0, -5, NIL) , "" )
TEST_LINE( Stuff("ABCDEF", 0, -2, "xyz") , "xyz" )
TEST_LINE( Stuff("ABCDEF", 0, 0, "xyz") , "xyzABCDEF" )
TEST_LINE( Stuff("ABCDEF", 0, 10, "xyz") , "xyz" )
TEST_LINE( Stuff("ABCDEF", 0, 30, "xyz") , "xyz" )
TEST_LINE( Stuff("ABCDEF", 1, -5, "xyz") , "xyz" )
TEST_LINE( Stuff("ABCDEF", 1, -2, "xyz") , "xyz" )
TEST_LINE( Stuff("ABCDEF", 1, 0, "xyz") , "xyzABCDEF" )
TEST_LINE( Stuff("ABCDEF", 1, 10, "xyz") , "xyz" )
TEST_LINE( Stuff("ABCDEF", 1, 30, "xyz") , "xyz" )
TEST_LINE( Stuff("ABCDEF", 2, 0, "xyz") , "AxyzBCDEF" )
TEST_LINE( Stuff("ABCDEF", 2, 3, "" ) , "AEF" )
TEST_LINE( Stuff("ABCDEF", 2, 3, "xyz") , "AxyzEF" )
TEST_LINE( Stuff("ABCDEF", 2, 2, "") , "ADEF" )
TEST_LINE( Stuff("ABCDEF", 2, -5, "xyz") , "Axyz" )
TEST_LINE( Stuff("ABCDEF", 2, -2, "xyz") , "Axyz" )
TEST_LINE( Stuff("ABCDEF", 2, 1, "xyz") , "AxyzCDEF" )
TEST_LINE( Stuff("ABCDEF", 2, 4, "xyz") , "AxyzF" )
TEST_LINE( Stuff("ABCDEF", 2, 10, "xyz") , "Axyz" )
TEST_LINE( Stuff("ABCDEF", 2, 30, "xyz") , "Axyz" )
TEST_LINE( Stuff("ABCDEF", 30, -5, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", 30, -2, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", 30, 0, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", 30, 10, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff("ABCDEF", 30, 30, "xyz") , "ABCDEFxyz" )
TEST_LINE( Stuff(@scString , 2, 3, "xyz") , "HxyzO" )
TEST_LINE( Stuff("ABC"+Chr(0)+"EF", 2, 3, "xyz") , "AxyzEF" )
TEST_LINE( Stuff("ABCE"+Chr(0)+"F", 2, 3, "xyz") , "Axyz"+Chr(0)+"F" )
TEST_LINE( Stuff("ABC"+Chr(0)+"EF", 2, 3, "x"+Chr(0)+"z") , "Ax"+Chr(0)+"zEF" )
RETURN NIL
/* Don't change the position of this #include. */
#include "rt_init.ch"
Reference in New Issue View Git Blame Copy Permalink