[Pkg] The Trunk: KernelTests-nice.214.mcz

[commits at source.squeak.org]

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

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

Name: KernelTests-nice.214
Author: nice
Time: 3 March 2012, 3:22:15.752 pm
UUID: 9f9a6dfc-5949-414f-aaeb-99d26e27111c
Ancestors: KernelTests-ul.213

Add RandomTest>>testWellKnownSequence
This is to replace Random>>theItsCompletelyBrokenTest.

=============== Diff against KernelTests-ul.213 ===============

Item was added:
+ ----- Method: RandomTest>>testWellKnownSequence (in category 'tests') -----
+ testWellKnownSequence
+ 	"This test assert the immutability of Random generation algorithm.
+ 	It uses Float equality tests, which is a very strict notion of immutability.
+ 	Anyone changing Random algorithm will have to adapt this test."
+ 	
+ 	| theSeedOfWellKnownSequence wellKnownSequence rng effectiveSequence |
+ 	theSeedOfWellKnownSequence := 2345678901.
+ 	wellKnownSequence := #(0.14924326965084453 0.3316330217437972 0.7561964480002394 0.3937015400238808 0.9417831813645471 0.5499291939427746 0.6599625962134277 0.991354559078512 0.6960744325518955 0.922987899707159 ).
+ 	rng := Random new.
+ 	rng seed: theSeedOfWellKnownSequence.
+ 	effectiveSequence := (1 to: 10) collect: [:i | rng next ].
+ 	self assert: effectiveSequence equals: wellKnownSequence!