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

View File

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