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

combinators.lib-tests: update some tests

db4
Eduardo Cavazos 2008-06-10 09:02:23 -05:00
parent b6a262b625
commit 911b7cb447
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,13 +28,13 @@ IN: combinators.lib.tests
[ t ] [ [ t ] [
3 { 3 {
[ dup number? ] [ dup odd? ] [ dup 0 > ] [ dup number? ] [ dup odd? ] [ dup 0 > ]
} && nip } 0&& nip
] unit-test ] unit-test
[ f ] [ [ f ] [
3 { 3 {
[ dup number? ] [ dup even? ] [ dup 0 > ] [ dup number? ] [ dup even? ] [ dup 0 > ]
} && nip } 0&& nip
] unit-test ] unit-test
! || ! ||
@ -42,13 +42,13 @@ IN: combinators.lib.tests
[ t ] [ [ t ] [
4 { 4 {
[ dup array? ] [ dup number? ] [ 3 throw ] [ dup array? ] [ dup number? ] [ 3 throw ]
} || nip } 0|| nip
] unit-test ] unit-test
[ f ] [ [ f ] [
4 { 4 {
[ dup array? ] [ dup vector? ] [ dup float? ] [ dup array? ] [ dup vector? ] [ dup float? ]
} || nip } 0|| nip
] unit-test ] unit-test