From 783945f96b0f82bca4c5cde7a5b20c92c1439be9 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 18 Feb 2011 13:19:46 -0600 Subject: [PATCH] adjust the test coverage test suite to the changes in test coverage --- collects/tests/drracket/teaching-lang-coverage.rkt | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) diff --git a/collects/tests/drracket/teaching-lang-coverage.rkt b/collects/tests/drracket/teaching-lang-coverage.rkt index 363245a72c..df507a1613 100644 --- a/collects/tests/drracket/teaching-lang-coverage.rkt +++ b/collects/tests/drracket/teaching-lang-coverage.rkt @@ -73,18 +73,7 @@ ;; corresponds to an uncovered region of the editor (define (is-uncovered? ele) (let ([style (list-ref ele 1)]) - (and (list? style) - (let loop ([style style]) - (cond - [(null? style) #f] - [else - (let ([fst (car style)] - [snd (cadr style)]) - (cond - [(eq? fst 'background) - (equal? snd '(0 0 0))] - [else - (loop (cddr style))]))]))))) + (eq? style 'test-coverage-off))) ;; find-uncovered-text : list[get-string/style-desc result] -> (listof string) ;; returns strings containing the uncovered text in the editor (in the order they appear in the file)