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

combinators.lib tests: minor update

db4
Eduardo Cavazos 2008-06-24 18:07:41 -05:00
parent bf238283da
commit 7aea2ec62c
1 changed files with 0 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
extra/combinators/lib/lib-tests.factor
View File

@ -23,35 +23,6 @@ IN: combinators.lib.tests
{ "oof" "bar" } { [ reverse ] [ "x" swap "x" 3append ] } parallel-call { "oof" "bar" } { [ reverse ] [ "x" swap "x" 3append ] } parallel-call
] unit-test ] unit-test
! &&
[ t ] [
3 {
[ dup number? ] [ dup odd? ] [ dup 0 > ]
} 0&& nip
] unit-test
[ f ] [
3 {
[ dup number? ] [ dup even? ] [ dup 0 > ]
} 0&& nip
] unit-test
! ||
[ t ] [
4 {
[ dup array? ] [ dup number? ] [ 3 throw ]
} 0|| nip
] unit-test
[ f ] [
4 {
[ dup array? ] [ dup vector? ] [ dup float? ]
} 0|| nip
] unit-test
{ 1 1 } [ { 1 1 } [
[ even? ] [ drop 1 ] [ drop 2 ] ifte [ even? ] [ drop 1 ] [ drop 2 ] ifte
] must-infer-as ] must-infer-as