From 908e7042604599caa19c3d7e607a72b60f686ccd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 28 Oct 2023 23:37:44 +0200
Subject: Add tests for '(hnh test util)'.

---
 module/hnh/test/util.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'module/hnh')

diff --git a/module/hnh/test/util.scm b/module/hnh/test/util.scm
index b0f3342a..ba0f8bfb 100644
--- a/module/hnh/test/util.scm
+++ b/module/hnh/test/util.scm
@@ -38,7 +38,8 @@
 
 (define (string-replace-head s1 s2)
   (string-replace s1 s2
-                  0 (string-length s2)))
+                  0 (min (string-length s1)
+                         (string-length s2))))
 
 
 (define diff-cmd
-- 
cgit v1.2.3