"{ Package: 'stx:goodies/xtreams/terminals/tests' }"

"{ NameSpace: Xtreams }"

FiniteReadingWritingTests subclass:#FileReadingWritingTest
	instanceVariableNames:'file'
	classVariableNames:''
	poolDictionaries:'OS'
	category:'Xtreams'
!


!FileReadingWritingTest methodsFor:'initialize-release'!

setUp

	file := '<1s>-<2s>' expandMacrosWith: self class name with: testSelector.
	file :=
		(OSHandle currentOS = #unix and: [ '/dev/shm' asFilename exists ])
			ifTrue: [ ('/dev/shm/', file) asFilename ]
			ifFalse: [ file asFilename ].
	output := file writing.
	input := file reading.
!

tearDown

	input close.
	output close.
	file delete
! !

!FileReadingWritingTest methodsFor:'tests - core'!

testInsert
	"Do nothing, since files are not expected to implement insert:* "
! !

!FileReadingWritingTest class methodsFor:'documentation'!

version_SVN
    ^ '$Id$'
! !