Levente Uzonyi uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-ul.46.mcz
==================== Summary ====================
Name: GraphicsTests-ul.46 Author: ul Time: 22 January 2018, 12:28:47.553681 am UUID: baf0a864-6d1d-46ed-b0a8-ba22893e8e26 Ancestors: GraphicsTests-dtl.45
- use ByteArray literals instead of Arrays
=============== Diff against GraphicsTests-dtl.45 ===============
Item was changed: ----- Method: BitBltTest>>testPivelValueAt (in category 'bugs') ----- testPivelValueAt "tests for the pixel peeking extension to bitBlt" " self run: #testPixelValueAt" |formList pixels | "make a Form of each depth" + formList := #[1 2 4 8 16 32] collect:[:d| Form extent: 17@7 depth: d] as: Array. - formList := #(1 2 4 8 16 32) collect:[:d| Form extent: 17@7 depth: d]. pixels := Dictionary new. pixels at: 1 put: 1; at: 2 put: 3; at:4 put: 7; at: 8 put: 16rFF; at: 16 put: 16rFFFF ; at: 32 put: 16rFFFFFFFF.
"poke pixels to topleft (to test handling 0) bottomright (to test limits) middle (just because) peek at each location (to make sure it matches expectations)" formList do:[:f| |d pixval| d := f depth. pixval := pixels at: d. f pixelValueAt: 0@0 put: pixval. f pixelValueAt: 16@6 put: pixval. f pixelValueAt: 7@3 put: pixval. self assert: (f pixelValueAt: 0@0) = pixval. self assert: (f pixelValueAt: 1@0) = 0. self assert: (f pixelValueAt: 16@6) = pixval. self assert:(f pixelValueAt: 15@6) = 0. self assert: (f pixelValueAt: 7@3) = pixval. self assert: (f pixelValueAt: 6@3) = 0. ]!
packages@lists.squeakfoundation.org