diff --git a/libgnucash/scm/test/test-utilities.scm b/libgnucash/scm/test/test-utilities.scm
new file mode 100644
index 0000000000..8ee2f5975f
--- /dev/null
+++ b/libgnucash/scm/test/test-utilities.scm
@@ -0,0 +1,63 @@
+(use-modules (gnucash gnc-module))
+(gnc:module-begin-syntax (gnc:module-load "gnucash/app-utils" 0))
+(use-modules (gnucash utilities))
+(use-modules (srfi srfi-64))
+(use-modules (gnucash engine test srfi64-extras))
+
+(define (run-test)
+  (test-runner-factory gnc:test-runner)
+  (test-begin "test-utilities.scm")
+  (test-traverse-vec)
+  (test-substring-replace)
+  (test-begin "test-utilities.scm"))
+
+(define (test-traverse-vec)
+  (test-begin "traverse-vec")
+  (test-equal "list->vec"
+    (vector 1 (vector 2 3))
+    (traverse-list->vec
+     (list 1 (list 2 3))))
+  (test-equal "vec->list"
+    (list 1 (list 2 3))
+    (traverse-vec->list
+     (vector 1 (vector 2 3))))
+  (test-end "traverse-vec"))
+
+(define (test-substring-replace)
+  (test-begin "substring-replace")
+
+  ;; generic gnc:substring-replace used in qif-guess-map.scm
+  (test-equal "gnc:substring-replace"
+    "fooxyzfooxyz"
+    (gnc:substring-replace "foobarfoobar" "bar" "xyz"))
+
+  ;; note the following 2 tests show the code was not coded according
+  ;; to the example in the comments.
+  (test-equal "gnc:substring-replace-from-to ... ... 2 2"
+    "foobarfooxyzfooxyz"
+    (gnc:substring-replace-from-to "foobarfoobarfoobar" "bar" "xyz" 2 2))
+
+  (test-equal "gnc:substring-replace-from-to ... ... 2 1"
+    "foobarfooxyzfoobar"
+    (gnc:substring-replace-from-to "foobarfoobarfoobar" "bar" "xyz" 2 1))
+
+  ;; comprehensive test suite for gnc:substring-replace-from-to:
+  (test-equal "gnc:substring-replace-from-to ... ... 2 1"
+    "foo xxx foo foo foo foo foo foo"
+    (gnc:substring-replace-from-to
+     "foo foo foo foo foo foo foo foo"
+     "foo" "xxx" 2 1))
+
+  (test-equal "gnc:substring-replace-from-to ... ... 1 1"
+    "xxx foo foo foo foo foo foo foo"
+    (gnc:substring-replace-from-to
+     "foo foo foo foo foo foo foo foo"
+     "foo" "xxx" 1 1))
+
+  (test-equal "gnc:substring-replace-from-to ... ... 4 -1"
+    "foo foo foo xxx xxx xxx xxx xxx"
+    (gnc:substring-replace-from-to
+     "foo foo foo foo foo foo foo foo"
+     "foo" "xxx" 4 -1))
+
+  (test-end "substring-replace"))