From 7aea2ec62ce089c1865d0637f87dbf5c96a878a6 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Tue, 24 Jun 2008 18:07:41 -0500 Subject: [PATCH] combinators.lib tests: minor update --- extra/combinators/lib/lib-tests.factor | 29 -------------------------- 1 file changed, 29 deletions(-) diff --git a/extra/combinators/lib/lib-tests.factor b/extra/combinators/lib/lib-tests.factor index 78916bb027..680e3220b0 100755 --- a/extra/combinators/lib/lib-tests.factor +++ b/extra/combinators/lib/lib-tests.factor @@ -23,35 +23,6 @@ IN: combinators.lib.tests { "oof" "bar" } { [ reverse ] [ "x" swap "x" 3append ] } parallel-call ] unit-test -! && - -[ t ] [ - 3 { - [ dup number? ] [ dup odd? ] [ dup 0 > ] - } 0&& nip -] unit-test - -[ f ] [ - 3 { - [ dup number? ] [ dup even? ] [ dup 0 > ] - } 0&& nip -] unit-test - -! || - -[ t ] [ - 4 { - [ dup array? ] [ dup number? ] [ 3 throw ] - } 0|| nip -] unit-test - -[ f ] [ - 4 { - [ dup array? ] [ dup vector? ] [ dup float? ] - } 0|| nip -] unit-test - - { 1 1 } [ [ even? ] [ drop 1 ] [ drop 2 ] ifte ] must-infer-as