suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add argument to `regexp-try-match' to match docs

Browse Source 
Closes PR 6579 --- which was actually about the
 now next-to-last argument, but close enough

original commit: d5fdee7e0691f36f2d102aea81f74f579d28fe03
This commit is contained in:
Matthew Flatt 2011-01-17 13:53:58 -07:00
parent fafa721d56
commit 7c4fa8d61b
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/tests/racket/string-mzlib.rktl
View File

@ -39,6 +39,18 @@
(test #f regexp-match/fail-without-reading #rx"hello there!!!" s) (test #f regexp-match/fail-without-reading #rx"hello there!!!" s)
(test "hello there" read-string 50 s)) (test "hello there" read-string 50 s))
;; Check remaining `regexp-match/fail-without-reading' arguments
(let ([s (open-input-string "hello there")]
[o (open-output-bytes)])
(test #f regexp-match/fail-without-reading #rx"not there" s 0 5 o)
(test #"" get-output-bytes o)
(test #f regexp-match/fail-without-reading #rx"^hello" s 1 #f o)
(test #"" get-output-bytes o)
(test #f regexp-match/fail-without-reading #rx"^hello" s 0 #f o #"_")
(test #"" get-output-bytes o)
(test '(#"ello") regexp-match/fail-without-reading #rx"ello" s 0 #f o)
(test #"h" get-output-bytes o))
(let ([g->re-test (let ([g->re-test
(lambda (glob . more) (lambda (glob . more)
(let ([re (apply glob->regexp glob more)]) (let ([re (apply glob->regexp glob more)])