70 lines
1.2 KiB
Smalltalk
70 lines
1.2 KiB
Smalltalk
##
|
|
## TEST CASES for basic methods
|
|
##
|
|
|
|
#include 'Moo.moo'.
|
|
|
|
#################################################################
|
|
## MAIN
|
|
#################################################################
|
|
|
|
class MyObject(Object)
|
|
{
|
|
var(#class) t1 := 20.
|
|
|
|
method(#class) test_terminate
|
|
{
|
|
| a s |
|
|
s := Semaphore new.
|
|
a := [ self.t1 := self.t1 * 9.
|
|
s signal.
|
|
Processor activeProcess terminate.
|
|
self.t1 := self.t1 + 20 ] fork.
|
|
s wait.
|
|
^self.t1
|
|
}
|
|
|
|
method(#class) test_sg
|
|
{
|
|
| sg s1 s2 s3 |
|
|
|
|
s1 := Semaphore new.
|
|
s2 := Semaphore new.
|
|
s3 := Semaphore new.
|
|
|
|
sg := SemaphoreGroup new.
|
|
sg addSemaphore: s1.
|
|
sg addSemaphore: s2.
|
|
sg addSemaphore: s3.
|
|
|
|
Processor signal: s1 onInput: 0.
|
|
Processor signal: s2 onInput: 0. ## this should raise an exception.
|
|
Processor signal: s3 onInput: 0.
|
|
|
|
[ sg wait. ] fork.
|
|
[ sg wait. ] fork.
|
|
[ sg wait. ] fork.
|
|
|
|
sg wait.
|
|
}
|
|
|
|
method(#class) main
|
|
{
|
|
| tc limit |
|
|
|
|
tc := %(
|
|
## 0 - 4
|
|
[self test_terminate == 180],
|
|
[self test_sg == nil]
|
|
).
|
|
|
|
limit := tc size.
|
|
|
|
0 priorTo: limit by: 1 do: [ :idx |
|
|
| tb |
|
|
tb := tc at: idx.
|
|
System log(System.Log.INFO, idx asString, (if (tb value) { ' PASS' } else { ' FAIL' }), S'\n').
|
|
]
|
|
}
|
|
}
|