fcc1abdd18
* tests/ac_test2.prg
* tests/adirtest.prg
* tests/ainstest.prg
* tests/altdtest.prg
* tests/and_or.prg
* tests/array16.prg
* tests/arrayidx.prg
* tests/arrays.prg
* tests/arreval.prg
* tests/arrindex.prg
* tests/atest.prg
* tests/box.prg
* tests/boxtst2.prg
* tests/byref.prg
* tests/calling.prg
* tests/clasinit.prg
* tests/clasname.prg
* tests/classch.prg
* tests/classes.prg
* tests/clsdata.prg
* tests/cmphello.prg
* tests/codebl.prg
* tests/codebloc.prg
* tests/comments.prg
* tests/curdirt.prg
* tests/db_brows.prg
* tests/dbevalts.prg
* tests/docase.prg
* tests/dosshell.prg
* tests/dupvars.prg
* tests/dynobj.prg
* tests/dynsym.prg
* tests/exittest.prg
* tests/extend1.prg
* tests/exthrb.prg
* tests/fib.prg
* tests/fornext.prg
* tests/fortest.prg
* tests/funcarr.prg
* tests/gfx.prg
* tests/gtchars.prg
* tests/gtcolors.prg
* tests/gtkeys.prg
* tests/hello.prg
* tests/ifelse.prg
* tests/inherit.prg
* tests/inhprob.prg
* tests/inifiles.prg
* tests/initexit.prg
* tests/inline.prg
* tests/iotest.prg
* tests/iotest2.prg
* tests/keywords.prg
* tests/langmsg.prg
* tests/linecont.prg
* tests/lnlenli1.prg
* tests/lnlenli2.prg
* tests/longdev.prg
* tests/longstr.prg
* tests/longstr2.prg
* tests/mathtest.prg
* tests/memfile.prg
* tests/memory.prg
* tests/readhrb.prg
* tests/rto_get.prg
* tests/rto_tb.prg
* tests/scroll.prg
* tests/seconds.prg
* tests/set_test.prg
* tests/speedold.prg
* tests/stripem.prg
* tests/t1.prg
* tests/test_all.prg
* tests/testbrw.prg
* tests/testhtml.prg
* tests/testid.prg
* tests/testpre.prg
* tests/testwarn.prg
* tests/ticktime.prg
* tests/tstchbx.prg
* tests/tstmacro.prg
* tests/tstprag.prg
* tests/vec1.prg
* tests/videotst.prg
* tests/vidtest.prg
* cleaning up tests (roughly complete)
96 lines
3.0 KiB
Plaintext
96 lines
3.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "hbmath.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL nOldMathErrMode
|
|
LOCAL bOldMathErr
|
|
|
|
QOut( "Testing math function: EXP(), LOG() and SQRT():" )
|
|
QOut( "" )
|
|
QOut( " I) Test with correct arguments:" )
|
|
QOut( " exp(0.0) == 1.00 ? ", Exp( 0.0 ) )
|
|
QOut( " exp(1.0) == 2.71(8)... ? ", Exp( 1.0 ) )
|
|
QOut( " exp(-1.0) == 0.36(7)... ? ", Exp( - 1.0 ) )
|
|
QOut( "" )
|
|
QOut( " log(1.0) == 0.00 ? ", Log( 1.0 ) )
|
|
QOut( " log(2.7) == 0.99(3)... ? ", Log( 2.7 ) )
|
|
QOut( " log(0.36) == -1.02(1)... ? ", Log( 0.36 ) )
|
|
QOut( "" )
|
|
QOut( " sqrt(1.0) == 1.00 ? ", Sqrt( 1.0 ) )
|
|
QOut( " sqrt(4.0) == 2.00 ? ", Sqrt( 4.0 ) )
|
|
QOut( " sqrt(2.0) == 1.41(4).. ? ", Sqrt( 2.0 ) )
|
|
QOut( "" )
|
|
QOut( " II) Test with numeric but incorrect arguments:" )
|
|
QOut( "" )
|
|
QOut( " IIa) default error handling(by the functions themselves)" )
|
|
QOut( " exp(-1000) == 0.00 ?", Exp( - 1000 ) )
|
|
QOut( " exp(1000) == ****... ?", Exp( 1000 ) )
|
|
QOut( "" )
|
|
QOut( " log(0) == ****... ?", Log( 0 ) )
|
|
QOut( " log(-10) == *****... ?", Log( - 10 ) )
|
|
QOut( "" )
|
|
QOut( " sqrt(-4) == 0.00 ?", Sqrt( - 4 ) )
|
|
QOut( "" )
|
|
|
|
nOldMathErrMode := hb_matherMode( HB_MATH_ERRMODE_USERDEFAULT )
|
|
|
|
QOut( " IIb) error handling by error(hb_MathErMode() == HB_MATH_ERRMODE_USERDEFAULT)" )
|
|
QOut( " exp(-1000) == 0.00 ?", Exp( - 1000 ) )
|
|
QOut( " exp(1000) == ****... ?", Exp( 1000 ) )
|
|
QOut( "" )
|
|
QOut( " log(0) == ****... ?", Log( 0 ) )
|
|
QOut( " log(-10) == *****... ?", Log( - 10 ) )
|
|
QOut( "" )
|
|
QOut( " sqrt(-4) == 0.00 ?", Sqrt( - 4 ) )
|
|
QOut( "" )
|
|
|
|
hb_matherMode( nOldMathErrMode )
|
|
|
|
bOldMathErr := hb_matherBlock( {| nType, cFuncname, cError, nArg1, nArg2, aInfo |;
|
|
localmatherr( nType, cFuncname, cError, nArg1, nArg2, aInfo ) } )
|
|
|
|
QOut( " IIc) error handling by callback block(hb_MathErBlock())" )
|
|
QOut( " exp(-1000) == ?", Exp( - 1000 ) )
|
|
QOut( " exp(1000) == ?", Exp( 1000 ) )
|
|
QOut( "" )
|
|
QOut( " log(0) == ?", Log( 0 ) )
|
|
QOut( " log(-10) == ?", Log( - 10 ) )
|
|
QOut( "" )
|
|
QOut( " sqrt(-4) == ?", Sqrt( - 4 ) )
|
|
|
|
hb_matherBlock( bOldMathErr )
|
|
|
|
RETURN
|
|
|
|
FUNCTION localmatherr( nType, cFuncname, cError, nArg1, nArg2, aInfo )
|
|
|
|
LOCAL cStr := "!! Local handling of math error MATH/"
|
|
|
|
cStr += AllTrim( Str( nType ) ) + " in " + cFuncname + "("
|
|
|
|
IF ValType( nArg1 ) == "N"
|
|
cStr += AllTrim( Str( nArg1 ) )
|
|
ENDIF
|
|
IF ValType( nArg2 ) == "N"
|
|
cStr += "," + AllTrim( Str( nArg2 ) )
|
|
ENDIF
|
|
cStr += "):"
|
|
QOut( cStr )
|
|
QOut( "!! " + cError )
|
|
IF aInfo[HB_MATHERRORBLOCK_HANDLED]
|
|
QOut( "!! --> already handled with return value: " + ;
|
|
AllTrim( Str( aInfo[HB_MATHERRORBLOCK_RETVAL] ) ) )
|
|
RETURN 1
|
|
ENDIF
|
|
|
|
QOut( "!! setting return value to --> 5.0" )
|
|
|
|
aInfo[ HB_MATHERRORBLOCK_RETVAL ] := 5.0
|
|
aInfo[ HB_MATHERRORBLOCK_HANDLED ] := .T.
|
|
|
|
RETURN 1
|