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

"{ NameSpace: RegressionTests }"

TestCase subclass:#IndentStreamTest
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Kiwi-Tests'
!


!IndentStreamTest methodsFor:'as yet unclassified'!

testConstructors

    self assert:(IndentStream with: 'xxx') indentLevel = 0.
    self assert:(IndentStream on: 'xxx') indentLevel = 0.

    "Modified: / 01-07-2018 / 10:12:07 / Claus Gittinger"
!

testIndent

        | stream |
        stream := IndentStream on: 'xxx'.
        stream indent; indent.
        self assert:(stream indentLevel = 2).

    "Modified: / 01-07-2018 / 10:12:22 / Claus Gittinger"
!

testIndentBack

        | stream |
        stream := IndentStream on: 'xxx'.
        stream indent; indent.
        stream indentBack.
        self assert:stream indentLevel = 1.

    "Modified: / 01-07-2018 / 10:12:35 / Claus Gittinger"
! !

!IndentStreamTest class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !