From 5edd35e1202146d1e1ed96e656eae8deae248277 Mon Sep 17 00:00:00 2001
From: Spencer Florence <florence@ccs.neu.edu>
Date: Wed, 7 Jan 2015 12:04:24 -0500
Subject: [PATCH] more tests

---
 private/html.rkt | 60 +++++++++++++++++++++++-------------------------
 1 file changed, 29 insertions(+), 31 deletions(-)

diff --git a/private/html.rkt b/private/html.rkt
index 3f5d825..0234c26 100644
--- a/private/html.rkt
+++ b/private/html.rkt
@@ -43,26 +43,37 @@
           (write-xexpr expr))
         #:exists 'replace)
       output-file))
-  (build-index! coverage file-list dir)
-  (move-support-files! dir))
-
-(define (build-index! coverage file-list dir)
-  (vprintf "building index.html\n")
-  (define %ages (get-percentages/top coverage))
-  (define xexpr
-    `(html
-      (head ()
-            (link ([rel "stylesheet"] [type "text/css"] [href "main.css"])))
-      (body
-       ,(%s->xexpr %ages)
-       (div ()
-            ,@(for/list ([file file-list])
-                (define f (path->string (apply build-path (rest (explode-path file)))))
-                `(p () (a ([href ,f]) ,f)))))))
+  (define index (build-index coverage file-list))
   (with-output-to-file (build-path dir "index.html")
     #:exists 'replace
-    (thunk
-     (write-xexpr xexpr))))
+    (thunk (write-xexpr index)))
+  (move-support-files! dir))
+
+(define (build-index coverage file-list)
+  (vprintf "building index.html\n")
+  (define %ages (get-percentages/top coverage))
+  `(html
+    (head ()
+          (link ([rel "stylesheet"] [type "text/css"] [href "main.css"])))
+    (body
+     ,(%s->xexpr %ages)
+     (div ()
+          ,@(for/list ([file file-list])
+              (define f (path->string (apply build-path (rest (explode-path file)))))
+              `(p () (a ([href ,f]) ,f)))))))
+
+(module+ test
+  (define-runtime-path prog.rkt "../tests/basic/prog.rkt")
+  (test-begin
+   (after
+    (test-files! (path->string (simplify-path prog.rkt)))
+    (define coverage (get-test-coverage))
+    (check-equal?
+     (build-index coverage '("./tests/basic/prog.rkt"))
+     `(html (head () (link ([rel "stylesheet"] [type "text/css"] [href "main.css"])))
+       (body ,(%s->xexpr 1)
+             (div () (p () (a ([href "tests/basic/prog.rkt"]) "tests/basic/prog.rkt"))))))
+    (clear-coverage!))))
 
 (define-runtime-path css "main.css")
 (define (move-support-files! dir)
@@ -121,19 +132,6 @@
   `(ol ()
     ,@(reverse lines)))
 
-(define (get-mode loc c)
-  (define-values (mode _)
-    (for/fold ([mode 'none] [last-start 0])
-              ([pair c])
-      (match pair
-        [(list m (srcloc _ _ _ start range))
-         (if (and (<= start loc (+ start range))
-                  (or (eq? mode 'none)
-                      (> start last-start)))
-             (values m start)
-             (values mode last-start))])))
-  mode)
-
 (define (encode-char c)
   (case c
     [(#\space) 'nbsp]