mes: Add string-fold, string-fold-right.

[mes.git] / tests / srfi-13.test

diff --git a/tests/srfi-13.test b/tests/srfi-13.test
index 14972d7a26b38fec6d3c6cb09294866b90accbb0..486840330be174b4262acdac4369d727b4484f43 100755 (executable)
--- a/tests/srfi-13.test
+++ b/tests/srfi-13.test
@@ -9,7 +9,7 @@ exit $?
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
-;;; Copyright © 2016,2017 Jan Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2016,2017,2018 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of Mes.
 ;;;
@@ -48,4 +48,12 @@ exit $?
                3
                (string-index "foo:bar" #\:))
 
+(pass-if-equal "string-fold"
+    "oof"
+  (list->string (string-fold cons '() "foo")))
+
+(pass-if-equal "string-fold-right"
+    "f-o-o-:"
+  (list->string (string-fold-right (lambda (e p) (cons e (cons #\- p))) '(#\:) "foo")))
+
 (result 'report)