guile/guile-core/test-suite/tests srfi-13.test

[Thien-Thi Nguyen]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Thien-Thi Nguyen <address@hidden>       01/08/23 12:07:30

Modified files:
        guile-core/test-suite/tests: srfi-13.test 

Log message:
        (string-map): Swapped order of string and
        proc args to conform with the srfi.  (Thanks to Alex Shinn.)

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/test-suite/tests/srfi-13.test.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.4&tr2=1.4.2.1&r1=text&r2=text

Patches:
Index: guile/guile-core/test-suite/tests/srfi-13.test
diff -u guile/guile-core/test-suite/tests/srfi-13.test:1.4 
guile/guile-core/test-suite/tests/srfi-13.test:1.5
--- guile/guile-core/test-suite/tests/srfi-13.test:1.4  Wed May 16 11:04:20 2001
+++ guile/guile-core/test-suite/tests/srfi-13.test      Wed Aug 22 05:00:06 2001
@@ -18,7 +18,7 @@
 ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;;;; Boston, MA 02111-1307 USA
 
-(use-modules (srfi srfi-13) (srfi srfi-14))
+(use-modules (srfi srfi-13) (srfi srfi-14) (test-suite lib))
 
 ;;; This kludge is needed, because SRFI-13 redefines some bindings in
 ;;; the core.
@@ -1010,3 +1010,14 @@
 
   (pass-if "pred, start and end index"
     (string=? "" (string-delete ".foo.bar." char-alphabetic? 2 4))))
+
+(with-test-prefix "string-map"
+
+  (pass-if "constant"
+    (string=? "xxx" (string-map (lambda (c) #\x) "foo")))
+
+  (pass-if "identity"
+    (string=? "foo" (string-map identity "foo")))
+
+  (pass-if "upcase"
+    (string=? "FOO" (string-map char-upcase "foo"))))