--- a/RegressionTests__ImageTests.st Tue Aug 22 18:53:22 2017 +0200
+++ b/RegressionTests__ImageTests.st Tue Aug 22 18:55:23 2017 +0200
@@ -177,8 +177,7 @@
test09_FillRectangle
|depths colors rectangle|
- "/ So far not really supported for other depths (at least not in this straightforward way).
- depths := { 24 . 32 }.
+ depths := { 16 . 24 . 32 }.
colors := {
Color red.
Color green.
@@ -187,11 +186,7 @@
Color black
}.
- rectangle := Rectangle
- left:0
- top:0
- width:1
- height:1.
+ rectangle := Rectangle left:0 top:0 width:1 height:1.
depths do:[:depth |
|img|
@@ -205,29 +200,6 @@
].
"Created: / 22-08-2017 / 18:45:44 / cg"
-!
-
-test10_FillWhite
- |depths colors rectangle|
-
- "/ So far not really supported for other depths (at least not in this straightforward way).
- depths := { 24. 32 }.
- colors := { Color red. Color green. Color blue. Color white. Color black }.
- rectangle := Rectangle left:0 top:0 width:1 height:1.
-
- depths do:[ :depth |
- |img|
-
- img := Image extent:1@1 depth:depth.
- img createPixelStore.
-
- colors do:[ :color |
- img fillRectangle:rectangle withColor:color.
- self assert:((img colorAt:0@0) = color).
- ].
- ].
-
- "Created: / 22-08-2017 / 18:45:37 / cg"
! !
!ImageTests class methodsFor:'documentation'!