From f88fdc6e323c9d51b6f8658d716b5f82c09435b1 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 20 Sep 1999 22:52:02 +0000 Subject: [PATCH] * tests/regexp.test: Check regexp-substitute/global when there are no matches. (Duh.) --- test-suite/tests/regexp.test | 1 + 1 file changed, 1 insertion(+) diff --git a/test-suite/tests/regexp.test b/test-suite/tests/regexp.test index 42713be69..d74470334 100644 --- a/test-suite/tests/regexp.test +++ b/test-suite/tests/regexp.test @@ -75,6 +75,7 @@ (try "xx" "a(x*)b" "_axxb_" 1) (try "pre" "a(x*)b" "preaxxbpost" 'pre) (try "post" "a(x*)b" "preaxxbpost" 'post) + (try "string" "x" "string" 'pre "y" 'post) (try "4" "a(x*)b" "_axxb_" (lambda (m) (number->string (match:end m 1))))