diff --git a/info.rkt b/info.rkt index 56a90fe..4e0331f 100644 --- a/info.rkt +++ b/info.rkt @@ -5,7 +5,7 @@ "syntax-color-lib" "compiler-lib")) (define build-deps '("racket-doc" "scribble-lib" "typed-racket-doc" "htdp-lib" - "net-doc" "scribble-doc")) + "net-doc" "scribble-doc" "at-exp-lib")) (define raco-commands '(("cover" (submod cover/raco main) "a code coverage tool" 30))) diff --git a/private/format-utils.rkt b/private/format-utils.rkt index 86b4268..c92ec04 100644 --- a/private/format-utils.rkt +++ b/private/format-utils.rkt @@ -48,11 +48,12 @@ (with-input-from-file f (thunk (define lexer - (with-handlers ([exn:fail:read? (const racket-lexer)]) - (define f (read-language)) - (if f - (f 'color-lexer racket-lexer) - racket-lexer))) + (maybe-wrap-lexer + (with-handlers ([exn:fail:read? (const racket-lexer)]) + (define f (read-language)) + (if f + (f 'color-lexer racket-lexer) + racket-lexer)))) (define irrelevant? (make-irrelevant? lexer f submods)) (define file-length (string-length (file->string f))) (define cache @@ -62,8 +63,6 @@ [else (raw-covered? i c)])))) cache))) -<<<<<<< HEAD -======= (define (maybe-wrap-lexer lexer) (if (procedure-arity-includes? lexer 3) lexer @@ -71,7 +70,6 @@ (define-values (a b c d e) (lexer in)) (values a b c d e 0 #f)))) ->>>>>>> e051103... fixing lexer ;; Lexer(in the sence of color:text<%>) InputPort (Maybe (Listof Symbol)) -> (Natural -> Boolean) ;; builds a function that determines if a given location in that port is irrelivent. (define (make-irrelevant? lexer f submods) diff --git a/tests/main.rkt b/tests/main.rkt index d71d1af..3fa11bd 100644 --- a/tests/main.rkt +++ b/tests/main.rkt @@ -3,7 +3,8 @@ ;; for every .rkt file in those directories it loads ;; tests that file and checks its coverage against an ;; .rktl file of the same name -(require (only-in "../main.rkt" test-files! clear-coverage! get-test-coverage irrelevant-submodules) +(require (only-in "../main.rkt" test-files! clear-coverage! get-test-coverage irrelevant-submodules + make-covered?) "../private/file-utils.rkt" racket/runtime-path rackunit)