[Pkg] The Trunk: KernelTests-eem.289.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Feb 18 00:12:14 UTC 2015
Eliot Miranda uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-eem.289.mcz
==================== Summary ====================
Name: KernelTests-eem.289
Author: eem
Time: 17 February 2015, 4:12:02.897 pm
UUID: 64e0435e-3bad-413e-9523-d0d35493ee61
Ancestors: KernelTests-eem.288
Fix the 64-bitized testCreationFromBytes tests.
The read bytes need to be reversed.
=============== Diff against KernelTests-eem.288 ===============
Item was changed:
----- Method: IntegerTest>>testCreationFromBytes1 (in category 'tests - instance creation') -----
testCreationFromBytes1
"self run: #testCreationFromBytes1"
"it is illegal for a LargeInteger to be less than SmallInteger maxVal."
"here we test that Integer>>byte!!byte2:byte3:byte4: resconstructs SmallInteger maxVal as an instance of SmallInteger. "
| maxSmallInt hexString
builtInteger bytes |
maxSmallInt := SmallInteger maxVal.
hexString := maxSmallInt printStringHex.
hexString size odd ifTrue:
[hexString := '0', hexString].
self assert: hexString size / 2 = maxSmallInt digitLength.
+ bytes := ((1 to: hexString size by: 2) collect:
+ [:i| Number readFrom: (hexString copyFrom: i to: i + 1) base: 16]) reversed.
- bytes := (1 to: hexString size by: 2) collect:
- [:i| Number readFrom: (hexString copyFrom: i to: i + 1) base: 16].
builtInteger := bytes size > 4
ifTrue:
[Integer
byte1: (bytes at: 1) byte2: (bytes at: 2) byte3: (bytes at: 3) byte4: (bytes at: 4)
byte5: (bytes at: 5) byte6: (bytes at: 6) byte7: (bytes at: 7) byte8: (bytes at: 8)]
ifFalse:
[Integer
byte1: (bytes at: 1) byte2: (bytes at: 2) byte3: (bytes at: 3) byte4: (bytes at: 4)].
self assert: builtInteger = maxSmallInt.
self assert: builtInteger class = SmallInteger
!
Item was changed:
----- Method: IntegerTest>>testCreationFromBytes2 (in category 'tests - instance creation') -----
testCreationFromBytes2
"self run: #testCreationFromBytes2"
"it is illegal for a LargeInteger to be less than SmallInteger maxVal."
"here we test that Integer>>byte!!byte2:byte3:byte4: resconstructs (SmallInteger maxVal + 1) as an instance of LargePositiveInteger. "
| maxSmallInt hexString builtInteger bytes |
maxSmallInt := SmallInteger maxVal.
hexString := (maxSmallInt + 1) printStringHex.
hexString size odd ifTrue:
[hexString := '0', hexString].
self assert: hexString size / 2 = maxSmallInt digitLength.
+ bytes := ((1 to: hexString size by: 2) collect:
+ [:i| Number readFrom: (hexString copyFrom: i to: i + 1) base: 16]) reversed.
- bytes := (1 to: hexString size by: 2) collect:
- [:i| Number readFrom: (hexString copyFrom: i to: i + 1) base: 16].
builtInteger := bytes size > 4
ifTrue:
[Integer
byte1: (bytes at: 1) byte2: (bytes at: 2) byte3: (bytes at: 3) byte4: (bytes at: 4)
byte5: (bytes at: 5) byte6: (bytes at: 6) byte7: (bytes at: 7) byte8: (bytes at: 8)]
ifFalse:
[Integer
byte1: (bytes at: 1) byte2: (bytes at: 2) byte3: (bytes at: 3) byte4: (bytes at: 4)].
self assert: builtInteger = (maxSmallInt + 1).
self deny: builtInteger class = SmallInteger
!
Item was changed:
----- Method: IntegerTest>>testCreationFromBytes3 (in category 'tests - instance creation') -----
testCreationFromBytes3
"self run: #testCreationFromBytes3"
"it is illegal for a LargeInteger to be less than SmallInteger maxVal."
"here we test that Integer>>byte!!byte2:byte3:byte4: resconstructs (SmallInteger maxVal - 1) as an instance of SmallInteger. "
| maxSmallInt hexString
builtInteger bytes |
maxSmallInt := SmallInteger maxVal.
hexString := (maxSmallInt - 1) printStringHex.
hexString size odd ifTrue:
[hexString := '0', hexString].
self assert: hexString size / 2 = maxSmallInt digitLength.
+ bytes := ((1 to: hexString size by: 2) collect:
+ [:i| Number readFrom: (hexString copyFrom: i to: i + 1) base: 16]) reversed.
- bytes := (1 to: hexString size by: 2) collect:
- [:i| Number readFrom: (hexString copyFrom: i to: i + 1) base: 16].
builtInteger := bytes size > 4
ifTrue:
[Integer
byte1: (bytes at: 1) byte2: (bytes at: 2) byte3: (bytes at: 3) byte4: (bytes at: 4)
byte5: (bytes at: 5) byte6: (bytes at: 6) byte7: (bytes at: 7) byte8: (bytes at: 8)]
ifFalse:
[Integer
byte1: (bytes at: 1) byte2: (bytes at: 2) byte3: (bytes at: 3) byte4: (bytes at: 4)].
self assert: builtInteger = (maxSmallInt - 1).
self assert: builtInteger class = SmallInteger
!
More information about the Packages
mailing list