combinators.lib-tests: update some tests
parent
b6a262b625
commit
911b7cb447
|
@ -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
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue