"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#CharacterTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression'

!

!CharacterTests methodsFor:'tests'!

test01_CaseTesting

    "test lower/uppercase return value for all unicode characters up to 16r1C6FF (i.e. Unicode 3.2)"

    |unicodeDataFile|

    CharacterEncoderCodeGenerator isNil ifTrue:[

        Smalltalk fileInClass:'CharacterEncoderCodeGenerator' package:'stx:goodies'

    ].

    CharacterEncoderCodeGenerator new

        readingUnicodeDataFrom:(unicodeDataFile readStream)

        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|

                "/ for now, do not check above 1C6FF (i.e. only Uniode 3.2)

                codePoint <= 16r1C6FF ifTrue:[

                    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 isTitlecase == isTitlecase).

                    ucValue notNil ifTrue:[

                        ucCh := Character value:ucValue.

                    ] ifFalse:[

                    ].

                    lcValue notNil ifTrue:[

                        lcCh := Character value:lcValue.

                    ] ifFalse:[

                    ].

                    tcValue notNil ifTrue:[

                        tcCh := Character value:tcValue.

                    ] ifFalse:[

                    ].

                ].

        ].

    "

     self new test01CaseTesting

    "

    "Modified (comment): / 05-08-2011 / 18:59:24 / cg"

!

test02_Concatenation

    "test , operator on characters (to test against possible inlining or compiler optimizations, use variables, not constants)"

    |a b r s s2|

    s := ($a to: $z) asString.  

    s2 :=($b to: $z) asString.  

    "/ char , string

    a := $a. b := ''.     self assert:(r := a,b) = 'a'.

    a := $a. b := 'b'.    self assert:(r := a,b) = 'ab'.

    a := $a. b := 'bc'.   self assert:(r := a,b) = 'abc'.

    a := $a. b := 'bcd'.  self assert:(r := a,b) = 'abcd'.

    a := $a. b := 'bcde'. self assert:(r := a,b) = 'abcde'.

    "/ just in case there is some wordlength related problem...

    1 to:20 do:[:n |                   

        self assert:($a,(s2 copyTo:n)) = (s copyTo:n+1)

    ].

    "/ char , char

    a := $a. b := $b.     self assert:(r := a,b) = 'ab'.

    s2 :=($a to: $y) asString.  

    "/ string, char

    a := $a. b := ''.     self assert:(r := b,a) = 'a'.

    a := $a. b := 'b'.    self assert:(r := b,a) = 'ba'.

    a := $a. b := 'bc'.   self assert:(r := b,a) = 'bca'.

    a := $a. b := 'bcd'.  self assert:(r := b,a) = 'bcda'.

    a := $a. b := 'bcde'. self assert:(r := b,a) = 'bcdea'.

    "/ just in case there is some wordlength related problem...

    1 to:20 do:[:n |                   

        self assert:((s2 copyLast:n),$z) = (s copyLast:n+1)

    ].

    "

     self new test02_Concatenation

    "

    "Modified (comment): / 05-08-2011 / 18:59:24 / cg"

! !

!CharacterTests class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !