diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-05-25 07:48:47 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-05-25 07:48:47 -0700 |
| commit | d22cb2891030ec2713a8279771f104cf4bebc3bf (patch) | |
| tree | 55d03b929029ce274f0f96ce084d13527d0e2fed /tests/012 | |
| parent | 299d330d7c9541622fe33a450b52d8b45a467384 (diff) | |
| download | txr-d22cb2891030ec2713a8279771f104cf4bebc3bf.tar.gz txr-d22cb2891030ec2713a8279771f104cf4bebc3bf.tar.bz2 txr-d22cb2891030ec2713a8279771f104cf4bebc3bf.zip | |
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.
Diffstat (limited to 'tests/012')
| -rw-r--r-- | tests/012/seq.tl | 19 |
1 files changed, 19 insertions, 0 deletions
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)) |