"{ 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'!
test01
|img|
img := Image fromFile:(self class packageDirectory construct:'testData/test1.bmp').
self assert:(img notNil).
"/ 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:#test01
self new test01
"
!
test02
|img|
img := Image fromFile:(self class packageDirectory construct:'testData/test4.bmp').
self assert:(img notNil).
"/ img inspect.
"
self run:#test02
self new test02
"
!
test03
|img|
img := Image fromFile:(self class packageDirectory construct:'testData/test8.bmp').
self assert:(img notNil).
"/ img inspect
"
self run:#test03
self new test03
"
!
test04
|img|
img := Image fromFile:(self class packageDirectory construct:'testData/testcompress4.bmp').
self assert:(img notNil).
"/ img inspect.
"
self run:#test04
self new test04
"
!
test05
|img|
img := Image fromFile:(self class packageDirectory construct:'testData/testcompress8.bmp').
self assert:(img notNil).
"/ img inspect.
"
self run:#test05
self new test05
"
!
test06
|img|
img := Image fromFile:(self class packageDirectory construct:'testData/test8os2.bmp').
self assert:(img notNil).
"/ img inspect.
"
self run:#test06
self new test06
"
!
test07
|img|
img := Image fromFile:(self class packageDirectory construct:'testData/test4os2v2.bmp').
self assert:(img notNil).
"/ img inspect.
"
self run:#test07
self new test07
"
!
test08
|img|
img := Image fromFile:(self class packageDirectory construct:'testData/test16.bmp').
self assert:(img notNil).
"/ img inspect.
"
self run:#test08
self new test08
"
!
test09
|img|
img := Image fromFile:(self class packageDirectory construct:'testData/test24.bmp').
self assert:(img notNil).
"/ img inspect.
"
self run:#test09
self new test09
"
!
test10
|img|
img := Image fromFile:(self class packageDirectory construct:'testData/test32.bmp').
self assert:(img notNil).
"/ img inspect.
"
self run:#test10
self new test10
"
! !
!ImageReaderTest class methodsFor:'documentation'!
version
^ '$Header$'
! !