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

fix Scribble reader test regexp-split pattern

Browse Source
This commit is contained in:
Matthew Flatt 2010-04-15 19:15:53 -04:00
parent 2e77afe5da
commit 2fb34bcfdc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/scribble/reader.ss
View File

@ -920,7 +920,7 @@ END-OF-TESTS
;; remove all comment lines
[ts (regexp-replace* #px"(?m:^;.*\r?\n)" ts "")]
;; split the tests
[ts (regexp-split #px"(?:^|\r?\n)-+(?:$|\r?\n)" ts)])
[ts (regexp-split #px"(?m:^)-+(?:$|\r?\n)" ts)])
(parameterize ([port-count-lines-enabled #t])
(for ([t ts] #:when (not (regexp-match? #px"^\\s*$" t)))
(let ([m (or (regexp-match #px"^(.*)\n\\s*(-\\S+->)\\s*\n(.*)$"