From 7d9b84b421b33d7bd68d02eb841dd7833d8e486a Mon Sep 17 00:00:00 2001 From: "William J. Bowman" Date: Thu, 7 Jul 2016 15:42:38 -0400 Subject: [PATCH] Tests for correct syntax location --- pkgs/racket-test-core/tests/racket/trace.rktl | 20 +++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/pkgs/racket-test-core/tests/racket/trace.rktl b/pkgs/racket-test-core/tests/racket/trace.rktl index 70b18329a3..e25f3b9cd3 100644 --- a/pkgs/racket-test-core/tests/racket/trace.rktl +++ b/pkgs/racket-test-core/tests/racket/trace.rktl @@ -108,4 +108,24 @@ [(list (pregexp #px">\\(.+\\.rktl?:\\d+:\\d+[|]? 120\\)") "<120") #t] [_ #f]))) +(let* ([file-name (lambda (x) + (last (string-split + (car (string-split x ":")) + "/")))] + [proc-file-name (compose file-name symbol->string object-name)]) + (local-require syntax/location) + (let ([current-file-name (file-name (quote-source-file))] + [f1 (trace-lambda (x) x)]) + (trace-define f2 (lambda (x) x)) + (test current-file-name + 'trace-lambda-source + (proc-file-name f1)) + (test current-file-name + 'trace-lambda-source + (proc-file-name f2)) + (trace-let f3 ([x 1]) + (test current-file-name + 'trace-lambda-source + (proc-file-name f3))))) + (report-errs)