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

fixed a port-line/character counting issue.

Browse Source
This commit is contained in:
Spencer Florence 2015-03-30 22:56:24 -04:00
parent 06c9d417dd
commit 85896752a9
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
private/format-utils.rkt
View File

@ -75,7 +75,6 @@
(define (make-irrelevant? lexer f submods) (define (make-irrelevant? lexer f submods)
(define s (mutable-set)) (define s (mutable-set))
(define-values (for-lex for-str) (replicate-file-port f (current-input-port))) (define-values (for-lex for-str) (replicate-file-port f (current-input-port)))
(port-count-lines! for-lex)
(define str (apply vector (string->list (port->string for-str)))) (define str (apply vector (string->list (port->string for-str))))
(define init-offset (- (string-length (file->string f)) (define init-offset (- (string-length (file->string f))
(vector-length str))) (vector-length str)))
@ -163,6 +162,7 @@
(module+ test (module+ test
(define-runtime-path path2 "../tests/prog.rkt") (define-runtime-path path2 "../tests/prog.rkt")
(parameterize ([irrelevant-submodules #f])
(test-begin (test-begin
(define f (path->string (simplify-path path2))) (define f (path->string (simplify-path path2)))
(test-files! f) (test-files! f)
@ -178,4 +178,4 @@
(check-equal? (covered? 52) 'irrelevant) (check-equal? (covered? 52) 'irrelevant)
(check-equal? (covered? 53) 'irrelevant) (check-equal? (covered? 53) 'irrelevant)
(check-equal? (covered? 54) 'irrelevant) (check-equal? (covered? 54) 'irrelevant)
(clear-coverage!))) (clear-coverage!))))