"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#DirectoryStreamTest
	instanceVariableNames:'testDirName'
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression-Streams'
!

!DirectoryStreamTest class methodsFor:'documentation'!

documentation
"
    documentation to be added.

    [author:]
        sr

    [instance variables:]

    [class variables:]

    [see also:]

"
! !

!DirectoryStreamTest methodsFor:'helpers'!

testDirName
    testDirName isNil ifTrue:[
        testDirName := UUID genRandomUUID printString asFilename.
    ].

    ^ testDirName
! !

!DirectoryStreamTest methodsFor:'initialize / release'!

tearDown
    self testDirName recursiveRemove
! !

!DirectoryStreamTest methodsFor:'tests'!

test01
    "basic open for appending."

    |s dir t|

    dir := self testDirName.
    dir asFilename makeDirectory.
    s := DirectoryStream directoryNamed:dir.

    OperatingSystem isMSDOSlike ifTrue:[
        "/ skip '.', '..'
        s nextLine; nextLine.
    ].

    self assert:s atEnd.
    self assert:s nextLine isNil.

    s close.

    self assert:dir asFilename directoryContents size == 0.

    (dir asFilename construct:'file1') writingFileDo:[:s | s nextPutAll:'foo'].

    dir := self testDirName.
    dir asFilename makeDirectory.
    s := DirectoryStream directoryNamed:dir.

    OperatingSystem isMSDOSlike ifTrue:[
        "/ skip '.', '..'
        s nextLine; nextLine.
    ].

    self assert:s atEnd not.
    self assert:(t := s nextLine) = 'file1'.
    self assert:s atEnd.
    self assert:s nextLine isNil.

    s close.

    self assert:dir asFilename directoryContents size == 1.

    "
     self new test01
    "
! !

!DirectoryStreamTest class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !