[Pkg] 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 Packages
mailing list