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

"{ NameSpace: RegressionTests }"

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


!CharacterSetTests methodsFor:'tests'!

test01_creation
    |s|

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

    s := CharacterSet allSingleByteCharacters.
    self assert:(s includesAll:((Character value:0) to:(Character value:255))).
    self assert:(s isEmpty) not.
    self assert:(s size == 256).
    self assert:(s notEmpty).

    s := CharacterSet separators.
    self assert:(s includesAll:(Character separators)).
    self assert:(s size == Character separators size).

    s := CharacterSet nonSeparators.
    self assert:(s includesAny:(Character separators)) not.
    self assert:(s size == (256 - Character separators size)).

    s := CharacterSet separators.
    self assert:(s complement = CharacterSet nonSeparators).
!

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.

    self assert:(s includes:(Character value:99)) not.
    self assert:(s includes:(Character value:300)) 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"
!

test03_copy
    |orig copy|

    orig := CharacterSet newFrom:'abc'.
    copy := orig copy.
    copy remove:$a.

    self assert:(orig includes:$a) message:'changing the copy should not change original'.
!

test04_comparing
    |orig copy|

    orig := CharacterSet newFrom:'abc'.
    copy := orig copy.

    self assert:(orig = copy).
    self assert:(orig ~= copy) not.
    self assert:(orig hash = copy hash).

    orig add:$d.
    self assert:(orig = copy) not.
    self assert:(orig ~= copy).
    self assert:(orig hash ~= copy hash).

    orig remove:$d.
    self assert:(orig = copy).
    self assert:(orig ~= copy) not.
    self assert:(orig hash = copy hash).
! !

!CharacterSetTests class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !