Fixes #141

instantiations · Jan 8, 2025 · 8b83efd · 8b83efd
1 parent 2d6d580
commit 8b83efd
Show file tree

Hide file tree

Showing 5 changed files with 38 additions and 11 deletions.
diff --git a/source/.configmaps b/source/.configmaps
@@ -1,7 +1,7 @@
 [
 	{
 		#conditions : [ ],
-		#ts : 3912053785,
+		#ts : 3913800832,
 		#comment : '',
 		#formatVersion : '1.1',
 		#applications : OrderedCollection [
@@ -37,16 +37,16 @@
 			},
 			{
 				#name : 'TonelWriterModel',
-				#versionName : 'ae2f5a2-master + 140',
-				#ts : 3912052700
+				#versionName : '8f3f990-master + 141',
+				#ts : 3913715428
 			}
 		],
 		#name : 'ENVY/Image Tonel',
-		#versionName : 'ae2f5a2-master + 134, 135, 137, 138, 139, 140'
+		#versionName : '8f3f990-master + 141 a'
 	},
 	{
 		#conditions : [ ],
-		#ts : 3912053741,
+		#ts : 3913800868,
 		#comment : '',
 		#formatVersion : '1.1',
 		#applications : OrderedCollection [
@@ -67,11 +67,11 @@
 			},
 			{
 				#name : 'TonelWriterTests',
-				#versionName : 'ae2f5a2-master + 140',
-				#ts : 3912053677
+				#versionName : '8f3f990-master + 141',
+				#ts : 3913800600
 			}
 		],
 		#name : 'Test ENVY/Image Tonel',
-		#versionName : 'ae2f5a2-master + 134, 135, 137, 138, 139, 140'
+		#versionName : '8f3f990-master + 141 a'
 	}
 ]
diff --git a/source/TonelWriterModel/TonelWriterMethodDefinition.class.st b/source/TonelWriterModel/TonelWriterMethodDefinition.class.st
@@ -39,7 +39,7 @@ TonelWriterMethodDefinition >> categoryFor: aTonelWriter [
 	"Answer the category used in a TonelWriter."
 
 	^(self isMonticelloExtension and: [aTonelWriter useMonticelloExtensions not])
-		ifTrue: [self allCategories first]
+		ifTrue: [self allCategories asSortedCollection first]
 		ifFalse: [self category]
 
 

diff --git a/source/TonelWriterTestSubSubApp/Object.extension.st b/source/TonelWriterTestSubSubApp/Object.extension.st
@@ -2,7 +2,7 @@ Extension {
 	#name : 'Object'
 }
 
-{ #category : 'Real Category',
+{ #category : 'Another One',
  #vaCategories : ['Another One','Real Category'] }
 Object >> subSubExtensionForTest [
 

diff --git a/source/TonelWriterTests/TonelMethodWriterTest.class.st b/source/TonelWriterTests/TonelMethodWriterTest.class.st
@@ -207,6 +207,33 @@ TonelMockA >> withModeThanOneLine [
 '
 ]
 
+{ #category : 'Test' }
+TonelMethodWriterTest >> testWriteMethodWithMultipleCategories [
+
+	| definition stream |
+
+	definition :=
+		TonelWriterMethodDefinition
+			uniquelyKnownAs: #withMultipleCategories
+			in: TonelMockA
+			categorizedAs: 'Accessing'.
+	stream := self newStream.
+	writer write: definition on: stream.
+	self
+		assert: stream contents
+		isEqualSkippingSeparatorsTo:
+			'
+{
+	#category : ''Accessing'',
+	 #vaCategories : [''Accessing'',''Evaluating'',''Private'']
+}
+TonelMockA >> withMultipleCategories [
+
+	^''withMultipleCategories''
+]
+'
+]
+
 { #category : 'Test' }
 TonelMethodWriterTest >> testWritePrivateMethodDefinition [
 

diff --git a/source/TonelWriterTests/TonelMockA.class.st b/source/TonelWriterTests/TonelMockA.class.st
@@ -80,7 +80,7 @@ TonelMockA >> withModeThanOneLine [
  #vaCategories : ['Accessing','Evaluating','Private'] }
 TonelMockA >> withMultipleCategories [
 
-	^ 'withMultipleCategories'
+	^'withMultipleCategories'
 ]
 
 { #category : 'Accessing' }