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

Made test-engine react gracefully to source file names of unexpected representation.

Browse Source
This commit is contained in:
Carl Eastlund 2010-07-02 16:18:18 -04:00
parent ed4f7b7bd7
commit 3d59420133
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/test-engine/test-display.scm
View File

@ -304,13 +304,14 @@
(string-append (string-append
" " " "
(cond (cond
[(or (symbol? (src-file src))
(is-a? (src-file src) editor<%>))
(format (string-constant test-engine-at-line-column) line col)]
[(path? (src-file src)) [(path? (src-file src))
(format (string-constant test-engine-in-at-line-column) (format (string-constant test-engine-in-at-line-column)
(path->string (src-file src)) (path->string (src-file src))
line col)]))))) line col)]
[else
(format (string-constant test-engine-at-line-column)
line
col)])))))
(define (highlight-check-error srcloc src-editor) (define (highlight-check-error srcloc src-editor)
(let* ([src-pos cadddr] (let* ([src-pos cadddr]