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

Tests for correct syntax location

Browse Source
This commit is contained in:
William J. Bowman 2016-07-07 15:42:38 -04:00 committed by Vincent St-Amour
parent e5e781c4ec
commit 7d9b84b421
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pkgs/racket-test-core/tests/racket/trace.rktl
View File

@ -108,4 +108,24 @@
[(list (pregexp #px">\\(.+\\.rktl?:\\d+:\\d+[|]? 120\\)") "<120") #t] [(list (pregexp #px">\\(.+\\.rktl?:\\d+:\\d+[|]? 120\\)") "<120") #t]
[_ #f]))) [_ #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) (report-errs)