#FEATURE
authorClaus Gittinger <cg@exept.de>
Mon, 07 Mar 2016 09:20:14 +0100
changeset 1334 7361d2e60e51
parent 1333 cee9f9ed2c2b
child 1335 c0a6d25d77aa
#FEATURE class: RegressionTests::ImageReaderTest changed: #test_bmp_01 #test_png_01
RegressionTests__ImageReaderTest.st
--- a/RegressionTests__ImageReaderTest.st	Fri Mar 04 19:23:00 2016 +0100
+++ b/RegressionTests__ImageReaderTest.st	Mon Mar 07 09:20:14 2016 +0100
@@ -260,13 +260,16 @@
 
     allOK := true.
     (self class packageDirectory construct:'testData/bmpImages') directoryContentsAsFilenamesDo:[:f |
-        f isRegularFile ifTrue:[
+        (f isRegularFile and:[f hasSuffix:'bmp']) ifTrue:[
             Error handle:[:ex |
                 img := nil.
             ] do:[
                 img := Image fromFile:f.
             ].
-            img isNil ifTrue:[ allOK := false].                
+            img isNil ifTrue:[ 
+                Transcript printf:'failed: %s\n' with:f baseName.
+                allOK := false
+            ].                
         ].
     ].
     self assert:allOK.
@@ -282,13 +285,16 @@
 
     allOK := true.
     (self class packageDirectory construct:'testData/pngImages') directoryContentsAsFilenamesDo:[:f |
-        f isRegularFile ifTrue:[
+        (f isRegularFile and:[f hasSuffix:'png']) ifTrue:[
             Error handle:[:ex |
                 img := nil.
             ] do:[
                 img := Image fromFile:f.
             ].    
-            img isNil ifTrue:[ allOK := false ].
+            img isNil ifTrue:[ 
+                Transcript printf:'failed: %s\n' with:f baseName.
+                allOK := false 
+            ].
         ].
     ].
     self assert:allOK.