From 17b8398b891ba0209e1d99116c508e91df60885d Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Mon, 16 Feb 2015 18:20:29 -0500 Subject: [PATCH] forgot a test --- tests/repl-like.rkt | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 tests/repl-like.rkt diff --git a/tests/repl-like.rkt b/tests/repl-like.rkt new file mode 100644 index 0000000..76b9e37 --- /dev/null +++ b/tests/repl-like.rkt @@ -0,0 +1,18 @@ +#lang racket +(module+ test + (require rackunit "../main.rkt" racket/runtime-path) + (define-runtime-path simple-multi/2.rkt "simple-multi/2.rkt") + (define env (make-clean-cover-environment)) + (test-begin + (define file (path->string simple-multi/2.rkt)) + (define modpath file) + (cover-module! modpath env) + (define ns (environment-namespace env)) + (eval `(require (file ,modpath)) ns) + (check-equal? (eval `(two) ns) 10) + (define x (get-test-coverage env)) + (define covered? + (make-covered? (hash-ref x file) file)) + (for ([_ (in-string (file->string file))] + [i (in-naturals 1)]) + (check-equal? (covered? i) 'covered (~a i)))))