Marcel Taeumel uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-mt.407.mcz

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

Name: KernelTests-mt.407
Author: mt
Time: 8 October 2021, 9:01:22.582201 am
UUID: 80e9eb0e-fec1-d54b-8ada-003bd1b77454
Ancestors: KernelTests-ul.406

Tests complementing Kernel-mt.1417

=============== Diff against KernelTests-ul.406 ===============

Item was added:
+ ----- Method: IntegerTest>>testRoundDownTo (in category 'tests - truncation and round off') -----
+ testRoundDownTo
+ 
+ 	self
+ 		assert: #( -40 -40 -40 -20 -20 -20 0 0 0 20 20 20 40 )
+ 		equals: (#( -40 -30 -29 -20 -10 -9 0 9 10 20 29 30 40 )
+ 			collect: [:num | num roundDownTo: 20]).!

Item was added:
+ ----- Method: IntegerTest>>testRoundTo (in category 'tests - truncation and round off') -----
+ testRoundTo
+ 
+ 	self
+ 		assert: #( -40 -40 -20 -20 -20 0 0 0 20 20 20 40 40 )
+ 		equals: (#( -40 -30 -29 -20 -10 -9 0 9 10 20 29 30 40 )
+ 			collect: [:num | num roundTo: 20]).!

Item was added:
+ ----- Method: IntegerTest>>testRoundUpTo (in category 'tests - truncation and round off') -----
+ testRoundUpTo
+ 
+ 	self
+ 		assert: #( -40 -20 -20 -20 0 0 0 20 20 20 40 40 40 )
+ 		equals: (#( -40 -30 -29 -20 -10 -9 0 9 10 20 29 30 40 )
+ 			collect: [:num | num roundUpTo: 20]).!

Item was added:
+ ----- Method: NumberTest>>testRoundTo (in category 'tests - trunction and round off') -----
+ testRoundTo
+ 
+ 	{
+ 		1 . 1.0 . 1.0 .
+ 		1.0 . 1 . 1 .
+ 		1/3 . 1/4 . 1/4 . 
+ 		0.9 . 1/3 . 1 .
+ 	} groupsDo: [:receiver :argument :expected |
+ 		self assert: expected equals: (receiver roundTo: argument)]!