31135713b8
* contrib/gtwvg/class.prg
* contrib/gtwvg/paint.prg
* contrib/gtwvg/parthdlr.prg
* contrib/gtwvg/statbar.prg
* contrib/gtwvg/tests/_dyndlgs.prg
* contrib/gtwvg/tests/_modal.prg
* contrib/gtwvg/tests/_tbrowse.prg
* contrib/gtwvg/tests/_utils.prg
* contrib/gtwvg/tests/_wvtcls.prg
* contrib/gtwvg/tests/_xbp.prg
* contrib/gtwvg/tests/demowvg.prg
* contrib/gtwvg/tests/demowvg1.prg
* contrib/gtwvg/tests/demoxbp.prg
* contrib/gtwvg/toolbar.prg
* contrib/gtwvg/wnd.prg
* contrib/hbamf/issues.txt
* contrib/hbamf/readme.txt
* contrib/hbblink/hbblink.ch
* contrib/hbct/ct.ch
* contrib/hbct/ctcom.ch
* contrib/hbct/ctrand.prg
* contrib/hbct/cttime.prg
* contrib/hbct/doc/en/addascii.txt
* contrib/hbct/doc/en/ctmath2.txt
* contrib/hbct/doc/en/ctstr.txt
* contrib/hbct/doc/en/dattime2.txt
* contrib/hbct/doc/en/finan.txt
* contrib/hbct/doc/en/ftoc.txt
* contrib/hbct/doc/en/misc1.txt
* contrib/hbct/doc/en/trig.txt
* contrib/hbct/fcopy.prg
* contrib/hbct/getinfo.prg
* contrib/hbct/getinput.prg
* contrib/hbct/getsecrt.prg
* contrib/hbct/keysave.prg
* contrib/hbct/keysec.prg
* contrib/hbct/keytime.prg
* contrib/hbct/readme.txt
* contrib/hbct/screen3.prg
* contrib/hbct/scrmark.prg
* contrib/hbct/showtime.prg
* contrib/hbct/tempfile.prg
* contrib/hbformat/utils/hbformat.prg
* contrib/hbfship/isdb.prg
* contrib/hbgd/gdimage.prg
* contrib/hbgd/tests/gdtestcl.prg
* contrib/hbgd/tests/test_out.prg
* contrib/hbgd/tests/tostring.prg
* contrib/hbgt/doc/en/hbgt.txt
* contrib/hbgt/tests/test.prg
* contrib/hbhpdf/tests/harupdf.prg
* contrib/hbhttpd/tests/carts.dbf
* contrib/hbhttpd/tests/items.dbf
* contrib/hbhttpd/tests/users.dbf
* contrib/hbmisc/doc/en/dates2.txt
* contrib/hbmisc/fcomma.prg
* contrib/hbmisc/stringp.prg
* contrib/hbmisc/tests/testhbf.prg
* contrib/hbmisc/udpds.prg
* contrib/hbmxml/tests/custom.prg
* contrib/hbmysql/diff-en.txt
* contrib/hbmysql/diff-es.txt
* contrib/hbmysql/tmysql.prg
* contrib/hbnetio/netiomt.prg
* contrib/hbnetio/utils/hbnetio/netiomgm.hb
* contrib/hbnf/adapter.prg
* contrib/hbnf/aredit.prg
* contrib/hbnf/clrsel.prg
* contrib/hbnf/default.prg
* contrib/hbnf/dispmsg.prg
* contrib/hbnf/floptst.prg
* contrib/hbnf/ftint86.ch
* contrib/hbnf/ftmenuto.ch
* contrib/hbnf/lastday.prg
* contrib/hbnf/linked.prg
* contrib/hbnf/menuto.prg
* contrib/hbnf/metaph.prg
* contrib/hbnf/nwsem.prg
* contrib/hbnf/ontick.prg
* contrib/hbnf/pegs.prg
* contrib/hbnf/popadder.prg
* contrib/hbnf/savesets.prg
* contrib/hbnf/sinkey.prg
* contrib/hbnf/tbwhile.prg
* contrib/hbnf/tempfile.prg
* contrib/hbnf/vidcur.prg
* contrib/hbnf/video2.prg
* contrib/hbnf/woy.prg
* contrib/hbodbc/tests/testodbc.prg
* contrib/hbodbc/todbc.prg
* contrib/hbpgsql/postgres.ch
* contrib/hbtip/encoder.prg
* contrib/hbtip/thtml.prg
* contrib/hbtpathy/tests/testtp.prg
* contrib/hbwin/tests/dlg.prg
* contrib/hbwin/tests/olesrv1.prg
* contrib/hbwin/tests/olesrv3.prg
* contrib/hbwin/tests/olesrv4.prg
* contrib/hbwin/tests/oletst4.prg
* contrib/hbwin/tests/testprn.prg
* contrib/hbwin/win_tbmp.prg
* contrib/hbxpp/browdbx.prg
* contrib/hbxpp/runshell.prg
* contrib/hbxpp/tthreadx.prg
* contrib/hbxpp/typefilx.prg
* contrib/hbxpp/xppop.prg
* contrib/rddads/doc/en/adsfuncs.txt
* contrib/rddads/doc/en/readme.txt
* contrib/rddads/tests/datad.prg
* contrib/rddsql/readme.txt
* contrib/xhb/cstruct.prg
* contrib/xhb/dirrec.prg
* contrib/xhb/diskhb.prg
* contrib/xhb/hbcompat.ch
* contrib/xhb/hbcomprs.prg
* contrib/xhb/hterrsys.prg
* contrib/xhb/htjlist.prg
* contrib/xhb/htmutil.prg
* contrib/xhb/stream.prg
* contrib/xhb/tcgi.prg
* contrib/xhb/thtm.prg
* contrib/xhb/ttable.prg
* contrib/xhb/txml.prg
* contrib/xhb/xcstr.prg
* contrib/xhb/xhberr.prg
* contrib/xhb/xhbmemo.prg
* contrib/xhb/xhbtedit.prg
* contrib/xhb/xhbver.prg
* doc/cmpopt.txt
* extras/gfspell/spell.ng
* extras/gfspell/spell.prg
* extras/gfspell/words.dbf
* extras/gtwvw/docs/funclist.txt
* extras/gtwvw/docs/whatsnew.txt
* extras/gtwvw/tests/_wvwmous.prg
* extras/gtwvw/tests/cbtest6.prg
* extras/gtwvw/tests/drawimg.prg
* extras/gtwvw/tests/ebtest7.prg
* extras/gtwvw/tests/inpfocus.prg
* extras/gtwvw/tests/maximize.prg
* extras/gtwvw/tests/prog0.prg
* extras/gtwvw/tests/prog1.prg
* extras/gtwvw/tests/prog2.prg
* extras/gtwvw/tests/wvwtest9.prg
* extras/gtwvw/wvt2wvw.ch
* extras/guestbk/guestbk.prg
* extras/hbdoc/tmplates.prg
* extras/hbvpdf/core.prg
* extras/httpsrv/cgifunc.prg
* extras/httpsrv/cookie.prg
* extras/httpsrv/session.prg
* extras/httpsrv/uhttpd.prg
* extras/rddado/adordd.ch
* extras/rddado/adordd.prg
* include/set.ch
* src/debug/debugger.prg
* src/rdd/dbfuncs.prg
* src/rdd/dbjoin.prg
* src/rdd/dblist.prg
* src/rdd/dbsort.prg
* src/rdd/dbstrux.prg
* src/rdd/dbstruxu.prg
* src/rdd/dbtotal.prg
* src/rdd/dbupdat.prg
* src/rdd/hbsix/sxcompat.prg
* src/rdd/hbsix/sxini.prg
* src/rdd/hbsix/sxtrig.prg
* src/rdd/usrrdd/rdds/arrayrdd.prg
* src/rdd/usrrdd/rdds/logrdd.prg
* src/rdd/usrrdd/rdds/rlcdx.prg
* src/rtl/achoice.prg
* src/rtl/adir.prg
* src/rtl/alert.prg
* src/rtl/altd.prg
* src/rtl/browdb.prg
* src/rtl/dbedit.prg
* src/rtl/devoutp.prg
* src/rtl/dircmd.prg
* src/rtl/hbi18n2.prg
* src/rtl/input.prg
* src/rtl/libname.prg
* src/rtl/listbox.prg
* src/rtl/memvarbl.prg
* src/rtl/radiobhb.prg
* src/rtl/readkey.prg
* src/rtl/readvar.prg
* src/rtl/setfunc.prg
* src/rtl/setta.prg
* src/rtl/tbrowse.prg
* src/rtl/teditor.prg
* src/rtl/text.prg
* src/rtl/tget.prg
* src/rtl/tgetlist.prg
* src/rtl/tobject.prg
* src/rtl/typefile.prg
* src/rtl/valtoexp.prg
* src/rtl/wait.prg
* src/vm/harbinit.prg
* tests/ac_test.prg
* tests/ac_test2.prg
* tests/adirtest.prg
* tests/aliaslck.prg
* tests/bldtest/bldtest.c
* tests/clsnv.prg
* tests/codebl.prg
* tests/debugtst.prg
* tests/devtest.prg
* tests/disptest.prg
* tests/gtcolors.prg
* tests/gtkeys.prg
* tests/gtwin.prg
* tests/gtxfnt.prg
* tests/inkeytst.prg
* tests/linecont.prg
* tests/mathtest.prg
* tests/memvar.prg
* tests/newrdd.prg
* tests/output.prg
* tests/readhrb.prg
* tests/seconds.prg
* tests/set_test.prg
* tests/tb1.prg
* tests/testdyn.prg
* tests/testdyn1.prg
* tests/testhrb.prg
* tests/testhtml.prg
* tests/testidle.prg
* tests/testpre.prg
* tests/testrdd2.prg
* tests/testsha1.prg
* tests/teststr.prg
* tests/ticktime.prg
* tests/transtst.prg
* tests/tstcolor.prg
* tests/tstdbi.prg
* tests/tstmacro.prg
* tests/uc16_gen.prg
* tests/usrrdd/exarr.prg
* tests/usrrdd/exlog.prg
* tests/utf8at.prg
* tests/version.prg
* tests/videotst.prg
* tests/vidtest.prg
* tests/wvtext.prg
* utils/hbmk2/hbmk2.prg
* utils/hbtest/hbtest.prg
* utils/hbtest/rt_class.prg
* utils/hbtest/rt_date.prg
* utils/hbtest/rt_hvm.prg
* utils/hbtest/rt_hvma.prg
* 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
* run case fixer script on all non-C file
except some certain files, which I routinely
skip when formatting.
* minor manual cleanups along the way
538 lines
26 KiB
Plaintext
538 lines
26 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Regression tests for the runtime library (strings)
|
|
*
|
|
* Copyright 1999-2001 Viktor Szakats (harbour syenar.net)
|
|
* www - http://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"
|
|
|
|
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" )
|
|
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" )
|
|
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" )
|
|
#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" )
|
|
#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) , "********" )
|
|
#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" )
|
|
#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" )
|
|
#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" )
|
|
#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" )
|
|
#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" )
|
|
#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) , "********" )
|
|
#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" )
|
|
#endif
|
|
|
|
RETURN
|
|
|
|
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. )
|
|
|
|
Set( _SET_EXACT, old_exact )
|
|
RETURN
|
|
|
|
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. )
|
|
|
|
Set( _SET_EXACT, old_exact )
|
|
|
|
RETURN
|
|
|
|
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." )
|
|
|
|
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 ) , "" )
|
|
|
|
#endif
|
|
|
|
RETURN
|
|
|
|
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 ) )
|
|
|
|
RETURN
|
|
|
|
/* Don't change the position of this #include. */
|
|
#include "rt_init.ch"
|