hg/stx-goodies-regression: RegressionTests__PTYTest.st@bf482d49aeaf (annotated)

1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	1	"{ Package: 'stx:goodies/regression' }"
182 ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	"{ NameSpace: RegressionTests }"
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	TestCase subclass:#PTYTest
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:''
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
1081 bf79870b40e9 category change Claus Gittinger <cg@exept.de> parents: 674 diff changeset	9	category:'tests-Regression-Streams'
182 ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	!PTYTest methodsFor:'tests'!
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	testPTY1
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	\|ptyPair master slave\|
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17
1703 1d4f44ef3cc9 #QUALITY by mawalch mawalch parents: 1700 diff changeset	18	self
1d4f44ef3cc9 #QUALITY by mawalch mawalch parents: 1700 diff changeset	19	skipIf:OperatingSystem isMSDOSlike
1700 0c5fa360fd46 #BUGFIX by sr sr parents: 1447 diff changeset	20	description:'#makePTYPair not implemented in Win32OperatingSystem'.
0c5fa360fd46 #BUGFIX by sr sr parents: 1447 diff changeset	21
674 c84e667f52cb variable renamed in: Stefan Vogel <sv@exept.de> parents: 183 diff changeset	22	ptyPair := NonPositionableExternalStream makePTYPair.
182 ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	master := ptyPair at:1.
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	slave := ptyPair at:2.
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	master nextPutLine:'1234567890'.
183 429f11ad9c1e checkin from browser penk parents: 182 diff changeset	27	'1234567890' do:[:ch \|
1700 0c5fa360fd46 #BUGFIX by sr sr parents: 1447 diff changeset	28	self assert:(slave next = ch).
183 429f11ad9c1e checkin from browser penk parents: 182 diff changeset	29	].
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	30	self assert:(slave next = Character linefeed).
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	31
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	32	master close.
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	33	slave close.
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	34
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	35	"
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	36	self new testPTY1
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	37	"
1703 1d4f44ef3cc9 #QUALITY by mawalch mawalch parents: 1700 diff changeset	38
1d4f44ef3cc9 #QUALITY by mawalch mawalch parents: 1700 diff changeset	39	"Modified: / 18-09-2017 / 11:51:21 / mawalch"
183 429f11ad9c1e checkin from browser penk parents: 182 diff changeset	40	!
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	41
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	42	testPTY2
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	43	\|ptyPair master slave\|
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	44
1703 1d4f44ef3cc9 #QUALITY by mawalch mawalch parents: 1700 diff changeset	45	self
1d4f44ef3cc9 #QUALITY by mawalch mawalch parents: 1700 diff changeset	46	skipIf:OperatingSystem isMSDOSlike
1d4f44ef3cc9 #QUALITY by mawalch mawalch parents: 1700 diff changeset	47	description:'#makePTYPair not implemented in Win32OperatingSystem'.
1700 0c5fa360fd46 #BUGFIX by sr sr parents: 1447 diff changeset	48
674 c84e667f52cb variable renamed in: Stefan Vogel <sv@exept.de> parents: 183 diff changeset	49	ptyPair := NonPositionableExternalStream makePTYPair.
183 429f11ad9c1e checkin from browser penk parents: 182 diff changeset	50	master := ptyPair at:1.
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	51	slave := ptyPair at:2.
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	52
429f11ad9c1e checkin from browser penk parents: 182 diff changeset	53	master nextPutLine:'1234567890'.
182 ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	self assert:(slave nextLine = '1234567890').
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	slave nextPutLine:'1234567890'.
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	self assert:(master nextLine = '1234567890').
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	master close.
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	slave close.
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	"
183 429f11ad9c1e checkin from browser penk parents: 182 diff changeset	63	self new testPTY2
182 ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	"
1703 1d4f44ef3cc9 #QUALITY by mawalch mawalch parents: 1700 diff changeset	65
1d4f44ef3cc9 #QUALITY by mawalch mawalch parents: 1700 diff changeset	66	"Modified: / 18-09-2017 / 11:51:48 / mawalch"
182 ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	! !
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	!PTYTest class methodsFor:'documentation'!
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	version
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	^ '$Header$'
ca050862dad0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	! !
1081 bf79870b40e9 category change Claus Gittinger <cg@exept.de> parents: 674 diff changeset	74

author	Claus Gittinger <cg@exept.de>
	Tue, 09 Jul 2019 18:53:03 +0200
changeset 2327	bf482d49aeaf
parent 1703	1d4f44ef3cc9
permissions	-rw-r--r--