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

factor · Jul 23, 2017 · 0ac181c · 0ac181c
1 parent 49b0101
commit 0ac181c
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/basis/math/functions/functions-tests.factor b/basis/math/functions/functions-tests.factor
@@ -82,16 +82,16 @@ CONSTANT: log10-factorial-1000 0x1.40f3593ed6f8ep11
 { 4.0 } [ 10000.0 log10 ] unit-test
 { $ log10-factorial-1000 t } [ 1000 factorial [ log10 ] [ bignum? ] bi ] unit-test
 
-{ e 1.e-10 } [ 1 e^ ] unit-test~
-{ 0/0. 1.e-10 } [ 1 e^ ] 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 e^ 0/0. 1.e-10 ~ ] unit-test
+{ f } [ 0/0. 1 e^ 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 } [ 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.0 cosh ] unit-test
 { 0.0 } [ 1 acosh ] unit-test

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