From d22cb2891030ec2713a8279771f104cf4bebc3bf Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 25 May 2021 07:48:47 -0700
Subject: window-map: add tests, improve doc, add examples.

* tests/012/seq.tl: New tests.

* txr.1: Improve documentation of window-map's :wrap
and :reflect. Add examples.
---
 tests/012/seq.tl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'tests')

diff --git a/tests/012/seq.tl b/tests/012/seq.tl
index b38d226f..49d4046b 100644
--- a/tests/012/seq.tl
+++ b/tests/012/seq.tl
@@ -53,3 +53,22 @@
       ((a c b a c b a a b c c b a c b)
        (c b a c b a a b c c b a c b a)
        (b a c b a a b c c b a c b a c)))
+
+(test [window-map 1 nil (lambda (x y z)
+                          (if (and (eq x #\<)
+                                   (eq z #\>))
+                            (chr-toupper y)
+                            y))
+                  "ab<c>de<f>g"]
+      "ab<C>de<F>g")
+
+(test [window-mappend 1 :reflect (lambda (x y z)
+                                   (if (< x y z)
+                                     (list y)))
+                      '(1 2 1 3 4 2 1 9 7 5 7 8 5)]
+      (3 7))
+
+(test [window-map 2 #(0 0 0 0)
+                  (lambda (. args) (/ (sum args) 5))
+                  #(4 7 9 13 5 1 6 11 10 3 8)]
+      #(4.0 6.6 7.6 7.0 6.8 7.2 6.6 6.2 7.6 6.4 4.2))
-- 
cgit v1.2.3