--- a/RegressionTests__SharedQueueTest.st Wed Jun 29 13:00:17 2016 +0000
+++ b/RegressionTests__SharedQueueTest.st Wed Jun 29 15:55:29 2016 +0200
@@ -1,4 +1,4 @@
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -23,19 +23,19 @@
s2 := ReadWriteStream on:(Array new:1000).
p1 := [
- [
- s1 nextPut:q next
- ] loop.
+ [
+ s1 nextPut:q next
+ ] loop.
] fork.
p2 := [
- [
- s2 nextPut:q next
- ] loop.
+ [
+ s2 nextPut:q next
+ ] loop.
] fork.
1 to:1000 do:[:i|
- q nextPut:i
+ q nextPut:i
].
Delay waitForMilliseconds:20.
@@ -52,17 +52,17 @@
next2 := s2 next.
1 to: 1000 do:[:i|
- self should:[
- next1 == i ifTrue:[
- next1 := s1 next.
- true.
- ] ifFalse:[
- next2 == i ifTrue:[
- next2 := s2 next.
- true
- ].
- ]
- ]
+ self should:[
+ next1 == i ifTrue:[
+ next1 := s1 next.
+ true.
+ ] ifFalse:[
+ next2 == i ifTrue:[
+ next2 := s2 next.
+ true
+ ].
+ ]
+ ]
].
!
@@ -77,25 +77,25 @@
s2 := ReadWriteStream on:(Array new:20000).
p1 := [
- [
- s1 nextPut:q next
- ] loop.
+ [
+ s1 nextPut:q next
+ ] loop.
] fork.
p2 := [
- [
- s2 nextPut:q next
- ] loop.
+ [
+ s2 nextPut:q next
+ ] loop.
] fork.
pw := [
- 1 to:10000 do:[:i|
- q nextPut:i+scale
- ].
+ 1 to:10000 do:[:i|
+ q nextPut:i+scale
+ ].
] fork.
1 to:10000 do:[:i|
- q nextPut:i
+ q nextPut:i
].
pw waitUntilTerminated.
@@ -111,23 +111,23 @@
next1 := next2 := 0.
self should:[
- s1 contents conform:[:i|
- i < scale ifTrue:[
- next1 < i and:[next1 := i. true]
- ] ifFalse:[
- next2 < i and:[next2 := i. true]
- ].
- ].
+ s1 contents conform:[:i|
+ i < scale ifTrue:[
+ next1 < i and:[next1 := i. true]
+ ] ifFalse:[
+ next2 < i and:[next2 := i. true]
+ ].
+ ].
].
next1 := next2 := 0.
self should:[
- s2 contents conform:[:i|
- i < scale ifTrue:[
- next1 < i and:[next1 := i. true]
- ] ifFalse:[
- next2 < i and:[next2 := i. true]
- ].
- ].
+ s2 contents conform:[:i|
+ i < scale ifTrue:[
+ next1 < i and:[next1 := i. true]
+ ] ifFalse:[
+ next2 < i and:[next2 := i. true]
+ ].
+ ].
].
s1 reset.
@@ -138,8 +138,8 @@
all addAll:s2 contents.
1 to: 10000 do:[:i|
- self assert:((all at:i) == i).
- self assert:((all at:(i+10000)) == (i+scale)).
+ self assert:((all at:i) == i).
+ self assert:((all at:(i+10000)) == (i+scale)).
].
!