hg/jv-libgdbs: tests/GDBInternalPipeStreamTests.st@4662b462b28e (annotated)

14 535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:libgdbs/tests' }"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	TestCase subclass:#GDBInternalPipeStreamTests
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4	instanceVariableNames:''
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	classVariableNames:''
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	poolDictionaries:''
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	category:'GDB-Support-Tests'
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	!GDBInternalPipeStreamTests methodsFor:'tests'!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	test_01
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	\| pipe \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	pipe := GDBInternalPipeStream newWithBufferSize:3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	pipe nextPut:$x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	pipe nextPut:$y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	self assert:pipe next == $x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	self assert:pipe next == $y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	"Created: / 07-06-2014 / 00:52:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	test_01a
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	\| pipe \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	pipe := GDBInternalPipeStream newWithBufferSize:3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	pipe nextPutAll:'xy'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	self assert:(pipe next:2) = 'xy'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	"Created: / 09-06-2014 / 21:45:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	test_01c
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	\| pipe \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	pipe := GDBInternalPipeStream newWithBufferSize:3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	pipe nextPut:$x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	pipe nextPut:$y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	self assert:(pipe next:2) = 'xy'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	"Created: / 09-06-2014 / 21:46:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	test_02
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	\| pipe \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	pipe := GDBInternalPipeStream newWithBufferSize:3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	pipe nextPut:$x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	pipe nextPut:$y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	pipe nextPut:$z.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	self assert:pipe next == $x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	self assert:pipe next == $y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	pipe nextPut:$a.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	pipe nextPut:$b.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	self assert:pipe next == $z.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	self assert:pipe next == $a.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	self assert:pipe next == $b.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	"Created: / 07-06-2014 / 00:53:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	test_02b
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	\| pipe \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	pipe := GDBInternalPipeStream newWithBufferSize:3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	pipe nextPutAll:'xyz'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	self assert:pipe next == $x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	self assert:pipe next == $y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	pipe nextPutAll:'ab'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	self assert:pipe next == $z.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	self assert:pipe next == $a.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	self assert:pipe next == $b.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	"Created: / 09-06-2014 / 22:42:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	test_02c
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	\| pipe \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	pipe := GDBInternalPipeStream newWithBufferSize:3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	pipe nextPutAll:'xy'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	self assert:pipe next == $x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	pipe nextPutAll:'ab'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	self assert:pipe next == $y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	self assert:pipe next == $a.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	self assert:pipe next == $b.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	"Created: / 09-06-2014 / 22:46:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	test_03
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	\| pipe \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	pipe := GDBInternalPipeStream newWithBufferSize:3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	pipe nextPut:$x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	pipe nextPut:$y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	pipe nextPut:$z.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	self assert:pipe next == $x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	self assert:pipe next == $y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	pipe nextPut:$a.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	pipe nextPut:$b.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	self assert:pipe next == $z.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	self assert:pipe next == $a.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	pipe nextPut:$1.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	pipe nextPut:$2.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	self assert:pipe next == $b.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	self assert:pipe next == $1.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	self assert:pipe next == $2.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	"Created: / 07-06-2014 / 00:56:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	test_04
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	\| pipe \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	pipe := GDBInternalPipeStream newWithBufferSize:3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	pipe nextPut:$x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	pipe nextPut:$y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	pipe close.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	self should:[ pipe nextPut:$X ] raise:Stream writeErrorSignal.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	self assert:pipe atEnd not.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	self assert:pipe next == $x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	self assert:pipe next == $y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	self assert:pipe next isNil.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	self assert:pipe atEnd.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	"Created: / 07-06-2014 / 01:06:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	test_05a
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	\| pipe buffer \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	pipe := GDBInternalPipeStream newWithBufferSize:3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	buffer := String new:10.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	pipe nextPutAll:'xy'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	pipe nextPut:$z.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139	self
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	assert:(pipe
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	nextAvailableBytes:3
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	into:buffer
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	startingAt:1) == 3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	self assert:(buffer at:1) == $x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145	self assert:(buffer at:2) == $y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	self assert:(buffer at:3) == $z.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	"Created: / 10-06-2014 / 00:01:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	test_05b
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152	\| pipe buffer \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154	pipe := GDBInternalPipeStream newWithBufferSize:3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	buffer := String new:10.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	pipe nextPutAll:'xy'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	pipe nextPut:$z.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	self
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	assert:(pipe
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160	nextAvailableBytes:30
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	into:buffer
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162	startingAt:1) == 3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	self assert:(buffer at:1) == $x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	self assert:(buffer at:2) == $y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	self assert:(buffer at:3) == $z.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	"Created: / 10-06-2014 / 00:01:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	test_05c
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	\| pipe buffer \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173	pipe := GDBInternalPipeStream newWithBufferSize:3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	buffer := String new:10.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	pipe nextPutAll:'xy'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	pipe nextPut:$z.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177	self
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	assert:(pipe
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179	nextAvailableBytes:2
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180	into:buffer
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181	startingAt:1) == 2.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182	self assert:(buffer at:1) == $x.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	self assert:(buffer at:2) == $y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	self
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	assert:(pipe
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186	nextAvailableBytes:2
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	into:buffer
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	startingAt:3) == 1.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	self assert:(buffer at:3) == $z.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	"Created: / 10-06-2014 / 00:01:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	test_05d
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	\| pipe buffer \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	pipe := GDBInternalPipeStream newWithBufferSize:3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	buffer := String new:10.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	pipe nextPutAll:'xy'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	pipe next.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	pipe nextPutAll:'ab'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	self
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	assert:(pipe
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	nextAvailableBytes:3
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	into:buffer
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	startingAt:1) == 2.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	self assert:(buffer at:1) == $y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	self assert:(buffer at:2) == $a.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	self assert:(buffer at:3) == $b.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	"Created: / 10-06-2014 / 00:21:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214	test_05e
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215	\| pipe buffer \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217	pipe := GDBInternalPipeStream newWithBufferSize:3.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218	buffer := String new:10.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	219	pipe nextPutAll:'xy'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220	pipe next.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221	pipe nextPutAll:'ab'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	self
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223	assert:(pipe
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	nextAvailableBytes:3
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225	into:buffer
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226	startingAt:1) == 2.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	self assert:(buffer at:1) == $y.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228	self assert:(buffer at:2) == $a.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	self assert:(buffer at:3) == $b.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	"Created: / 10-06-2014 / 00:28:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234	test_06a
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	\| pipe buffer \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	pipe := GDBInternalPipeStream newWithBufferSize:15.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	buffer := String new:10.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	pipe nextPutAll:'xy'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	pipe nextPut:Character nl.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	self assert:pipe nextLine = 'xy'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	pipe nextPutAll:'ayz z'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	pipe nextPut:Character nl.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244	self assert:pipe nextLine = 'ayz z'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246	"Created: / 11-06-2014 / 13:06:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247	!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	test_06b
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250	\| pipe \|
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252	pipe := GDBInternalPipeStream new.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253	pipe nextPutAll:'show inferior-tty'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254	pipe nextPut:Character cr.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255	self assert:pipe nextLine = 'show inferior-tty'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	pipe nextPutAll:'ayz z'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257	pipe nextPut:Character nl.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258	self assert:pipe nextLine = 'ayz z'.
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	260	"Created: / 11-06-2014 / 13:19:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	"Modified: / 11-06-2014 / 21:39:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
34 4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	262	!
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	263
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	264	test_07a
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	265	\| pipe t1 t1stepper t1blocker t2 t2stepper t2blocker c \|
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	266
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	267	pipe := GDBInternalPipeStream newWithBufferSize:5.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	268	t1stepper := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	269	t1blocker := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	270	t2stepper := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	271	t2blocker := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	272
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	273
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	274	t1 := [
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	275	t1stepper wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	276	pipe nextPutAll: '123456'.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	277	] newProcess.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	278	t1 addExitAction:[t1blocker signal].
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	279
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	280	t2 := [
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	281	t2stepper wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	282	c := pipe next.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	283	] newProcess.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	284	t2 addExitAction:[t2blocker signal].
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	285
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	286	t1 resume.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	287	t2 resume.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	288
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	289	t1stepper signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	290	Delay waitForMilliseconds:100.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	291	t2stepper signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	292
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	293	t1blocker wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	294	t2blocker wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	295
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	296	self assert: c = $1.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	297	self assert: t1 isDead.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	298	self assert: t2 isDead.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	299
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	300	"Created: / 07-09-2014 / 07:45:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	301	!
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	302
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	303	test_07b
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	304	\| pipe t1 t1stepper t1blocker t2 t2stepper t2blocker c \|
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	305
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	306	pipe := GDBInternalPipeStream newWithBufferSize:5.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	307	t1stepper := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	308	t1blocker := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	309	t2stepper := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	310	t2blocker := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	311
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	312
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	313	t1 := [
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	314	t1stepper wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	315	pipe nextPutAll: '123456'.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	316	t1blocker signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	317	] newProcess.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	318
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	319	t2 := [
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	320	t2stepper wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	321	c := pipe next.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	322	t2blocker signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	323	] newProcess.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	324
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	325	t1 resume.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	326	t2 resume.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	327
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	328	t2stepper signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	329	Delay waitForMilliseconds:100.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	330	t1stepper signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	331
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	332
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	333	t1blocker wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	334	t2blocker wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	335
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	336	self assert: c = $1.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	337	self assert: t1 isDead.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	338	self assert: t2 isDead.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	339
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	340	"Created: / 07-09-2014 / 07:46:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	341	!
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	342
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	343	test_08a
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	344	\| pipe t1 t1stepper t1blocker t2 t2stepper t2blocker c \|
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	345
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	346	pipe := GDBInternalPipeStream newWithBufferSize:5.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	347	t1stepper := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	348	t1blocker := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	349	t2stepper := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	350	t2blocker := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	351
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	352
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	353	t1 := [
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	354	t1stepper wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	355	pipe nextPutAll: '123456'.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	356	t1blocker signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	357	] newProcess.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	358	t1 addExitAction:[t1blocker signal].
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	359
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	360	t2 := [
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	361	t2stepper wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	362	c := pipe next:6.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	363	] newProcess.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	364	t2 addExitAction:[t2blocker signal].
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	365
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	366	t1 resume.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	367	t2 resume.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	368
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	369	t1stepper signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	370	Delay waitForMilliseconds:100.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	371	t2stepper signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	372
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	373
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	374	t1blocker wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	375	t2blocker wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	376
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	377	self assert: c = '123456'.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	378	self assert: t1 isDead.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	379	self assert: t2 isDead.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	380
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	381	"Created: / 07-09-2014 / 07:48:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	382	!
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	383
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	384	test_08b
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	385	\| pipe t1 t1stepper t1blocker t2 t2stepper t2blocker c \|
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	386
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	387	pipe := GDBInternalPipeStream newWithBufferSize:5.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	388	t1stepper := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	389	t1blocker := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	390	t2stepper := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	391	t2blocker := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	392
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	393
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	394	t1 := [
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	395	t1stepper wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	396	pipe nextPutAll: '123456'.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	397	] newProcess.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	398	t1 addExitAction:[t1blocker signal].
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	399
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	400	t2 := [
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	401	t2stepper wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	402	c := pipe next:6.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	403	] newProcess.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	404	t2 addExitAction:[t2blocker signal].
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	405
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	406	t1 resume.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	407	t2 resume.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	408
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	409	t2stepper signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	410	Delay waitForMilliseconds:100.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	411	t1stepper signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	412
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	413
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	414	t1blocker wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	415	t2blocker wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	416
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	417	self assert: c = '123456'.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	418	self assert: t1 isDead.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	419	self assert: t2 isDead.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	420
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	421	"Created: / 07-09-2014 / 07:48:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	422	!
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	423
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	424	test_09a
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	425	\| pipe t1 t1stepper t1blocker t2 t2stepper t2blocker c \|
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	426
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	427	pipe := GDBInternalPipeStream newWithBufferSize:5.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	428	t1stepper := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	429	t1blocker := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	430	t2stepper := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	431	t2blocker := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	432
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	433
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	434	t1 := [
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	435	t1stepper wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	436	pipe nextPutAll: '1234567'.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	437	] newProcess.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	438	t1 addExitAction:[t1blocker signal].
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	439
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	440	t2 := [
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	441	t2stepper wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	442	c := pipe next:7.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	443	] newProcess.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	444	t2 addExitAction:[t2blocker signal].
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	445
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	446	t1 resume.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	447	t2 resume.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	448
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	449	t1stepper signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	450	Delay waitForMilliseconds:100.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	451	t2stepper signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	452
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	453
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	454	t1blocker wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	455	t2blocker wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	456
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	457	self assert: c = '1234567'.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	458	self assert: t1 isDead.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	459	self assert: t2 isDead.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	460
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	461	"Created: / 07-09-2014 / 07:50:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	462	!
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	463
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	464	test_09b
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	465	\| pipe t1 t1stepper t1blocker t2 t2stepper t2blocker c \|
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	466
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	467	pipe := GDBInternalPipeStream newWithBufferSize:5.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	468	t1stepper := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	469	t1blocker := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	470	t2stepper := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	471	t2blocker := Semaphore new.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	472
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	473
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	474	t1 := [
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	475	t1stepper wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	476	pipe nextPutAll: '1234567'.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	477	] newProcess.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	478	t1 addExitAction:[t1blocker signal].
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	479
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	480	t2 := [
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	481	t2stepper wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	482	c := pipe next:7.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	483	] newProcess.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	484	t2 addExitAction:[t2blocker signal].
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	485
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	486	t1 resume.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	487	t2 resume.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	488
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	489	t2stepper signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	490	Delay waitForMilliseconds:100.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	491	t1stepper signal.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	492
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	493
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	494	t1blocker wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	495	t2blocker wait.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	496
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	497	self assert: c = '1234567'.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	498	self assert: t1 isDead.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	499	self assert: t2 isDead.
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	500
4662b462b28e Fixes for GDBInternalPipeStream w.r.t multiple threads. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	501	"Created: / 07-09-2014 / 07:51:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14 535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	502	! !
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	503
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	504	!GDBInternalPipeStreamTests class methodsFor:'documentation'!
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	505
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	506	version_HG
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	507
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	508	^ '$Changeset: <not expanded> $'
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	509	! !
535e7f16c05a Moved VDBInternalPipeStream from jv:vdb to jv:libgdbs and renamed to GDBInternalPipeStream Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	510

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sun, 07 Sep 2014 08:20:01 +0100
changeset 34	4662b462b28e
parent 14	535e7f16c05a
child 36	095c4b0b74d3
permissions	-rw-r--r--