steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.test: Fix unit-test~ and a couple of tests.

modern-harvey2
Doug Coleman 2017-07-23 11:50:52 -05:00
parent 49b01011c7
commit 0ac181c797
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/math/functions/functions-tests.factor
View File

@ -82,16 +82,16 @@ CONSTANT: log10-factorial-1000 0x1.40f3593ed6f8ep11
{ 4.0 } [ 10000.0 log10 ] unit-test { 4.0 } [ 10000.0 log10 ] unit-test
{ $ log10-factorial-1000 t } [ 1000 factorial [ log10 ] [ bignum? ] bi ] unit-test { $ log10-factorial-1000 t } [ 1000 factorial [ log10 ] [ bignum? ] bi ] unit-test
{ e 1.e-10 } [ 1 e^ ] unit-test~ { f } [ 1 e^ 0/0. 1.e-10 ~ ] unit-test
{ 0/0. 1.e-10 } [ 1 e^ ] unit-test~ { f } [ 0/0. 1 e^ 1.e-10 ~ ] unit-test
{ 1.e-10 } [ 0/0. 1 e^ ] unit-test~
{ e 1.e-10 } [ 1.0 e^ ] unit-test~
{ 1.0 1.e-10 } [ -1 e^ e * ] unit-test~
{ f } [ 1/0. 1/0. 1.e-10 ~ ] unit-test { f } [ 1/0. 1/0. 1.e-10 ~ ] unit-test
{ f } [ 1/0. -1/0. 1.e-10 ~ ] unit-test { f } [ 1/0. -1/0. 1.e-10 ~ ] unit-test
{ f } [ 1/0. 0/0. 1.e-10 ~ ] unit-test { f } [ 1/0. 0/0. 1.e-10 ~ ] unit-test
{ f } [ 0/0. -1/0. 1.e-10 ~ ] unit-test { f } [ 0/0. -1/0. 1.e-10 ~ ] unit-test
{ e 1.e-10 } [ 1 e^ ] unit-test~
{ 1.0 1.e-10 } [ -1 e^ e * ] unit-test~
{ 1.0 } [ 0 cosh ] unit-test { 1.0 } [ 0 cosh ] unit-test
{ 1.0 } [ 0.0 cosh ] unit-test { 1.0 } [ 0.0 cosh ] unit-test
{ 0.0 } [ 1 acosh ] unit-test { 0.0 } [ 1 acosh ] unit-test

2
basis/tools/test/test.factor
View File

@ -67,7 +67,7 @@ SYMBOL: current-test-file
: (unit-test-comparator) ( output input comparator -- error/f failed? tested? ) : (unit-test-comparator) ( output input comparator -- error/f failed? tested? )
swapd '[ swapd '[
{ } _ with-datastack { } _ with-datastack
_ >quotation _ compose with-datastack f _ >quotation _ compose with-datastack first dup not
] [ t ] recover t ; inline ] [ t ] recover t ; inline
: (unit-test~) ( output input -- error/f failed? tested? ) : (unit-test~) ( output input -- error/f failed? tested? )