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

combinators.extras: fix unit tests.

locals-and-roots
Doug Coleman 2016-05-11 14:18:48 -07:00
parent 5d116594e0
commit d00e986b3d
1 changed files with 3 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
extra/combinators/extras/extras-tests.factor
View File

@ -35,18 +35,6 @@ IN: combinators.extras.tests
{ "123" "1" } [ "1" "123" [ length ] [ < ] swap-when ] unit-test { "123" "1" } [ "1" "123" [ length ] [ < ] swap-when ] unit-test
{ t } [ "resource:" [ exists? ] 1arg >boolean ] unit-test { t } [ "resource:" [ exists? ] ?1arg >boolean ] unit-test
{ f } [ f [ exists? ] 1arg ] unit-test { f } [ f [ exists? ] ?1arg ] unit-test
{ f } [ "/homeasdfasdf123123" [ 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