--- a/RegressionTests__CharacterEncoderTests.st Fri Feb 13 14:03:40 2004 +0100
+++ b/RegressionTests__CharacterEncoderTests.st Fri Feb 13 14:25:32 2004 +0100
@@ -222,6 +222,8 @@
self assert:(s2 size == 2).
self assert:((s2 first asciiValue bitAnd:2r11100000) == 2r11000000).
self assert:((s2 second asciiValue bitAnd:2r11000000) == 2r10000000).
+ s3 := encoder decodeString:s2.
+ self assert:(s1 = s3).
].
"/ 800 .. FFFF -> 1110xxxx 10xxxxxx 10xxxxxx
@@ -236,6 +238,8 @@
self assert:((s2 first asciiValue bitAnd:2r11110000) == 2r11100000).
self assert:((s2 second asciiValue bitAnd:2r11000000) == 2r10000000).
self assert:((s2 third asciiValue bitAnd:2r11000000) == 2r10000000).
+ s3 := encoder decodeString:s2.
+ self assert:(s1 = s3).
].
"/ 10000 .. 1FFFFF -> 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
@@ -251,6 +255,8 @@
self assert:((s2 second asciiValue bitAnd:2r11000000) == 2r10000000).
self assert:((s2 third asciiValue bitAnd:2r11000000) == 2r10000000).
self assert:((s2 fourth asciiValue bitAnd:2r11000000) == 2r10000000).
+ s3 := encoder decodeString:s2.
+ self assert:(s1 = s3).
].
"/ 200000 .. 3FFFFFF -> 111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx
@@ -267,6 +273,8 @@
self assert:((s2 third asciiValue bitAnd:2r11000000) == 2r10000000).
self assert:((s2 fourth asciiValue bitAnd:2r11000000) == 2r10000000).
self assert:((s2 fifth asciiValue bitAnd:2r11000000) == 2r10000000).
+ s3 := encoder decodeString:s2.
+ self assert:(s1 = s3).
].
"/ ST/X limitation: only 30 bit integers (to avoid largeInteger asciiValue)
@@ -286,6 +294,8 @@
self assert:((s2 fourth asciiValue bitAnd:2r11000000) == 2r10000000).
self assert:((s2 fifth asciiValue bitAnd:2r11000000) == 2r10000000).
self assert:((s2 sixth asciiValue bitAnd:2r11000000) == 2r10000000).
+ s3 := encoder decodeString:s2.
+ self assert:(s1 = s3).
].
"