"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#CharacterSetTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression'
!


!CharacterSetTests methodsFor:'tests'!

test01_creation
    |s|

    s := CharacterSet new.
    self assert:(s isEmpty).
    self assert:(s size == 0).
    self assert:(s notEmpty) not.

    "Created: / 28-01-2011 / 17:32:20 / cg"
!

test02_addRemove
    |s|

    s := CharacterSet new.
    self assert:(s size == 0).
    self assert:(s includes:(Character value:10)) not.
    self assert:(s includes:(Character value:9)) not.
    self assert:(s includes:(Character value:11)) not.

    s add:(Character value:10).
    self assert:(s size == 1).
    self assert:(s includes:(Character value:10)).
    self assert:(s includes:(Character value:9)) not.
    self assert:(s includes:(Character value:11)) not.

    s remove:(Character value:11) ifAbsent:[].
    self assert:(s size == 1).
    self assert:(s includes:(Character value:10)).
    self assert:(s includes:(Character value:9)) not.
    self assert:(s includes:(Character value:11)) not.

    s remove:(Character value:10).
    self assert:(s size == 0).
    self assert:(s includes:(Character value:10)) not.
    self assert:(s includes:(Character value:9)) not.
    self assert:(s includes:(Character value:11)) not.

    "Created: / 28-01-2011 / 17:41:18 / cg"
! !

!CharacterSetTests class methodsFor:'documentation'!

version_CVS
    ^ '$Header$'
! !