"{ Package: 'exept:regression' }"

TestCase subclass:#CharacterTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Collections-Text-Encodings'

!

!CharacterTests methodsFor:'tests'!

test01CaseTesting

    CharacterEncoderCodeGenerator new

        do:[:codePoint :name :category :canOrd :bidiCat :decMap

            :decDigitValue :digitValue :numValue

            :mirrored :unicodeName :comment :ucValue :lcValue :tcValue |

                |ch ucCh lcCh tcCh isUppercase isLowercase isTitlecase isLetter dToUc dToLc|

                isUppercase := category = 'Lu'.

                isLowercase := category = 'Ll'.

                isTitlecase := category = 'Lt'.

                isLetter := isUppercase | isLowercase | isTitlecase

                            or:[(category = 'Lm') or:[(category = 'Lo')]].

                ch := Character value:codePoint.

                self assert:(ch isUppercase == isUppercase).

                self assert:(ch isLowercase == isLowercase).

                "/ self assert:(ch isTitlecase == isTitlecase).

                self assert:(ch isNationalLetter == isLetter).

                ucValue notNil ifTrue:[

                    ucCh := Character value:ucValue.

                    self assert:(ch asUppercase = ucCh).

                ] ifFalse:[

                    self assert:(ch asUppercase = ch).

                ].

                lcValue notNil ifTrue:[

                    lcCh := Character value:lcValue.

                    self assert:(ch asLowercase = lcCh).

                ] ifFalse:[

                    self assert:(ch asLowercase = ch).

                ].

                tcValue notNil ifTrue:[

                    tcCh := Character value:tcValue.

                    self assert:(ch asTitlecase = tcCh).

                ] ifFalse:[

                    self assert:(ch asTitlecase = ch).

                ].

        ].

    "

     self new test01CaseTesting

    "

! !

!CharacterTests class methodsFor:'documentation'!

version

    ^ '$Header$'

! !