From b8eed3b87753991d0c5c4b1fc942339e33ee5973 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Wed, 22 Mar 2023 19:11:40 +0100
Subject: [PATCH] Add string repeat tests.

---
 utils.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/utils.scm b/utils.scm
index 54b128d..4eb1d48 100644
--- a/utils.scm
+++ b/utils.scm
@@ -65,6 +65,12 @@
     utils
     (test-equal? filter (filter odd? '(1 2 3 4)) '(1 3))
     (test-equal? filter (filter odd? '(2 4)) '())
+    (test-equal? string-repeat
+		 (string-repeat "-" 4)
+		 "----")
+    (test-equal? string-repeat
+		 (string-repeat "š" 4)
+		 "šššš")
     ))
 
  )