add tests for UTF8 strings

tomooda · May 7, 2022 · 379660a · 379660a
1 parent 4834828
commit 379660a
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 2 deletions.
diff --git a/repository/ViennaTalk-Engine-Tests/ViennaClientTest.class.st b/repository/ViennaTalk-Engine-Tests/ViennaClientTest.class.st
@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'fixture'
 	],
-	#category : 'ViennaTalk-Engine-Tests'
+	#category : #'ViennaTalk-Engine-Tests'
 }
 
 { #category : #running }
@@ -70,3 +70,13 @@ ViennaClientTest >> testOKSpec [
 		resultValue: '442'
 		resultStates: (self stateFromArray: {'DEFAULT' -> {'count' -> '442'}})
 ]
+
+{ #category : #tests }
+ViennaClientTest >> testUTF8Strings [
+	self
+		testExpression: '"あいう"'
+		specification: ''
+		states: Dictionary new
+		resultValue: '"あいう"'
+		resultStates: Dictionary new
+]
diff --git a/repository/ViennaTalk-Engine-Tests/ViennaVDMJTest.class.st b/repository/ViennaTalk-Engine-Tests/ViennaVDMJTest.class.st
@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'process'
 	],
-	#category : 'ViennaTalk-Engine-Tests'
+	#category : #'ViennaTalk-Engine-Tests'
 }
 
 { #category : #running }
@@ -402,3 +402,13 @@ ViennaVDMJTest >> testExpression: expression specification: specification states
 			self assert: resultStates equals: triple second.
 			self assert: resultValue isNil equals: triple third notEmpty]
 ]
+
+{ #category : #'testing-only expression' }
+ViennaVDMJTest >> testUTF8Strings [
+	self
+		testExpression: '"あいう"'
+		specification: ''
+		states: Dictionary new
+		resultValue: '"あいう"'
+		resultStates: Dictionary new
+]