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

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

Name: KernelTests-nice.361
Author: nice
Time: 3 May 2019, 10:46:16.703499 pm
UUID: 8630d99a-ddab-4914-96bf-7f06d1899cee
Ancestors: KernelTests-pre.360

Apply refactorings of Kernel-nice.1224

=============== Diff against KernelTests-pre.360 ===============

Item was changed:
  ----- Method: LargePositiveIntegerTest>>testDigitDiv (in category 'tests') -----
  testDigitDiv
  	| a b q r qr ap bp |
  	ap := self x23kbits.
  	bp := self x13kbits.
+ 	self assert: (ap digitDivSplit: bp) = ((ap digitDiv: bp neg: false) collect: #normalize).
- 	self assert: (ap recursiveDigitDiv: bp) = ((ap primDigitDiv: bp neg: false) collect: #normalize).
  	#(#yourself #negated) do: [:opa | 
  		#(#yourself #negated) do: [:opb | 
  			a := ap perform: opa.
  			b := bp perform: opb.
  			qr := a digitDiv: b neg: opa ~~ opb.
  			q := qr first normalize.
  			r := qr last normalize.
  			self assert: q * b + r = a.
  			self assert: r abs < b abs.
  			self assert: a positive ==> r positive.
  			self assert: a negative ==> (r negative | r isZero)]]
  	!

Item was changed:
  ----- Method: LargePositiveIntegerTest>>testFastMultiply (in category 'tests') -----
  testFastMultiply
  	| a b ab ap bp |
  	ap := self x92kbits.
  	bp := self x106kbits.
  	#(#yourself #negated) do: [:opa | 
  		#(#yourself #negated) do: [:opb | 
  			a := ap perform: opa.
  			b := bp perform: opb.
  			ab := a * b.
+ 			self assert: (a multiplyByInteger: b) = ab.
+ 			self assert: (a digitMultiply: b neg: a negative ~~ b negative) = ab.
+ 			self assert: (a digitMul22: b) = ab.
+ 			self assert: (a digitMul23: b) = ab.
+ 			self assert: (a digitMul33: b) = ab]]!
- 			self assert: (a fastMultiply: b) = ab.
- 			self assert: (a karatsubaTimes: b) = ab.
- 			self assert: (a toom3Times: b) = ab]]!

Item was changed:
  ----- Method: LargePositiveIntegerTest>>testSquared (in category 'tests') -----
  testSquared
  
  	| large ref |
  	large := self x23kbits.
  	ref := large * large.
  	self assert: ref = large squared.
+ 	self assert: ref = large squaredByHalf.
+ 	self assert: ref = large squaredByThird.
+ 	self assert: ref = large squaredByFourth.!
- 	self assert: ref = large squaredKaratsuba.
- 	self assert: ref = large squaredToom3.
- 	self assert: ref = large squaredToom4.!