Issue #79: added new test ZnCharacterStreamTests >> testUtf8EncodingS…

…treamPosition to illustrate what I think should be a bug

src/Zinc-Character-Encoding-Tests/ZnCharacterStreamTests.class.st

@@ -25,10 +25,11 @@ ZnCharacterStreamTests >> assertUpTo: array [
 ZnCharacterStreamTests >> assertUpToAll: array [
 	| encodingStream |
 	self assert: (array first readStream upToAll: array second) equals: array third.
-	encodingStream := self utf8ReadStreamOn: array first .
-	self assert: (encodingStream upToAll: array second) equals: array third.
 	encodingStream := self eightBitReadStreamOn: array first.
 	self assert: (encodingStream upToAll: array second) equals: array third.
+	encodingStream := self utf8ReadStreamOn: array first .
+	self assert: (encodingStream upToAll: array second) equals: array third.
+
 ]
 
 { #category : 'testing' }
@@ -135,6 +136,18 @@ ZnCharacterStreamTests >> testSimpleUTF8WriteStream [
 		equals: bytes asByteArray
 ]
 
+{ #category : 'testing' }
+ZnCharacterStreamTests >> testUtf8EncodingStreamPosition [
+	| string bytes stream res |
+	string := 'eißendeße'.
+	bytes := ZnUTF8Encoder new encodeString: string.
+	stream := (ZnCharacterReadStream on: bytes readStreamPortable).
+	res := stream next; next; next.
+	self assert: res equals: $ß.
+	self assert: stream halt position equals: 3.
+
+]
+
 { #category : 'testing' }
 ZnCharacterStreamTests >> testUpTo [
 	| char1 char2 string1 string2 |