The Trunk: CollectionsTests-nice.268.mcz

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-nice.268.mcz

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

Name: CollectionsTests-nice.268
Author: nice
Time: 21 September 2016, 9:46:42.419239 pm
UUID: 13ee237c-8a1d-46b4-870c-86fcb2aaddbd
Ancestors: CollectionsTests-pre.267

Provide some tests for half-word, word and double-word arrays (positive 16, 32 and 64 bits integer elements).

At time of writing, half and double words require VM improvments.

=============== Diff against CollectionsTests-pre.267 ===============

Item was added:
+ ClassTestCase subclass: #DoubleWordArrayTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'CollectionsTests-Arrayed'!
+
+ !DoubleWordArrayTest commentStamp: 'nice 9/21/2016 21:09' prior: 0!
+ DoubleWordArrayTest are SUnit tests for DoubleWordArray.
+ !

Item was added:
+ ----- Method: DoubleWordArrayTest>>testByteSize (in category 'testing') -----
+ testByteSize
+ self assert: (DoubleWordArray new: 1) byteSize = 8 "8 bytes are 64 bits"!

Item was added:
+ ----- Method: DoubleWordArrayTest>>testCannotPutNegativeValue (in category 'testing') -----
+ testCannotPutNegativeValue
+ self should: [DoubleWordArray with: -1] raise: Error!

Item was added:
+ ----- Method: DoubleWordArrayTest>>testCannotPutTooLargeValue (in category 'testing') -----
+ testCannotPutTooLargeValue
+ | maxValue |
+ maxValue := 1 << 64 - 1.
+ self assert: (DoubleWordArray with: maxValue) first = maxValue.
+ self should: [DoubleWordArray with: maxValue + 1] raise: Error!

Item was added:
+ ----- Method: DoubleWordArrayTest>>testElementSize (in category 'testing') -----
+ testElementSize
+ self assert: DoubleWordArray new bytesPerElement = 8 "8 bytes are 64 bits"!

Item was added:
+ ----- Method: DoubleWordArrayTest>>testSomeValues (in category 'testing') -----
+ testSomeValues
+ | dwArray int next |
+ next := [:x | x - 3 * x sqrtFloor + 5].
+ int := 0.
+ dwArray := DoubleWordArray new: 1.
+ [int highBit < 64]
+ whileTrue:
+ [dwArray at: 1 put: int.
+ self assert: (dwArray at: 1) = int.
+ int := next value: int].
+ self should: [dwArray at: 1 put: int] raise: Error!

Item was added:
+ ClassTestCase subclass: #HalfWordArrayTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'CollectionsTests-Arrayed'!
+
+ !HalfWordArrayTest commentStamp: 'nice 9/21/2016 21:08' prior: 0!
+ HalfWordArrayTest are SUnit tests for HalfWordArray.
+ !

Item was added:
+ ----- Method: HalfWordArrayTest>>testAllPossibleValues (in category 'testing') -----
+ testAllPossibleValues
+ | halfWordArray |
+ halfWordArray := (1 to: 65535) as: HalfWordArray.
+ 1 to: halfWordArray size do: [:i |
+ self assert: (halfWordArray at: i) = i]!

Item was added:
+ ----- Method: HalfWordArrayTest>>testByteSize (in category 'testing') -----
+ testByteSize
+ self assert: (HalfWordArray new: 1) byteSize = 2 "2 bytes are 16 bits"!

Item was added:
+ ----- Method: HalfWordArrayTest>>testCannotPutNegativeValue (in category 'testing') -----
+ testCannotPutNegativeValue
+ self should: [HalfWordArray with: -1] raise: Error!

Item was added:
+ ----- Method: HalfWordArrayTest>>testCannotPutTooLargeValue (in category 'testing') -----
+ testCannotPutTooLargeValue
+ | maxValue |
+ maxValue := 1 << 16 - 1.
+ self assert: (HalfWordArray with: maxValue) first = maxValue.
+ self should: [HalfWordArray with: maxValue + 1] raise: Error!

Item was added:
+ ----- Method: HalfWordArrayTest>>testElementSize (in category 'testing') -----
+ testElementSize
+ self assert: HalfWordArray new bytesPerElement = 2 "2 bytes are 16 bits"!

Item was added:
+ ClassTestCase subclass: #WordArrayTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'CollectionsTests-Arrayed'!

Item was added:
+ ----- Method: WordArrayTest>>testByteSize (in category 'testing') -----
+ testByteSize
+ self assert: (WordArray new: 1) byteSize = 4 "4 bytes are 32 bits"!

Item was added:
+ ----- Method: WordArrayTest>>testCannotPutNegativeValue (in category 'testing') -----
+ testCannotPutNegativeValue
+ self should: [WordArray with: -1] raise: Error!

Item was added:
+ ----- Method: WordArrayTest>>testCannotPutTooLargeValue (in category 'testing') -----
+ testCannotPutTooLargeValue
+ | maxValue |
+ maxValue := 1 << 32 - 1.
+ self assert: (WordArray with: maxValue) first = maxValue.
+ self should: [WordArray with: maxValue + 1] raise: Error!

Item was added:
+ ----- Method: WordArrayTest>>testElementSize (in category 'testing') -----
+ testElementSize
+ self assert: WordArray new bytesPerElement = 4 "4 bytes are 32 bits"!

Item was added:
+ ----- Method: WordArrayTest>>testSomeValues (in category 'testing') -----
+ testSomeValues
+ | wArray int next |
+ next := [:x | x - 3 * x sqrtFloor + 5].
+ int := 0.
+ wArray := WordArray new: 1.
+ [int highBit < 32]
+ whileTrue:
+ [wArray at: 1 put: int.
+ self assert: (wArray at: 1) = int.
+ int := next value: int].
+ self should: [wArray at: 1 put: int] raise: Error!