From 8be1e42cfbf9e3bc9d64dc839969d4b4293afb53 Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Mon, 12 Dec 2022 23:02:11 +0100
Subject: add nth-accumulator

---
 tests/test.mew | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'tests')

diff --git a/tests/test.mew b/tests/test.mew
index 72d1e27..a775928 100644
--- a/tests/test.mew
+++ b/tests/test.mew
@@ -486,6 +486,11 @@
 
 ; uniq-accumulator
 
+(test-group "nth-accumulator"
+  (test 6 (into (nth-accumulator 2) '(4 5 6 7)))
+  (test #t (void? (into (nth-accumulator 8) '(4 5 6 7))))
+  (test #t (void? (into (nth-accumulator 8) '()))))
+
 (test-group "one-of"
   (test #t ((one-of 1 2 3) 1))
   (test #f ((one-of 1 2 3) 4))
-- 
cgit 1.4.1