From: gifti258 <80504430+gifti258@users.noreply.github.com>
Date: Sun, 5 Dec 2021 03:21:53 +0000 (+0100)
Subject: Add test for rolling-map
X-Git-Tag: 0.99~2232
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=ff17d0339e16eb716f57665ebd5028e0d8c373b9

Add test for rolling-map
---

diff --git a/basis/sequences/windowed/windowed-tests.factor b/basis/sequences/windowed/windowed-tests.factor
index d6b936c58a..f8c8881aab 100644
--- 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