hg/stx-goodies-xtreams: terminals/tests/Xtreams__FileReadingWritingTest.st@263190106319 (annotated)

9 6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	1	"{ Package: 'stx:goodies/xtreams/terminals/tests' }"
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	2
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	3	"{ NameSpace: Xtreams }"
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	4
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	5	FiniteReadingWritingTests subclass:#FileReadingWritingTest
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	6	instanceVariableNames:'file'
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	7	classVariableNames:''
26 d740fff525d4 added XtreamsPool to fix DefaultBufferSize; set proper category names mkobetic parents: 9 diff changeset	8	poolDictionaries:'XtreamsPool'
d740fff525d4 added XtreamsPool to fix DefaultBufferSize; set proper category names mkobetic parents: 9 diff changeset	9	category:'Xtreams-Terminals-Tests'
9 6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	10	!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	11
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	12
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	13	!FileReadingWritingTest methodsFor:'initialize-release'!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	14
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	15	setUp
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	16
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	17	file := '<1s>-<2s>' expandMacrosWith: self class name with: testSelector.
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	18	file :=
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	19	(OSHandle currentOS = #unix and: [ '/dev/shm' asFilename exists ])
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	20	ifTrue: [ ('/dev/shm/', file) asFilename ]
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	21	ifFalse: [ file asFilename ].
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	22	output := file writing.
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	23	input := file reading.
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	24	!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	25
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	26	tearDown
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	27
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	28	input close.
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	29	output close.
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	30	file delete
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	31	! !
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	32
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	33	!FileReadingWritingTest methodsFor:'tests - core'!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	34
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	35	testInsert
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	36	"Do nothing, since files are not expected to implement insert:* "
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	37	! !
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	38
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	39	!FileReadingWritingTest class methodsFor:'documentation'!
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	40
112 b6b3d8435bb7 - Xtreams::FileReadingWritingTest joe parents: 71 diff changeset	41	version_HG
b6b3d8435bb7 - Xtreams::FileReadingWritingTest joe parents: 71 diff changeset	42
b6b3d8435bb7 - Xtreams::FileReadingWritingTest joe parents: 71 diff changeset	43	^ '$Changeset: <not expanded> $'
b6b3d8435bb7 - Xtreams::FileReadingWritingTest joe parents: 71 diff changeset	44	!
b6b3d8435bb7 - Xtreams::FileReadingWritingTest joe parents: 71 diff changeset	45
9 6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	46	version_SVN
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	47	^ '$Id$'
6c90659cf105 first cut Martin Kobetic <mkobetic@gmail.com> parents: diff changeset	48	! !
112 b6b3d8435bb7 - Xtreams::FileReadingWritingTest joe parents: 71 diff changeset	49

author	Martin Kobetic
	Sun, 17 Nov 2013 00:21:39 -0500
changeset 141	263190106319
parent 112	b6b3d8435bb7
permissions	-rw-r--r--