[Pkg] The Trunk: KernelTests-eem.329.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-eem.329.mcz

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

Name: KernelTests-eem.329
Author: eem
Time: 31 May 2017, 10:43:19.068997 am
UUID: 62f89132-ccc4-4461-8c04-596678fe9686
Ancestors: KernelTests-ul.328

Kernel tests harvested from Terf.

=============== Diff against KernelTests-ul.328 ===============

Item was added:
+ ----- Method: NumberParsingTest>>testFloatReadWithImplicitLeadingZero (in category 'tests - Float') -----
+ testFloatReadWithImplicitLeadingZero
+ 	"Test support for implicit leading zeroes when reading numbers from Strings."
+ 	self should: [-0.22 = '-.22' asNumber].
+ 	self should: [0.22 = '.22' asNumber].
+ !

Item was added:
+ ----- Method: SemaphoreTest>>testSemaAfterCriticalWait (in category 'testing') -----
+ testSemaAfterCriticalWait	"self run: #testSemaAfterCriticalWait"
+ 	"This tests whether a semaphore that has just left the wait in Semaphore>>critical:
+ 	leaves it with signaling the associated semaphore."
+ 	| s p |
+ 	s := Semaphore new.
+ 	p := [s critical:[]] forkAt: Processor activePriority-1.
+ 	"wait until p entered the critical section"
+ 	[p suspendingList == s] whileFalse:[(Delay forMilliseconds: 10) wait].
+ 	"Now that p entered it, signal the semaphore. p now 'owns' the semaphore
+ 	but since we are running at higher priority than p it will not get to do
+ 	anything."
+ 	s signal.
+ 	p terminate.
+ 	self assert: ((s instVarNamed: #excessSignals) = 1)!

Item was added:
+ ----- Method: SemaphoreTest>>testSemaInCriticalWait (in category 'testing') -----
+ testSemaInCriticalWait	"self run: #testSemaInCriticalWait"
+ 	"This tests whether a semaphore that has entered the wait in Semaphore>>critical:
+ 	leaves it without signaling the associated semaphore."
+ 	| s p |
+ 	s := Semaphore new.
+ 	p := [s critical:[]] fork.
+ 	Processor yield.
+ 	self assert:(p suspendingList == s).
+ 	p terminate.
+ 	self assert:((s instVarNamed: #excessSignals) = 0)!