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

Comment out deinprogramm/image test cases with dubious semantics, that

Browse Source 
have recently stopped working.
This commit is contained in:
Mike Sperber 2014-09-20 16:53:25 +02:00
parent e07ff03729
commit f15ca607ed
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pkgs/deinprogramm/deinprogramm/tests/image.rkt
View File

@ -206,12 +206,16 @@
blue blue blue blue blue blue
blue blue blue) blue blue blue)
(image->color-list (rectangle 3 3 "solid" '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 white blue
blue blue blue) blue blue blue)
(image->color-list (rectangle 3 3 'outline 'blue)))) (image->color-list (rectangle 3 3 'outline 'blue))))
(test-case
;; Ditto.
#;(test-case
"color-list3" "color-list3"
(check-equal? (list blue blue blue (check-equal? (list blue blue blue
blue white blue blue white blue
@ -646,7 +650,8 @@
; note: next two tests may be platform-specific... I'm not sure. ; note: next two tests may be platform-specific... I'm not sure.
;; I developed them under macos x. -robby ;; I developed them under macos x. -robby
(test-case ;; And sure enough, this one doesn't work anymore. -Mike
#;(test-case
"triangle1" "triangle1"
(check image=? (check image=?
(triangle 3 'outline 'red) (triangle 3 'outline 'red)