"{ 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$'
! !