hg/stx-goodies-regression: RegressionTests__ImageReaderTest.st@f98f106dec7e (annotated)

356 3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'exept:regression' }"
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	"{ NameSpace: RegressionTests }"
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	TestCase subclass:#ImageReaderTest
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:''
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	category:'tests-Regression'
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	!ImageReaderTest class methodsFor:'documentation'!
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	documentation
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	"
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	documentation to be added.
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	[author:]
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	cg (cg@AQUA-DUO)
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	[instance variables:]
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	[class variables:]
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	[see also:]
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	"
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	! !
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	!ImageReaderTest methodsFor:'tests'!
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	test01
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	\|img\|
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	img := Image fromFile:(self class packageDirectory construct:'testData/test1.bmp').
357 01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	36	self assert:(img notNil).
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	37	"/ img inspect.
356 3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38
357 01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	39	self assert:((img colorAtX:0 y:0) rgbValue = 16r4040FF).
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	40	self assert:((img colorAtX:0 y:63) rgbValue = 16r4040FF).
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	41	self assert:((img colorAtX:0 y:18) rgbValue = 16r40FF40).
356 3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	"
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	self run:#test01
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	self new test01
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	"
357 01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	47	!
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	48
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	49	test02
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	50	\|img\|
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	51
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	52	img := Image fromFile:(self class packageDirectory construct:'testData/test4.bmp').
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	53	self assert:(img notNil).
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	54	"/ img inspect.
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	55
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	56	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	57	self run:#test02
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	58	self new test02
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	59	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	60	!
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	61
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	62	test03
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	63	\|img\|
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	64
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	65	img := Image fromFile:(self class packageDirectory construct:'testData/test8.bmp').
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	66	self assert:(img notNil).
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	67	"/ img inspect
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	68
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	69	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	70	self run:#test03
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	71	self new test03
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	72	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	73	!
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	74
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	75	test04
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	76	\|img\|
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	77
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	78	img := Image fromFile:(self class packageDirectory construct:'testData/testcompress4.bmp').
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	79	self assert:(img notNil).
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	80	"/ img inspect.
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	81
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	82	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	83	self run:#test04
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	84	self new test04
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	85	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	86	!
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	87
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	88	test05
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	89	\|img\|
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	90
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	91	img := Image fromFile:(self class packageDirectory construct:'testData/testcompress8.bmp').
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	92	self assert:(img notNil).
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	93	"/ img inspect.
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	94
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	95	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	96	self run:#test05
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	97	self new test05
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	98	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	99	!
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	100
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	101	test06
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	102	\|img\|
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	103
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	104	img := Image fromFile:(self class packageDirectory construct:'testData/test8os2.bmp').
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	105	self assert:(img notNil).
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	106	"/ img inspect.
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	107
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	108	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	109	self run:#test06
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	110	self new test06
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	111	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	112	!
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	113
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	114	test07
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	115	\|img\|
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	116
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	117	img := Image fromFile:(self class packageDirectory construct:'testData/test4os2v2.bmp').
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	118	self assert:(img notNil).
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	119	"/ img inspect.
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	120
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	121	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	122	self run:#test07
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	123	self new test07
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	124	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	125	!
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	126
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	127	test08
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	128	\|img\|
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	129
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	130	img := Image fromFile:(self class packageDirectory construct:'testData/test16.bmp').
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	131	self assert:(img notNil).
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	132	"/ img inspect.
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	133
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	134	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	135	self run:#test08
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	136	self new test08
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	137	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	138	!
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	139
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	140	test09
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	141	\|img\|
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	142
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	143	img := Image fromFile:(self class packageDirectory construct:'testData/test24.bmp').
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	144	self assert:(img notNil).
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	145	"/ img inspect.
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	146
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	147	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	148	self run:#test09
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	149	self new test09
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	150	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	151	!
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	152
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	153	test10
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	154	\|img\|
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	155
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	156	img := Image fromFile:(self class packageDirectory construct:'testData/test32.bmp').
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	157	self assert:(img notNil).
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	158	"/ img inspect.
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	159
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	160	"
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	161	self run:#test10
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	162	self new test10
01c5f0c27106 * empty log message * Claus Gittinger <cg@exept.de> parents: 356 diff changeset	163	"
356 3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	164	! !
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166	!ImageReaderTest class methodsFor:'documentation'!
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	version
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169	^ '$Header$'
3f420735d670 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	170	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 02 Dec 2008 22:12:16 +0100
changeset 358	f98f106dec7e
parent 357	01c5f0c27106
child 382	25933e1d5a67
permissions	-rw-r--r--