X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fsequences%2Fextras%2Fextras-tests.factor;h=185ad060df52977eb490a47701259234c79bb716;hp=23100570db780b35718c39ff7d5eee51456b7212;hb=7ce33839919485fa70f2ac825543a73bbb27725c;hpb=46a70cb9022b0b2f381a218ab2a2ae30774df277

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 23100570db..185ad060df 100644
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -296,3 +296,7 @@ tools.test vectors vocabs ;
 ] unit-test
 
 { { -1 2 -3 4 -5 } } [ { 1 2 3 4 5 } [ odd? ] [ neg ] map-if ] unit-test
+
+{ { { 100 0 } { 200 1 } { 300 2 } { 400 3 } } } [
+    { 100 200 300 400 } <zip-index> >array
+] unit-test