adjust a test to accommodate Windows paths

This commit is contained in:
Matthew Flatt 2015-11-13 09:53:48 -07:00
parent 6343ca0826
commit ebd84546ca

View File

@ -2107,7 +2107,7 @@
(err/rt-test (apply raise-syntax-error #f "oops" a0 a1 args)
(lambda (exn)
(and (exn:fail:syntax? exn)
(regexp-match? (format "^[^:\n]*:~a:~a:"
(regexp-match? (format "^([a-zA-Z]:)?[^:\n]*:~a:~a:"
(or (syntax-line a1)
(syntax-line a0))
(or (syntax-column a1)