add test order add language and entry

badetitou · Feb 27, 2023 · 410b751 · 410b751
1 parent 38d5ec6
commit 410b751
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/src/Casino-18N-Model-PropertyImporter-Tests/CS18NPropertiesImporterTest.class.st b/src/Casino-18N-Model-PropertyImporter-Tests/CS18NPropertiesImporterTest.class.st
@@ -162,6 +162,16 @@ CS18NPropertiesImporterTest >> testImportString [
 		equals: 'value'
 ]
 
+{ #category : #'as yet unclassified' }
+CS18NPropertiesImporterTest >> testImportStringLanguage [
+
+	importer importString: 'property=value'.
+
+	self
+		assert: (i18nModel allWithType: CS18NValue) anyOne language
+		equals: (i18nModel allWithType: CS18NLanguage) anyOne
+]
+
 { #category : #tests }
 CS18NPropertiesImporterTest >> testImportStringWithValueAttributes [
 

diff --git a/src/Casino-18N-Model-PropertyImporter/CS18NPropertiesImporter.class.st b/src/Casino-18N-Model-PropertyImporter/CS18NPropertiesImporter.class.st
@@ -128,7 +128,7 @@ CS18NPropertiesImporter >> importString: aString [
 		valueAttributes := self extractModelValueAttributes: modelValue.
 		modelValue valueVariables addAll: valueAttributes.
 		model addAll: valueAttributes.
-		(entryStrategy entryForKey: keyValue key) addValue: modelValue ]
+		modelValue entry: (entryStrategy entryForKey: keyValue key) ]
 ]
 
 { #category : #initialization }