"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#ImageReaderTest

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression'

!

!ImageReaderTest class methodsFor:'documentation'!

documentation

"

    documentation to be added.

    [author:]

        cg (cg@AQUA-DUO)

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!ImageReaderTest methodsFor:'tests'!

test001_bmp

    |img|

    img := Image fromFile:(self class packageDirectory construct:'testData/bmpImages/test1.bmp').

    self assert:(img notNil).

    self assert:(img depth == 1).

    "/ img inspect.

    self assert:((img colorAtX:0 y:0) rgbValue = 16r4040FF).

    self assert:((img colorAtX:0 y:63) rgbValue = 16r4040FF).

    self assert:((img colorAtX:0 y:18) rgbValue = 16r40FF40).

    "

     self run:#test001_bmp

     self new test001_bmp"

!

test002_bmp

    |img|

    img := Image fromFile:(self class packageDirectory construct:'testData/bmpImages/test4.bmp').

    self assert:(img notNil).

    self assert:(img depth == 4).

    self assert:((img colorAtX:0 y:15) rgbValue = 16rFF0000).

    self assert:((img colorAtX:35 y:15) rgbValue = 16r004000).

    self assert:((img colorAtX:35 y:30) rgbValue = 16r008000).

    self assert:((img colorAtX:35 y:45) rgbValue = 16r00C000).

    self assert:((img colorAtX:35 y:60) rgbValue = 16r00FF00).

    self assert:((img colorAtX:70 y:15) rgbValue = 16r0000FF).

    "/ img inspect.

    "

     self run:#test002_bmp

     self new test002_bmp"

!

test003_bmp

    |img|

    img := Image fromFile:(self class packageDirectory construct:'testData/bmpImages/test8.bmp').

    self assert:(img notNil).

    self assert:(img depth == 8).

    self assert:((img colorAtX:30 y:0) rgbValue = 16rFF0000).

    "/ img inspect

    "

     self run:#test003_bmp

     self new test003_bmp"

!

test004_bmp

    |img|

    img := Image fromFile:(self class packageDirectory construct:'testData/bmpImages/testcompress4.bmp').

    self assert:(img notNil).

    self assert:(img depth == 4).

    self assert:((img colorAtX:0 y:15) rgbValue = 16rFF0000).

    self assert:((img colorAtX:35 y:15) rgbValue = 16r004000).

    self assert:((img colorAtX:35 y:30) rgbValue = 16r008000).

    self assert:((img colorAtX:35 y:45) rgbValue = 16r00C000).

    self assert:((img colorAtX:35 y:60) rgbValue = 16r00FF00).

    self assert:((img colorAtX:70 y:15) rgbValue = 16r0000FF).

    "/ img inspect.

    "

     self run:#test004_bmp

     self new test004_bmp"

!

test005_bmp

    |img|

    img := Image fromFile:(self class packageDirectory construct:'testData/bmpImages/testcompress8.bmp').

    self assert:(img notNil).

    self assert:(img depth == 8).

    self assert:((img colorAtX:30 y:0) rgbValue = 16rFF0000).

    "/ img inspect.

    "

     self run:#test005_bmp

     self new test005_bmp"

!

test006_bmp

    |img|

    img := Image fromFile:(self class packageDirectory construct:'testData/bmpImages/test8os2.bmp').

    self assert:(img notNil).

    "/ img inspect.

    "

     self run:#test006_bmp

     self new test006_bmp"

!

test007_bmp

    |img|

    img := Image fromFile:(self class packageDirectory construct:'testData/bmpImages/test4os2v2.bmp').

    self assert:(img notNil).

    "/ img inspect.

    "

     self run:#test007_bmp

     self new test007_bmp"

!

test008_bmp

    |img|

    img := Image fromFile:(self class packageDirectory construct:'testData/bmpImages/test16.bmp').

    self assert:(img notNil).

    "/ img inspect.

    "

     self run:#test008_bmp

     self new test008_bmp"

!

test009_bmp

    |img|

    img := Image fromFile:(self class packageDirectory construct:'testData/bmpImages/test24.bmp').

    self assert:(img notNil).

    "/ img inspect.

    "

     self run:#test009_bmp

     self new test009_bmp"

!

test010_bmp

    |img|

    img := Image fromFile:(self class packageDirectory construct:'testData/bmpImages/test32.bmp').

    self assert:(img notNil).

    "/ img inspect.

    "

     self run:#test010_bmp

     self new test010_bmp"

!

test101

    |alpha s bits img|

    img := Depth32Image width:16 height:16.

    alpha := #[

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

                    0 0 0 0 63 63 63 63 127 127 127 127 255 255 255 255

              ].

    s := WriteStream on:#[].

    alpha do:[:a |

        s nextPut:127.    "/ r

        s nextPut:127.    "/ g

        s nextPut:127.    "/ b

        s nextPut:a.    

    ].

    bits := (s contents).

    img bits:bits.

    "/ img inspect.

    "

     self run:#test101

     self new test101

    "

!

testPNG_001_basn0g01

    |img|

    img := Image fromFile:(self class packageDirectory construct:'testData/pngImages/basn0g01.png').

    self assert:(img notNil).

    self assert:(img depth == 1).

    self assert:(img extent = (32@32)).

    self assert:(img colorAt:(0@0)) = Color white.

    self assert:(img colorAt:(31@31)) = Color black.

    "/ img inspect.

    "

     self run:#testPNG_001_basn0g01

     self new testPNG_001_basn0g01

    "

    "Created: / 05-02-2011 / 10:32:32 / cg"

!

testPNG_002_basn0g02

    |img|

    img := Image fromFile:(self class packageDirectory construct:'testData/pngImages/basn0g02.png').

    self assert:(img notNil).

    self assert:(img depth == 2).

    self assert:(img extent = (32@32)).

    self assert:(img colorAt:(0@0)) rgbValue = 0.

    self assert:(img colorAt:(31@31)) rgbValue = 16rAAAAAA.

    "/ img inspect.

    "

     self run:#testPNG_002_basn0g02

     self new testPNG_002_basn0g02

    "

    "Created: / 05-02-2011 / 10:33:24 / cg"

!

test_bmp_01

    |img allOK|

    allOK := true.

    (self class packageDirectory construct:'testData/bmpImages') directoryContentsAsFilenamesDo:[:f |

            Error handle:[:ex |

                img := nil.

            ] do:[

                img := Image fromFile:f.

            ].

        ].

    ].

    self assert:allOK.

    "

     self run:#test_bmp_01

     self new test_bmp_01

    "

!

test_png_01

    |img allOK|

    allOK := true.

    (self class packageDirectory construct:'testData/pngImages') directoryContentsAsFilenamesDo:[:f |

            Error handle:[:ex |

                img := nil.

            ] do:[

                img := Image fromFile:f.

            ].    

        ].

    ].

    self assert:allOK.

    "

     self run:#test_png_01

     self new test_png_01

    "

!

test_png_02

    |referenceImg img|

    img := Image fromFile:(self class packageDirectory construct:'testData/pngImages/basn0g01.png').

    self assert:(img notNil).

    referenceImg := (Depth1Image new) width: 32; height: 32; 

                            photometric:(#palette); 

                            bitsPerSample:(#[1]); 

                            samplesPerPixel:(1); 

                            bits:(ByteArray fromPackedString:'

?????/????3????8????<OO3?>C3<??@<?O? OL3?0C3L?8@<3O<@O G>@C8A?@@?L? @O3O0@C??8@@??<@@O?>@@C??@@@?? O8O?0C>C?8@00?<@LLO>@

C>C?@@? ? @LLO0@CCC8@@? <@@O8N@@@@C@@@@@ @@@@@@@@@@b') ; 

                            colorMapFromArray:#[0 0 0 255 255 255]; 

                            yourself.

    self assert:(img asImageWithDepth:1) = (referenceImg asImageWithDepth:1).

    "

     self run:#test_png_02

     self new test_png_02

    "

! !

!ImageReaderTest class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !