From 460e6bc33a00296a677f13646c21a2e943f908ad Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Sat, 8 Aug 2015 21:06:14 -0500 Subject: [PATCH] fixed generating coverage info for cross-phase-persistant files --- cover/strace.rkt | 7 +++++++ cover/tests/test-cross-phase-persist.rkt | 14 ++++++++++---- 2 files changed, 17 insertions(+), 4 deletions(-) diff --git a/cover/strace.rkt b/cover/strace.rkt index 94c50eb..b9a4fd9 100644 --- a/cover/strace.rkt +++ b/cover/strace.rkt @@ -41,6 +41,13 @@ (lambda (stx phase) (define e (cond [(cross-phase-persist? stx) + (initialize-test-coverage-point stx) + (log-message (current-logger) + 'info + topic + logger-covered-message + (stx->srcloc stx) + #f) stx] [(add-cover-require (annotate-clean (annotate-top stx phase))) => expand-syntax] diff --git a/cover/tests/test-cross-phase-persist.rkt b/cover/tests/test-cross-phase-persist.rkt index b5fcc08..546c879 100644 --- a/cover/tests/test-cross-phase-persist.rkt +++ b/cover/tests/test-cross-phase-persist.rkt @@ -1,6 +1,12 @@ #lang racket -(require cover rackunit racket/runtime-path (only-in "../cover.rkt" coverage-wrapper-map)) +(require cover rackunit racket/runtime-path cover/private/file-utils) (define-runtime-path file "cross-phase-persist.rkt") -(parameterize ([current-cover-environment (make-cover-environment)]) - (test-files! file) - (check-equal? (coverage-wrapper-map (get-test-coverage)) (hash))) +(test-case + "covering cross-phase-persistent files should enter them into the coverage table" + (parameterize ([current-cover-environment (make-cover-environment)]) + (test-files! file) + (define c (get-test-coverage)) + (check-not-exn + (lambda () + (c (->absolute file) 1))) + (check-equal? (c (->absolute file) 1) 'covered)))