TestFailure
Assertion failed
RandomTest(TestAsserter)>>assert:description:resumable:
RandomTest(TestAsserter)>>assert:description:
RandomTest(Object)>>assert:
[ :element :occurrence |
				self assert: (element between: 1 and: 100).
				out nextPut: occurrence.
				self assert: (occurrence between: 5 and: 40) ] in [ :out |
			results doWithOccurrences: [ :element :occurrence |
				self assert: (element between: 1 and: 100).
				out nextPut: occurrence.
				self assert: (occurrence between: 5 and: 40) ] ] in RandomTest>>testDistribution
[:assoc | aTwoArgBlock value: assoc key value: assoc value ] in Bag>>doWithOccurrences:
[ :each | each ifNotNil: [ aBlock value: each ] ] in Dictionary>>associationsDo:
Array(SequenceableCollection)>>do:
Dictionary>>associationsDo:
Bag>>doWithOccurrences:
[ :out |
			results doWithOccurrences: [ :element :occurrence |
				self assert: (element between: 1 and: 100).
				out nextPut: occurrence.
				self assert: (occurrence between: 5 and: 40) ] ] in RandomTest>>testDistribution
Array class(SequenceableCollection class)>>new:streamContents:
RandomTest>>testDistribution
RandomTest(TestCase)>>performTest