suzanne.soy/cover
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removing redundant codE

Browse Source
This commit is contained in:
Spencer Florence 2015-09-21 14:26:31 -05:00
parent af35a4dd1a
commit 390d028fda
1 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
cover/private/html/html.rkt
View File

@ -323,7 +323,7 @@
(define percentage (* 100 (/ covered total))) (define percentage (* 100 (/ covered total)))
(define styles `([class "file-info"])) (define styles `([class "file-info"]))
`(tr ,styles `(tr ,styles
(td ([class "file-name"]) (a ([href ,(coverage-report-link path)]) ,local-file)) (td ([class "file-name"]) (a ([href ,path]) ,local-file))
(td ([class "coverage-percentage"]) ,(~r percentage #:precision 2)) (td ([class "coverage-percentage"]) ,(~r percentage #:precision 2))
(td ([class "covered-expressions"]) ,(~r covered #:precision 2)) (td ([class "covered-expressions"]) ,(~r covered #:precision 2))
(td ([class "uncovered-expressions"]) ,(~r (- total covered) #:precision 2)) (td ([class "uncovered-expressions"]) ,(~r (- total covered) #:precision 2))
@ -345,17 +345,6 @@
(td ([class "uncovered-expressions"]) "0") (td ([class "uncovered-expressions"]) "0")
(td ([class "total-expressions"]) "10"))))) (td ([class "total-expressions"]) "10")))))
;; Path -> String
;; Generate a link to the coverage report
(define (coverage-report-link path)
(define local-file (find-relative-path (current-directory) path))
(path->string (path-replace-suffix local-file ".html")))
(module+ test
(test-begin
(check-equal? (coverage-report-link "format-utils.rkt")
"format-utils.html")))
;; Percentage ;; Percentage
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;