[squeak-dev] The Trunk: KernelTests-nice.99.mcz

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

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

Name: KernelTests-nice.99
Author: nice
Time: 6 October 2009, 12:24:25 pm
UUID: 67b1d8a9-c7aa-344b-b645-3ae2cd4f907c
Ancestors: KernelTests-nice.98

Tests for #bitAt: from http://bugs.squeak.org/view.php?id=6985

=============== Diff against KernelTests-nice.98 ===============

Item was added:
+ ----- Method: IntegerTest>>testBitAt (in category 'tests - bitLogic') -----
+ testBitAt
+ | trials aNumber bitSequence2 bitInvert |
+
+ self
+ assert: ((1 to: 100) allSatisfy: [:i | (0 bitAt: i) = 0])
+ description: 'all bits of zero are set to zero'.
+
+ self
+ assert: ((1 to: 100) allSatisfy: [:i | (-1 bitAt: i) = 1])
+ description: 'In two complements, all bits of -1 are set to 1'.
+
+
+ trials := #(
+ '2r10010011'
+ '2r11100100'
+ '2r10000000'
+ '2r0000101011011001'
+ '2r1000101011011001'
+ '2r0101010101011000'
+ '2r0010011110110010'
+ '2r0010011000000000'
+ '2r00100111101100101000101011011001'
+ '2r01110010011110110010100110101101'
+ '2r10101011101011001010000010110110'
+ '2r10101000000000000000000000000000'
+ '2r0010101110101001110010100000101101100010011110110010100010101100'
+ '2r1010101110101100101000001011011000100111101100101000101011011001'
+ '2r1010101110101000000000000000000000000000000000000000000000000000').
+ trials do: [:bitSequence |
+ aNumber := Number readFrom: bitSequence.
+ bitSequence2 := (bitSequence size - 2 to: 1 by: -1) inject: '2r' into: [:string :i | string copyWith: (Character digitValue: (aNumber bitAt: i))].
+ self assert: bitSequence2 = bitSequence].
+
+ trials do: [:bitSequence |
+ bitInvert := -1 - (Number readFrom: bitSequence).
+ bitSequence2 := (bitSequence size - 2 to: 1 by: -1) inject: '2r' into: [:string :i | string copyWith: (Character digitValue: 1 - (bitInvert bitAt: i))].
+ self assert: bitSequence2 = bitSequence description: '-1-x is similar to a bitInvert operation in two complement']!