mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 00:10:21 +02:00
Code Activity

(string-concatenate, string-concatenate/shared): New tests.

Browse source
This commit is contained in:
Kevin Ryde 2005-04-10 22:19:26 +00:00
parent 47a298d959
commit 0381cf345d
1 changed files with 34 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

34
test-suite/tests/srfi-13.test
View file

@ -124,6 +124,40 @@
(pass-if "more than one match, start and end index"
(string-any char-upper-case? "abCDE" 1 4))))
;;;
;;; string-concatenate
;;;
(with-test-prefix "string-concatenate"
(pass-if-exception "inum" exception:wrong-type-arg
(string-concatenate 123))
(pass-if-exception "symbol" exception:wrong-type-arg
(string-concatenate 'x))
(pass-if-exception "improper 1" exception:wrong-type-arg
(string-concatenate '("a" . "b")))
(pass-if (equal? "abc" (string-concatenate '("a" "b" "c")))))
;;;
;;; string-concatenate/shared
;;;
(with-test-prefix "string-concatenate/shared"
(pass-if-exception "inum" exception:wrong-type-arg
(string-concatenate/shared 123))
(pass-if-exception "symbol" exception:wrong-type-arg
(string-concatenate/shared 'x))
(pass-if-exception "improper 1" exception:wrong-type-arg
(string-concatenate/shared '("a" . "b")))
(pass-if (equal? "abc" (string-concatenate/shared '("a" "b" "c")))))
;;;
;;; string-every
;;;