"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#ImageTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression'
!

!ImageTests class methodsFor:'documentation'!

documentation
"
    Tests for the image classes in libview, i.e. Image,
    Depth1Image, Depth2Image, etc.

    [author:]
        mawalch

    [instance variables:]

    [class variables:]

    [see also:]

"
! !

!ImageTests methodsFor:'tests'!

testFillWhite
    |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 / 17:30:55 / mawalch"
! !

!ImageTests class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !