sequences.extras: adding map-if

[factor.git] / extra / sequences / extras / extras-tests.factor

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 38455fb4489782d679d08520f7d954b786d95b2c..23100570db780b35718c39ff7d5eee51456b7212 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -294,3 +294,5 @@ tools.test vectors vocabs ;
 { { } } [
     { } [ nip ] map-with-previous
 ] unit-test
+
+{ { -1 2 -3 4 -5 } } [ { 1 2 3 4 5 } [ odd? ] [ neg ] map-if ] unit-test