From e3ddf82f1ed8abbca9de770cfabda0fd03d95084 Mon Sep 17 00:00:00 2001 From: Leah Neukirchen Date: Mon, 2 Jan 2023 19:31:49 +0100 Subject: add repeat --- tests/test.mew | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'tests') diff --git a/tests/test.mew b/tests/test.mew index d2eacbd..96f0764 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -718,3 +718,14 @@ (test 42 (imp #t #t #t 42)) (test 42 (imp 39 40 41 42)) (test #t (imp 39 #f 41 42))) + +(test-group "repeat" + (test '(1 2 3 1 2 3 1 2 3 1 2 3) (repeat '(1 2 3) 4)) + (test #(1 2 3 1 2 3 1 2 3 1 2 3) (repeat #(1 2 3) 4)) + (test "123123123123" (repeat "123" 4)) + (test "xxxx" (repeat #\x 4)) + + (test '() (repeat '(1 2 3) 0)) + (test #() (repeat #(1 2 3) 0)) + (test "" (repeat "123" 0)) + (test "" (repeat #\x 0))) -- cgit 1.4.1