window-map: broken :wrap and :reflect.

* lib.c (window_map_list): Rewrite :wrap and :reflect support.
The main issue with these is that they only sample items from
the front of the input list and generate both flanks of the
boundary from that prefix; :reflect is additionaly buggy due
to applying nreverse to a sub which can return the original
sequence.

* tests/012/seq.tl: Some test coverage for window-map.

1 files changed, 33 insertions, 0 deletions

diff --git a/tests/012/seq.tl b/tests/012/seq.tl
index 1bb4ddcc..b38d226f 100644
--- a/tests/012/seq.tl
+++ b/tests/012/seq.tl
@@ -20,3 +20,36 @@
 
 (test (mapcar (lambda (. args) (list . args)) '#(1 2 3) '#(4 5 6))
       #((1 4) (2 5) (3 6)))
+
+(test [window-map 2 '(x x) list '(a b c d e f g)]
+      ((x x a b c) (x a b c d) (a b c d e)
+       (b c d e f) (c d e f g) (d e f g nil)
+       (e f g nil nil)))
+
+(test [window-map 2 '(x x y y) list '(a b c d e f g)]
+      ((x x a b c) (x a b c d) (a b c d e)
+       (b c d e f) (c d e f g) (d e f g y)
+       (e f g y y)))
+
+(test [window-map 2 nil list '(a b c d e f g)]
+      ((nil nil a b c) (nil a b c d) (a b c d e)
+       (b c d e f) (c d e f g)
+       (d e f g nil) (e f g nil nil)))
+
+(test [window-map 2 :wrap list '(a b c d e f g)]
+      ((f g a b c) (g a b c d) (a b c d e) (b c d e f)
+       (c d e f g) (d e f g a) (e f g a b)))
+
+(test [window-map 2 :reflect list '(a b c d e f g)]
+      ((b a a b c) (a a b c d) (a b c d e) (b c d e f)
+       (c d e f g) (d e f g g) (e f g g f)))
+
+(test [window-map 7 :wrap list '(a b c)]
+      ((c a b c a b c a b c a b c a b)
+       (a b c a b c a b c a b c a b c)
+       (b c a b c a b c a b c a b c a)))
+
+(test [window-map 7 :reflect list '(a b c)]
+      ((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)))