The Trunk: GraphicsTests-ul.46.mcz

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.
  ]!