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
534 lines
32 KiB
Plaintext
534 lines
32 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Regression tests for the runtime library (math)
|
|
*
|
|
* 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_MATH()
|
|
|
|
LOCAL l, s, o
|
|
MEMVAR s0, s1, v2
|
|
PRIVATE s0 := "V2", s1 := "V", v2
|
|
|
|
/* 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" )
|
|
#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" */
|
|
#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" )
|
|
#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" */
|
|
#endif
|
|
TEST_LINE( Str(Sqrt(4),21,18) , " 2.000000000000000000" )
|
|
TEST_LINE( Str(Sqrt(3),21,18) , " 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" )
|
|
#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" */
|
|
#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 )
|
|
|
|
/* 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" )
|
|
#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" */
|
|
#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" )
|
|
|
|
/* Round() */
|
|
|
|
TEST_LINE( Round(snDoubleP, snIntZ) , 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" */
|
|
#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 )
|
|
|
|
/* 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 )
|
|
#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" */
|
|
#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 )
|
|
|
|
/* 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 )
|
|
#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" */
|
|
#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 )
|
|
#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" */
|
|
#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
|
|
|
|
/* 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 )
|
|
|
|
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" )
|
|
|
|
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" )
|
|
|
|
/* <OP>assign and (pre/post)(inc/dec)rementation */
|
|
o:=errornew()
|
|
o:oscode := 1
|
|
TEST_LINE( o:oscode , 1 )
|
|
o:oscode++
|
|
TEST_LINE( o:oscode , 2 )
|
|
TEST_LINE( o:oscode++ , 2 )
|
|
++o:oscode
|
|
TEST_LINE( o:oscode , 4 )
|
|
TEST_LINE( ++o:oscode , 5 )
|
|
o:oscode+=10
|
|
TEST_LINE( o:oscode , 15 )
|
|
TEST_LINE( o:oscode+=200 , 215 )
|
|
|
|
l := 1
|
|
TEST_LINE( l , 1 )
|
|
l++
|
|
TEST_LINE( l , 2 )
|
|
TEST_LINE( l++ , 2 )
|
|
++l
|
|
TEST_LINE( l , 4 )
|
|
TEST_LINE( ++l , 5 )
|
|
l+=10
|
|
TEST_LINE( l , 15 )
|
|
TEST_LINE( l+=200 , 215 )
|
|
|
|
mnIntN := 1
|
|
TEST_LINE( mnIntN , 1 )
|
|
mnIntN++
|
|
TEST_LINE( mnIntN , 2 )
|
|
TEST_LINE( mnIntN++ , 2 )
|
|
++mnIntN
|
|
TEST_LINE( mnIntN , 4 )
|
|
TEST_LINE( ++mnIntN , 5 )
|
|
mnIntN+=10
|
|
TEST_LINE( mnIntN , 15 )
|
|
TEST_LINE( mnIntN+=200 , 215 )
|
|
|
|
snIntN := 1
|
|
TEST_LINE( snIntN , 1 )
|
|
snIntN++
|
|
TEST_LINE( snIntN , 2 )
|
|
TEST_LINE( snIntN++ , 2 )
|
|
++snIntN
|
|
TEST_LINE( snIntN , 4 )
|
|
TEST_LINE( ++snIntN , 5 )
|
|
snIntN+=10
|
|
TEST_LINE( snIntN , 15 )
|
|
TEST_LINE( snIntN+=200 , 215 )
|
|
|
|
#ifdef __HARBOUR__
|
|
|
|
o := ErrorNew()
|
|
s := "oscode"
|
|
o:&s := 1
|
|
TEST_LINE( o:&(s) , 1 )
|
|
o:&s++
|
|
TEST_LINE( o:&(s) , 2 )
|
|
TEST_LINE( o:&(s)++ , 2 )
|
|
++o:&s
|
|
TEST_LINE( o:&(s) , 4 )
|
|
TEST_LINE( ++o:&(s) , 5 )
|
|
o:&s+=10
|
|
TEST_LINE( o:&(s) , 15 )
|
|
TEST_LINE( o:&(s)+=200 , 215 )
|
|
|
|
WITH OBJECT ErrorNew()
|
|
:&(s) := 1
|
|
TEST_LINE( :&(s) , 1 )
|
|
:&(s)++
|
|
TEST_LINE( :&(s) , 2 )
|
|
TEST_LINE( :&(s)++ , 2 )
|
|
++:&(s)
|
|
TEST_LINE( :&(s) , 4 )
|
|
TEST_LINE( ++:&(s) , 5 )
|
|
:&(s)+=10
|
|
TEST_LINE( :&(s) , 15 )
|
|
TEST_LINE( :&(s)+=200 , 215 )
|
|
ENDWITH
|
|
|
|
WITH OBJECT ErrorNew()
|
|
:oscode := 1
|
|
TEST_LINE( :oscode , 1 )
|
|
:oscode++
|
|
TEST_LINE( :oscode , 2 )
|
|
TEST_LINE( :oscode++ , 2 )
|
|
++:oscode
|
|
TEST_LINE( :oscode , 4 )
|
|
TEST_LINE( ++:oscode , 5 )
|
|
:oscode+=10
|
|
TEST_LINE( :oscode , 15 )
|
|
TEST_LINE( :oscode+=200 , 215 )
|
|
ENDWITH
|
|
|
|
&s0 := 1
|
|
TEST_LINE( &s0 , 1 )
|
|
&s0++
|
|
TEST_LINE( &s0 , 2 )
|
|
TEST_LINE( &(s0)++ , 2 )
|
|
++&s0
|
|
TEST_LINE( &s0 , 4 )
|
|
TEST_LINE( ++&(s0) , 5 )
|
|
&s0+=10
|
|
TEST_LINE( &s0 , 15 )
|
|
TEST_LINE( &(s0)+=200 , 215 )
|
|
|
|
&s1.2 := 1
|
|
TEST_LINE( &s1.2 , 1 )
|
|
&s1.2++
|
|
TEST_LINE( &s1.2 , 2 )
|
|
TEST_LINE( &s1.2++ , 2 )
|
|
++&s1.2
|
|
TEST_LINE( &s1.2 , 4 )
|
|
TEST_LINE( ++&s1.2 , 5 )
|
|
&s1.2+=10
|
|
TEST_LINE( &s1.2 , 15 )
|
|
TEST_LINE( &s1.2+=200 , 215 )
|
|
|
|
#endif
|
|
|
|
RETURN
|
|
|
|
/* Don't change the position of this #include. */
|
|
#include "rt_init.ch"
|