mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(match:string): New tests.

Browse source
This commit is contained in:
Kevin Ryde 2004-09-28 23:53:02 +00:00
parent 21682b207e
commit 38923713f1
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test-suite/tests/regexp.test
View file

@ -58,6 +58,18 @@
(pass-if-exception "bad arg 3" exception:wrong-type-arg
(make-regexp "xyz" regexp/icase 'abc)))
;;;
;;; match:string
;;;
(with-test-prefix "match:string"
(pass-if "foo"
(string=? "foo" (match:string (string-match ".*" "foo"))))
(pass-if "foo offset 1"
(string=? "foo" (match:string (string-match ".*" "foo" 1)))))
;;;
;;; regexp-quote
;;;