From d00e986b3d57ed3db0e9fdcc00a457c0178ebbb7 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 11 May 2016 14:18:48 -0700 Subject: [PATCH] combinators.extras: fix unit tests. --- extra/combinators/extras/extras-tests.factor | 18 +++--------------- 1 file changed, 3 insertions(+), 15 deletions(-) diff --git a/extra/combinators/extras/extras-tests.factor b/extra/combinators/extras/extras-tests.factor index 51019a4b7e..3a34f4f7d0 100644 --- a/extra/combinators/extras/extras-tests.factor +++ b/extra/combinators/extras/extras-tests.factor @@ -35,18 +35,6 @@ IN: combinators.extras.tests { "123" "1" } [ "1" "123" [ length ] [ < ] swap-when ] unit-test -{ t } [ "resource:" [ exists? ] 1arg >boolean ] unit-test -{ f } [ f [ exists? ] 1arg ] unit-test -{ f } [ "/homeasdfasdf123123" [ exists? ] 1arg ] unit-test - - - - -{ f f } [ f f 2 n-falsify ] unit-test -{ f f } [ 100 200 2 n-falsify ] unit-test - -{ f f } [ 100 f f 2 n-falsify-unless ] unit-test -{ f f } [ 100 200 f 2 n-falsify-unless ] unit-test - -{ 100 f } [ 100 f t 2 n-falsify-unless ] unit-test -{ 100 200 } [ 100 200 t 2 n-falsify-unless ] unit-test \ No newline at end of file +{ t } [ "resource:" [ exists? ] ?1arg >boolean ] unit-test +{ f } [ f [ exists? ] ?1arg ] unit-test +{ f } [ "/homeasdfasdf123123" [ exists? ] ?1arg ] unit-test