The Trunk: CollectionsTests-ul.252.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: CollectionsTests-ul.252.mcz

commits-2
Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-ul.252.mcz

==================== Summary ====================

Name: CollectionsTests-ul.252
Author: ul
Time: 27 September 2015, 11:33:56.078 pm
UUID: db54c1d0-dab4-42b5-9c99-5384a18fec96
Ancestors: CollectionsTests-eem.251

Added tests for ByteArray's #long64At:* methods.

=============== Diff against CollectionsTests-eem.251 ===============

Item was changed:
  ----- Method: ByteArrayTest>>testPlatformIndepentendIntegerAccessorsAtBitBorders (in category 'testing - platform independent access') -----
  testPlatformIndepentendIntegerAccessorsAtBitBorders
 
  #(
  shortAt:put:bigEndian: shortAt:bigEndian: false 16
  longAt:put:bigEndian: longAt:bigEndian: false 32
+ long64At:put:bigEndian: long64At:bigEndian: false 64
  unsignedShortAt:put:bigEndian: unsignedShortAt:bigEndian: true 16
  unsignedLongAt:put:bigEndian: unsignedLongAt:bigEndian: true 32
  unsignedLong64At:put:bigEndian: unsignedLong64At:bigEndian: true 64
  ) groupsDo: [ :setter :getter :unsigned :storageBits |
  self
  verifyPlatformIndepentendIntegerAccessorsAtBitBordersSetter: setter
  getter: getter
  unsigned: unsigned
  storageBits: storageBits ]!

Item was changed:
  ----- Method: ByteArrayTest>>testPlatformIndepentendIntegerAccessorsWithRandomValues (in category 'testing - platform independent access') -----
  testPlatformIndepentendIntegerAccessorsWithRandomValues
 
  | random |
  random := Random seed: 36rSqueak.
  #(
  shortAt:put:bigEndian: shortAt:bigEndian: false 16
  longAt:put:bigEndian: longAt:bigEndian: false 32
+ long64At:put:bigEndian: long64At:bigEndian: false 64
  unsignedShortAt:put:bigEndian: unsignedShortAt:bigEndian: true 16
  unsignedLongAt:put:bigEndian: unsignedLongAt:bigEndian: true 32
  unsignedLong64At:put:bigEndian: unsignedLong64At:bigEndian: true 64
  ) groupsDo: [ :setter :getter :unsigned :storageBits |
  self
  verifyPlatformIndepentendIntegerAccessorsWithRandomValuesSetter: setter
  getter: getter
  unsigned: unsigned
  storageBits: storageBits
  random: random ]!