From b5ff92a57fa7a8d30f1485d076b92c16ddceb6bf Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Thu, 2 Apr 2015 13:05:18 -0400 Subject: [PATCH] adding tests --- tests/cross-phase-persist.rkt | 2 ++ tests/test-cross-phase-persist.rkt | 6 ++++++ 2 files changed, 8 insertions(+) create mode 100644 tests/cross-phase-persist.rkt create mode 100644 tests/test-cross-phase-persist.rkt diff --git a/tests/cross-phase-persist.rkt b/tests/cross-phase-persist.rkt new file mode 100644 index 0000000..9449d57 --- /dev/null +++ b/tests/cross-phase-persist.rkt @@ -0,0 +1,2 @@ +(module cross-phase-persist '#%kernel + (#%declare #:cross-phase-persistent)) diff --git a/tests/test-cross-phase-persist.rkt b/tests/test-cross-phase-persist.rkt new file mode 100644 index 0000000..c6f8035 --- /dev/null +++ b/tests/test-cross-phase-persist.rkt @@ -0,0 +1,6 @@ +#lang racket +(require cover rackunit racket/runtime-path) +(define-runtime-path file "cross-phase-persist.rkt") +(parameterize ([current-cover-environment (make-cover-environment)]) + (test-files! file) + (check-equal? (get-test-coverage) (hash)))