From 36e854dbc5ba646da0866968d74783ead8a0788a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 18 Apr 2006 17:35:41 +0000 Subject: [PATCH] more regexp tests svn: r2708 --- collects/tests/mzscheme/basic.ss | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/collects/tests/mzscheme/basic.ss b/collects/tests/mzscheme/basic.ss index 7b3f0745c6..aa474868b0 100644 --- a/collects/tests/mzscheme/basic.ss +++ b/collects/tests/mzscheme/basic.ss @@ -1161,6 +1161,21 @@ (test (string #\- #\nul #\+ #\- #\nul #\+ #\- #\nul #\+) regexp-replace* "a" "aaa" (string #\- #\nul #\+)) +(test "xpple" regexp-replace #rx"a" "apple" "x") +(test #"xpple" regexp-replace #rx#"a" "apple" "x") +(test #"xpple" regexp-replace #rx"a" #"apple" "x") +(test #"xpple" regexp-replace #rx#"a" #"apple" "x") +(err/rt-test (regexp-replace #rx"a" "apple" #"x")) + +(test "pAPple" regexp-replace #rx"a(.)" "apple" (lambda (a b) (string-append b (string-upcase a)))) +(test #"p.ap.ple" regexp-replace #rx#"a(.)" "apple" (lambda (a b) (bytes-append b #"." a #"."))) +(test #"p.ap.ple" regexp-replace #rx"a(.)" #"apple" (lambda (a b) (bytes-append b #"." a #"."))) +(test #"p.ap.ple" regexp-replace #rx#"a(.)" #"apple" (lambda (a b) (bytes-append b #"." a #"."))) +(err/rt-test (regexp-replace #rx#"a(.)" #"apple" (lambda (a b) "string"))) +(err/rt-test (regexp-replace #rx#"a(.)" "apple" (lambda (a b) "string"))) +(err/rt-test (regexp-replace #rx"a(.)" #"apple" (lambda (a b) "string"))) +(err/rt-test (regexp-replace #rx"a(.)" "apple" (lambda (a b) #"bytes"))) + ;; Check extremely many subexpressions: (for-each (lambda (mx)