sequences: adding reject/reject-as/reject!.

[factor.git] / core / sequences / sequences-tests.factor

diff --git a/core/sequences/sequences-tests.factor b/core/sequences/sequences-tests.factor
index 5b05b4ef30d1573f0c285c581b133e576a99c5c5..c97a5a5c689b61db93c8a2c35605a7015f6cc724 100644 (file)
--- a/core/sequences/sequences-tests.factor
+++ b/core/sequences/sequences-tests.factor
@@ -117,6 +117,8 @@ IN: sequences.tests
 { t } [ B{ 0 } { 1 } append byte-array? ] unit-test
 { t } [ B{ 0 } { 1 } prepend byte-array? ] unit-test
 
+{ "0123456789" } [ 58 iota [ 48 < ] "" reject-as ] unit-test
+
 [ [ ]       ] [ 1 [ ]           remove ] unit-test
 [ [ ]       ] [ 1 [ 1 ]         remove ] unit-test
 [ [ 3 1 1 ] ] [ 2 [ 3 2 1 2 1 ] remove ] unit-test
@@ -152,6 +154,8 @@ IN: sequences.tests
 [ 4 [ CHAR: a <string> ] { } map-integers ]
 unit-test
 
+{ V{ 1 3 5 7 9 } } [ 10 iota >vector [ even? ] reject! ] unit-test
+
 [ V{ } ] [ "f" V{ } clone remove! ] unit-test
 [ V{ } ] [ "f" V{ "f" } clone remove! ] unit-test
 [ V{ } ] [ "f" V{ "f" "f" } clone remove! ] unit-test