David T. Lewis uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-dtl.276.mcz

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

Name: KernelTests-dtl.276
Author: dtl
Time: 22 July 2014, 10:38:16.634 pm
UUID: f6128ad6-87e1-449f-b34d-23c4ae265462
Ancestors: KernelTests-eem.275

Add tests for digit access in large integers. Given a 20 byte large positive or negative integer, verify that digit length, digit at, and digit replacement produce the expected results.

=============== Diff against KernelTests-eem.275 ===============

Item was added:
+ ----- Method: LargeNegativeIntegerTest>>testDigitAt (in category 'tests') -----
+ testDigitAt
+ 
+ 	| lni |
+ 	lni := -114605103402541699037609980192546360895434064385.
+ 	1 to: 20 do: [:i | | digit |
+ 		digit := lni digitAt: i.
+ 		self assert: i equals: digit]
+ !

Item was added:
+ ----- Method: LargeNegativeIntegerTest>>testDigitAtPut (in category 'tests') -----
+ testDigitAtPut
+ 
+ 	| lni |
+ 	lni := LargeNegativeInteger new: 20.
+ 	1 to: 20 do: [:i | lni digitAt: i put: i].
+ 	self assert: -114605103402541699037609980192546360895434064385equals: lni
+ !

Item was added:
+ ----- Method: LargeNegativeIntegerTest>>testDigitLength (in category 'tests') -----
+ testDigitLength
+ 
+ 	| lni |
+ 	lni := -114605103402541699037609980192546360895434064385.
+ 	self assert: 20 equals: lni digitLength
+ !

Item was added:
+ ----- Method: LargeNegativeIntegerTest>>testReplaceFromToWithStartingAt (in category 'tests') -----
+ testReplaceFromToWithStartingAt
+ 
+ 	| lni20 lni7 |
+ 	lni20 := LargeNegativeInteger new: 20.
+ 	1 to: 20 do: [:i | lni20 digitAt: i put: i].
+ 	lni7 := LargeNegativeInteger new: 7.
+ 	1 to: 7 do: [:i | lni7 digitAt: i put: 11 - i].
+ 	lni20 replaceFrom: 6 to: 10 with: lni7 startingAt: 2.
+ 	"unmodified digits"
+ 	(1 to: 5) , (11 to: 20) do: [:e | | digit |
+ 		digit := lni20 digitAt: e.
+ 		self assert: e equals: digit].
+ 	"replaced digits"
+ 	6 to: 10 do: [:e | | digit replacementDigit |
+ 		digit := lni20 digitAt: e.
+ 		replacementDigit := lni7 digitAt: e - 4.
+ 		self assert: replacementDigit equals: digit]
+ !

Item was added:
+ ----- Method: LargePositiveIntegerTest>>testDigitAt (in category 'tests') -----
+ testDigitAt
+ 
+ 	| lpi |
+ 	lpi := 114605103402541699037609980192546360895434064385.
+ 	1 to: 20 do: [:i | | digit |
+ 		digit := lpi digitAt: i.
+ 		self assert: i equals: digit]
+ !

Item was added:
+ ----- Method: LargePositiveIntegerTest>>testDigitAtPut (in category 'tests') -----
+ testDigitAtPut
+ 
+ 	| lpi |
+ 	lpi := LargePositiveInteger new: 20.
+ 	1 to: 20 do: [:i | lpi digitAt: i put: i].
+ 	self assert: 114605103402541699037609980192546360895434064385equals: lpi
+ !

Item was added:
+ ----- Method: LargePositiveIntegerTest>>testDigitLength (in category 'tests') -----
+ testDigitLength
+ 
+ 	| lpi |
+ 	lpi := 114605103402541699037609980192546360895434064385.
+ 	self assert: 20 equals: lpi digitLength
+ !

Item was added:
+ ----- Method: LargePositiveIntegerTest>>testReplaceFromToWithStartingAt (in category 'tests') -----
+ testReplaceFromToWithStartingAt
+ 
+ 	| lpi20 lpi7 |
+ 	lpi20 := LargePositiveInteger new: 20.
+ 	1 to: 20 do: [:i | lpi20 digitAt: i put: i].
+ 	lpi7 := LargePositiveInteger new: 7.
+ 	1 to: 7 do: [:i | lpi7 digitAt: i put: 11 - i].
+ 	lpi20 replaceFrom: 6 to: 10 with: lpi7 startingAt: 2.
+ 	"unmodified digits"
+ 	(1 to: 5) , (11 to: 20) do: [:e | | digit |
+ 		digit := lpi20 digitAt: e.
+ 		self assert: e equals: digit].
+ 	"replaced digits"
+ 	6 to: 10 do: [:e | | digit replacementDigit |
+ 		digit := lpi20 digitAt: e.
+ 		replacementDigit := lpi7 digitAt: e - 4.
+ 		self assert: replacementDigit equals: digit]
+ !