From f15ca607ed4e2358d36b07163764a8867cb0e828 Mon Sep 17 00:00:00 2001 From: Mike Sperber Date: Sat, 20 Sep 2014 16:53:25 +0200 Subject: [PATCH] Comment out deinprogramm/image test cases with dubious semantics, that have recently stopped working. --- pkgs/deinprogramm/deinprogramm/tests/image.rkt | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/pkgs/deinprogramm/deinprogramm/tests/image.rkt b/pkgs/deinprogramm/deinprogramm/tests/image.rkt index f4cf442550..75c3ba3898 100644 --- a/pkgs/deinprogramm/deinprogramm/tests/image.rkt +++ b/pkgs/deinprogramm/deinprogramm/tests/image.rkt @@ -206,12 +206,16 @@ blue blue blue blue blue blue) (image->color-list (rectangle 3 3 "solid" 'blue))) - (check-equal? (list blue blue blue + ;; Robby says: + ;; I think that this test just isn't one that the primitives guarantee to hold. + #;(check-equal? (list blue blue blue blue white blue blue blue blue) (image->color-list (rectangle 3 3 'outline 'blue)))) - (test-case + + ;; Ditto. + #;(test-case "color-list3" (check-equal? (list blue blue blue blue white blue @@ -646,7 +650,8 @@ ; note: next two tests may be platform-specific... I'm not sure. ;; I developed them under macos x. -robby - (test-case + ;; And sure enough, this one doesn't work anymore. -Mike + #;(test-case "triangle1" (check image=? (triangle 3 'outline 'red)