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

add some unit tests for try-find

release
Doug Coleman 2010-01-28 23:12:31 -06:00
parent 4edc37b70c
commit 88e20af800
1 changed files with 120 additions and 108 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/continuations/continuations-tests.factor
View File

@ -106,3 +106,15 @@ SYMBOL: error-counter
[ { 4 } ] [ { 2 2 } [ + ] with-datastack ] unit-test [ { 4 } ] [ { 2 2 } [ + ] with-datastack ] unit-test
[ with-datastack ] must-infer [ with-datastack ] must-infer
[ { t 1 } ]
[ { 1 1 } [ odd? ] try-find 2array ] unit-test
[ { 9 3 } ]
[ { 3 3 } [ sq ] try-find 2array ] unit-test
[ { f f } ]
[ { 1 1 } [ even? ] try-find 2array ] unit-test
[ { f f } ]
[ { 1 1 } [ "error" throw ] try-find 2array ] unit-test