Add test for rolling-map

diff --git a/basis/sequences/windowed/windowed-tests.factor b/basis/sequences/windowed/windowed-tests.factor
index d6b936c58acc21cfcac983ded9550a30ed4682d0..f8c8881aabeba5d5bd7324c87dd4ec3ac28fd58b 100644 (file)
--- a/basis/sequences/windowed/windowed-tests.factor
+++ b/basis/sequences/windowed/windowed-tests.factor
@@ -5,6 +5,9 @@ USING: arrays sequences sequences.windowed tools.test ;
 { { { 1 } { 1 2 } { 1 2 3 } { 2 3 4 } { 3 4 5 } { 4 5 6 } } }
 [ { 1 2 3 4 5 6 } 3 <windowed-sequence> [ >array ] map ] unit-test
 
+{ { { 1 } { 1 2 } { 1 2 3 } { 2 3 4 } { 3 4 5 } { 4 5 6 } } }
+[ { 1 2 3 4 5 6 } 3 [ >array ] rolling-map ] unit-test
+
 { 6 }
 [ { 1 2 3 4 5 6 } 3 <windowed-sequence> length ] unit-test