From eea781ce75d394bd68ddd14325858c4435334586 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 5 May 2021 19:45:11 -0600 Subject: [PATCH] update a test for "." -> ":" --- pkgs/racket-test/tests/racket/contract/contract-out.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-test/tests/racket/contract/contract-out.rkt b/pkgs/racket-test/tests/racket/contract/contract-out.rkt index 9e8f8b86f6..9d2e05053e 100644 --- a/pkgs/racket-test/tests/racket/contract/contract-out.rkt +++ b/pkgs/racket-test/tests/racket/contract/contract-out.rkt @@ -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))))))