sequences: adding a test for map-index change.

diff --git a/core/sequences/sequences-tests.factor b/core/sequences/sequences-tests.factor
index 4528ff6d26ae6db207e8c56216792425abb61431..bc88d8c02e81977d25673aef9bb37f811e383a8a 100644 (file)
--- a/core/sequences/sequences-tests.factor
+++ b/core/sequences/sequences-tests.factor
@@ -414,6 +414,8 @@ M: bogus-hashcode hashcode* 2drop 0 >bignum ;
 { { 0 } } [ 1 0 <repetition> >array ] unit-test
 { { 0 0 0 } } [ 3 0 <repetition> >array ] unit-test
 
+{ "ABCD" } [ "AAAA" [ + ] map-index ] unit-test
+
 {
     { 11 23 35 }
 } [ { 11 22 33 } [ + ] map-index ] unit-test