fixed generating coverage info for cross-phase-persistant files

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]

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)))