From 54bd472298cc05c50428c19cf222e0375e8bcc09 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 18 Oct 2023 12:46:39 +0200
Subject: Add tests for (text util).

The "true string" procedures are still not tested, since they are way to
much work to get right. See comments added in this commit about removing
them entirely.
---
 tests/unit/coverage-supplement.scm |  5 ++++
 tests/unit/text/test-util.scm      | 50 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 55 insertions(+)
 create mode 100644 tests/unit/text/test-util.scm

(limited to 'tests')

diff --git a/tests/unit/coverage-supplement.scm b/tests/unit/coverage-supplement.scm
index 130a4e84..9242a3c1 100644
--- a/tests/unit/coverage-supplement.scm
+++ b/tests/unit/coverage-supplement.scm
@@ -31,4 +31,9 @@
   23 29 ; internal lookup table, used by everything so tested implicitly
   53 ; internal helper function, tested implictly
  )
+ ("module/text/util.scm"
+  "271a5f7740aa6e378e7fda2da4725171dc50a2e4a790e9529fceed19a747e775"
+  5                                     ; (Module declaration
+  52                                    ; else "keyword" apparently missed
+  )
 )
diff --git a/tests/unit/text/test-util.scm b/tests/unit/text/test-util.scm
new file mode 100644
index 00000000..6d721eb1
--- /dev/null
+++ b/tests/unit/text/test-util.scm
@@ -0,0 +1,50 @@
+(define-module (test text-util)
+  :use-module (srfi srfi-64)
+  :use-module (srfi srfi-71)
+  :use-module (srfi srfi-88)
+  :use-module (text util))
+
+(test-group "words/unwords"
+ (test-equal '("A" "list" "of" "words")
+   (words "A list of words"))
+
+ (test-equal "A joined string"
+   (unwords '("A" "joined" "string"))))
+
+(test-group "lines/unlines"
+ (test-equal '("A" "list of" "words")
+   (lines "A\nlist of\nwords"))
+
+ (test-equal "A joined\nstring"
+   (unlines '("A joined" "string"))))
+
+;;; TODO tests for "true" string length procedures
+;;; Or better yet, remove them and format text properly.
+
+(test-group "trim-to-width"
+  (test-equal "Extending strings"
+    "An extended string                      "
+    (trim-to-width "An extended string" 40))
+  (test-equal "Truncating strings"
+    "This is a…"
+    (trim-to-width "This is a rather long string" 10))
+  (test-equal "Exact width"
+    "Hello"
+    (trim-to-width "Hello" 5)))
+
+
+(test-group "Add enumeration punctuation"
+  (test-equal '("")
+    (add-enumeration-punctuation '()))
+  (test-equal '("Single element")
+    (add-enumeration-punctuation '("Single element")))
+  (test-equal "Two elements"
+    '("Hello" " " "&" " " "World")
+    (add-enumeration-punctuation '("Hello" "World")))
+  (test-equal "Three elements and different end"
+    '("A" ", " "B" " " "and" " " "C")
+    (add-enumeration-punctuation '("A" "B" "C")
+                                 "and")))
+
+
+'((text util))
-- 
cgit v1.2.3