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

update a test for "<line>.<col>" -> "<line>:<col>"

Browse Source
This commit is contained in:
Matthew Flatt 2021-05-05 19:45:11 -06:00
parent 9410a90a8b
commit eea781ce75
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/racket-test/tests/racket/contract/contract-out.rkt
View File

@ -661,13 +661,13 @@
(require 'provide/contract-35/m)
(f #f)))))
(test (format "contract-out.rkt:~a.28"
(test (format "contract-out.rkt:~a:28"
(+ here-line 8))
'provide/contract-compiled-source-locs
(with-handlers ((exn:fail?
(λ (x)
(define m
(regexp-match #rx"contract-out[.]rkt[^ ]*.28" (exn-message x)))
(regexp-match #rx"contract-out[.]rkt[^ ]*:28" (exn-message x)))
(if m
(car m)
(list 'regexp-match-failed (exn-message x))))))