Add unit test for ifte

2008-03-21 17:48:01 -05:00 · 2008-03-21 17:48:01 -05:00 · 8d7ccf2596
parent ea95cc017e
commit 8d7ccf2596
1 changed files with 5 additions and 0 deletions
--- a/extra/combinators/lib/lib-tests.factor
+++ b/extra/combinators/lib/lib-tests.factor
@ -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