The Trunk: KernelTests-eem.305.mcz

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

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

Name: KernelTests-eem.305
Author: eem
Time: 18 February 2016, 11:04:11.256415 pm
UUID: d8647b92-285c-42ae-8580-35e61dae6b5c
Ancestors: KernelTests-cmm.304

Expand on the process state tests to test more processes and to test the new isBlocked.

=============== Diff against KernelTests-cmm.304 ===============

Item was removed:
- ----- Method: ProcessTest>>testIsSuepended (in category 'tests') -----
- testIsSuepended
- | semaphore |
- self deny: Processor activeProcess isSuspended.
- semaphore := Semaphore new.
- "This process is runnable but hasn't got to the wait yet becasue the active process is running."
- self deny: ([semaphore wait] forkAt: Processor activePriority) isSuspended.
- self deny: ([semaphore wait] forkAt: Processor activePriority) suspendingList == semaphore.
- "This one does get to run because, being higher priority it preempts the active process until it waits on the semaphore.".
- self assert: ([semaphore wait] forkAt: Processor activePriority + 1) isSuspended.
- self assert: ([semaphore wait] forkAt: Processor activePriority + 1) suspendingList == semaphore!

Item was added:
+ ----- Method: ProcessTest>>testProcessStateTests (in category 'tests') -----
+ testProcessStateTests
+ | semaphore |
+ self assert: Processor activeProcess isActiveProcess.
+ self deny: Processor activeProcess isBlocked.
+ self assert: Processor activeProcess isRunnable.
+ self deny: Processor activeProcess isSuspended.
+ self deny: Processor activeProcess isTerminated.
+
+ semaphore := Semaphore new.
+
+ "These processes are runnable but haven't got to the wait yet because the active process is running."
+ self deny: ([semaphore wait] forkAt: Processor activePriority) isActiveProcess.
+ self deny: ([semaphore wait] forkAt: Processor activePriority) isBlocked.
+ self assert: ([semaphore wait] forkAt: Processor activePriority) isRunnable.
+ self deny: ([semaphore wait] forkAt: Processor activePriority) isSuspended.
+ self deny: ([semaphore wait] forkAt: Processor activePriority) isTerminated.
+ self deny: ([semaphore wait] forkAt: Processor activePriority) suspendingList == semaphore.
+
+ "These processes do get to run because, being higher priority they preempt the active process until yhey wait on the semaphore."
+ self deny: ([semaphore wait] forkAt: Processor activePriority + 1) isActiveProcess.
+ self assert: ([semaphore wait] forkAt: Processor activePriority + 1) isBlocked.
+ self deny: ([semaphore wait] forkAt: Processor activePriority + 1) isRunnable.
+ self deny: ([semaphore wait] forkAt: Processor activePriority + 1) isSuspended.
+ self deny: ([semaphore wait] forkAt: Processor activePriority + 1) isTerminated.
+ self assert: ([semaphore wait] forkAt: Processor activePriority + 1) suspendingList == semaphore.
+
+ "These processes should be suspended, not terminated."
+ self deny: ([Processor activeProcess suspend] forkAt: Processor activePriority + 1) isActiveProcess.
+ self deny: ([Processor activeProcess suspend] forkAt: Processor activePriority + 1) isBlocked.
+ self deny: ([Processor activeProcess suspend] forkAt: Processor activePriority + 1) isRunnable.
+ self assert: ([Processor activeProcess suspend] forkAt: Processor activePriority + 1) isSuspended.
+ self deny: ([Processor activeProcess suspend] forkAt: Processor activePriority + 1) isTerminated.
+ self assert: ([Processor activeProcess suspend] forkAt: Processor activePriority + 1) suspendingList isNil.
+
+ "These processes should be terminated, not suspended."
+ self deny: ([Processor activeProcess terminate] forkAt: Processor activePriority + 1) isActiveProcess.
+ self deny: ([Processor activeProcess terminate] forkAt: Processor activePriority + 1) isBlocked.
+ self deny: ([Processor activeProcess terminate] forkAt: Processor activePriority + 1) isRunnable.
+ self deny: ([Processor activeProcess terminate] forkAt: Processor activePriority + 1) isSuspended.
+ self assert: ([Processor activeProcess terminate] forkAt: Processor activePriority + 1) isTerminated.
+ self assert: ([Processor activeProcess terminate] forkAt: Processor activePriority + 1) suspendingList isNil.
+
+ "These processes should be suspended."
+ self deny: (([semaphore wait] forkAt: Processor activePriority) suspend; yourself) isActiveProcess.
+ self deny: (([semaphore wait] forkAt: Processor activePriority) suspend; yourself) isBlocked.
+ self deny: (([semaphore wait] forkAt: Processor activePriority) suspend; yourself) isRunnable.
+ self assert: (([semaphore wait] forkAt: Processor activePriority) suspend; yourself) isSuspended.
+ self deny: (([semaphore wait] forkAt: Processor activePriority) suspend; yourself) isTerminated.
+
+ "These processes should be terminated."
+ self deny: ([semaphore wait] forkAt: Processor activePriority) terminate isActiveProcess.
+ self deny: ([semaphore wait] forkAt: Processor activePriority) terminate isBlocked.
+ self deny: ([semaphore wait] forkAt: Processor activePriority) terminate isRunnable.
+ self deny: ([semaphore wait] forkAt: Processor activePriority) terminate isSuspended.
+ self assert: ([semaphore wait] forkAt: Processor activePriority) terminate isTerminated!