Add unit test for ifte

db4
Slava Pestov 2008-03-21 17:48:01 -05:00
parent ea95cc017e
commit 8d7ccf2596
1 changed files with 5 additions and 0 deletions

View File

@ -46,3 +46,8 @@ IN: combinators.lib.tests
[ dup array? ] [ dup vector? ] [ dup float? ]
} || nip
] unit-test
{ 1 1 } [
[ even? ] [ drop 1 ] [ drop 2 ] ifte
] must-infer-as