--- a/RegressionTests__ImageTests.st	Mon Jul 22 13:57:37 2019 +0200
+++ b/RegressionTests__ImageTests.st	Mon Jul 22 14:08:57 2019 +0200
@@ -91,6 +91,39 @@
     "/ ----------------------------------
     
     img := Image extent:1@1 depth:32.
+    img photometric:#rgb. "/ that is: r,g,b, ignoredAlpha    
+    img createPixelStore.
+    bytes := img bits.
+
+    self assert:(bytes at:1) == 0.
+    self assert:(bytes at:2) == 0.
+    self assert:(bytes at:3) == 0.
+    self assert:(bytes at:4) == 0.
+
+    img colorAtX:0 y:0 put:(Color red).
+
+    self assert:(bytes at:1) == 16rFF.  "/ red
+    self assert:(bytes at:2) == 0. 
+    self assert:(bytes at:3) == 0.
+    self assert:(bytes at:4) == 0.      "/ alpha - ignored and 0
+
+    img colorAtX:0 y:0 put:(Color green).
+
+    self assert:(bytes at:1) == 0.     
+    self assert:(bytes at:2) == 16rFF.  "/ green
+    self assert:(bytes at:3) == 0.
+    self assert:(bytes at:4) == 0.      "/ alpha - ignored and 0
+
+    img colorAtX:0 y:0 put:(Color blue).
+
+    self assert:(bytes at:1) == 0.     
+    self assert:(bytes at:2) == 0.
+    self assert:(bytes at:3) == 16rFF.  "/ blue
+    self assert:(bytes at:4) == 0.      "/ alpha - ignored and 0
+
+    "/ ----------------------------------
+
+    img := Image extent:1@1 depth:32.
     img photometric:#xrgb. "/ that is: alpha,r,g,b    
     img createPixelStore.
     bytes := img bits.
@@ -178,7 +211,7 @@
     self assert:(bytes at:4) == 16rFF. "/ blue
 
     "Created: / 22-08-2017 / 18:46:14 / cg"
-    "Modified: / 22-07-2019 / 13:56:02 / Claus Gittinger"
+    "Modified: / 22-07-2019 / 14:05:29 / Claus Gittinger"
 !
 
 test09_FillRectangle