"{ Package: 'stx:goodies/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|

    unicodeDataFile := self class packageDirectory / 'testData/UnicodeData-4.0.0.txt'.

    "/ unicodeDataFile := '/Users/cg/work/exept/regression/testData/UnicodeData-4.0.0.txt' asFilename .

    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 isUppercase == isUppercase) description:('isUppercase of ',ch codePoint asString).

		    self assert:(ch isLowercase == isLowercase) description:('isLowercase of ',ch codePoint asString).

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

		    self assert:(ch isNationalLetter == isLetter) description:('isNationalLetter of ',ch codePoint asString).

		    ucValue notNil ifTrue:[

			ucCh := Character value:ucValue.

			self assert:(ch asUppercase = ucCh) description:('asUppercase of ',ch codePoint asString).

		    ] ifFalse:[

			self assert:(ch asUppercase = ch) description:('asUppercase of ',ch codePoint asString).

		    ].

		    lcValue notNil ifTrue:[

			lcCh := Character value:lcValue.

			self assert:(ch asLowercase = lcCh) description:('asLowercase of ',ch codePoint asString).

		    ] ifFalse:[

			self assert:(ch asLowercase = ch) description:('asLowercase of ',ch codePoint asString).

		    ].

		    tcValue notNil ifTrue:[

			tcCh := Character value:tcValue.

			self assert:(ch asTitlecase = tcCh) description:('asTitlecase of ',ch codePoint asString).

		    ] ifFalse:[

			self assert:(ch asTitlecase = ch) description:('asTitlecase of ',ch codePoint asString).

		    ].

		].

	].

    "

     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$'

! !