The Trunk: KernelTests-nice.160.mcz

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

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

Name: KernelTests-nice.160
Author: nice
Time: 6 September 2010, 9:53:58.797 pm
UUID: 65ab4bf0-1383-431e-bbd7-b2c7bca0eade
Ancestors: KernelTests-ar.159

Provide tests for #reciprocalModulo:

=============== Diff against KernelTests-ar.159 ===============

Item was added:
+ ----- Method: IntegerTest>>testReciprocalModulo (in category 'testing - arithmetic') -----
+ testReciprocalModulo
+ 1 to: 512 do: [:a |
+ a + 1 to: 512 do: [:b |
+ | c |
+ (a gcd: b) = 1
+ ifTrue:
+ [c := a reciprocalModulo: b.
+ self assert: (a * c) \\ b = 1]
+ ifFalse: [self should: [ a reciprocalModulo: b ] raise: Error]]].!

Item was added:
+ ----- Method: LargePositiveIntegerTest>>testReciprocalModulo (in category 'tests') -----
+ testReciprocalModulo
+ | large r |
+ large := 1 bitShift: 48.
+ r := Random seed: 46912151.
+ 4691 timesRepeat:
+ [| a b c t |
+ a := (r nextInt: large) + 1.
+ b := (r nextInt: large) + 1.
+ a > b ifTrue: [t := a. a:= b. b := t].
+ (a gcd: b) = 1
+ ifTrue:
+ [c := a reciprocalModulo: b.
+ self assert: (a * c) \\ b = 1.]
+ ifFalse: [self should: [ a reciprocalModulo: b ] raise: Error]].!