diff options
| author | Jim Blandy <jimb@red-bean.com> | 1999-09-20 22:52:02 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@red-bean.com> | 1999-09-20 22:52:02 +0000 |
| commit | f88fdc6e323c9d51b6f8658d716b5f82c09435b1 (patch) | |
| tree | 3a1561f836fc835dd8da54f9b461e30c3e683686 /test-suite | |
| parent | 83c0c66087e9e3961c8694b2a0bf8cb99906cc1e (diff) | |
| download | guile-f88fdc6e323c9d51b6f8658d716b5f82c09435b1.tar.gz | |
* tests/regexp.test: Check regexp-substitute/global when there are
no matches. (Duh.)
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/tests/regexp.test | 1 |
1 files changed, 1 insertions, 0 deletions
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)))) |