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!