[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/test-suite/tests srfi-13.test
From: |
Mikael Djurfeldt |
Subject: |
guile/guile-core/test-suite/tests srfi-13.test |
Date: |
Wed, 22 Aug 2001 05:00:06 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Mikael Djurfeldt <address@hidden> 01/08/22 05:00:06
Modified files:
guile-core/test-suite/tests: srfi-13.test
Log message:
* tests/srfi-13.test (string-map): Swapped order of string and
proc args to conform with the srfi. (Thanks to Alex Shinn.)
* srfi-13.c (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&tr1=1.4&tr2=1.5&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"))))
- guile/guile-core/test-suite/tests srfi-13.test,
Mikael Djurfeldt <=