[squeak-dev] The Trunk: GraphicsTests-ul.46.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Feb 5 20:04:27 UTC 2018


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 at 7 depth: d] as: Array.
- 	formList := #(1 2 4 8 16 32) collect:[:d| Form extent: 17 at 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 at 0 put: pixval.
  		f pixelValueAt: 16 at 6 put: pixval.
  		f pixelValueAt: 7 at 3 put: pixval.
  			self assert: (f pixelValueAt: 0 at 0) = pixval. 
  			self assert: (f pixelValueAt: 1 at 0) = 0. 
  			self assert: (f pixelValueAt: 16 at 6) = pixval. 
  			self assert:(f pixelValueAt: 15 at 6) = 0. 
  			self assert: (f pixelValueAt: 7 at 3) = pixval.
  			self assert: (f pixelValueAt: 6 at 3) = 0.
  	]!



More information about the Squeak-dev mailing list