[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