--- a/RegressionTests__ImageReaderTest.st	Tue Dec 02 14:32:56 2008 +0100
+++ b/RegressionTests__ImageReaderTest.st	Tue Dec 02 22:11:49 2008 +0100
@@ -31,39 +31,140 @@
     "Created: / 02-12-2008 / 14:24:54 / cg"
 ! !
 
-!ImageReaderTest methodsFor:'initialize / release'!
-
-setUp
-    "common setup - invoked before testing."
-
-    super setUp
-!
-
-tearDown
-    "common cleanup - invoked after testing."
-
-    super tearDown
-! !
-
 !ImageReaderTest methodsFor:'tests'!
 
 test01
     |img|
 
     img := Image fromFile:(self class packageDirectory construct:'testData/test1.bmp').
-    img := Image fromFile:(self class packageDirectory construct:'testData/test4.bmp').
-    img := Image fromFile:(self class packageDirectory construct:'testData/test8.bmp').
-    img := Image fromFile:(self class packageDirectory construct:'testData/test16.bmp').
-    img := Image fromFile:(self class packageDirectory construct:'testData/test24.bmp').
-    img := Image fromFile:(self class packageDirectory construct:'testData/test32.bmp').
+    self assert:(img notNil).
+    "/ img inspect.
 
-    img := Image fromFile:(self class packageDirectory construct:'testData/testcompressed4.bmp').
-    img := Image fromFile:(self class packageDirectory construct:'testData/testcompressed8.bmp').
+    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'!