Merge pull request #1461 from demarey/tonelv3

move to tonel v3
pharo-spec · Oct 11, 2023 · 9441b4b · 9441b4b
2 parents 13b84fb + bbe963c
commit 9441b4b
Show file tree

Hide file tree

Showing 881 changed files with 12,103 additions and 7,221 deletions.
diff --git a/src/BaselineOfSpec2/BaselineOfSpec2.class.st b/src/BaselineOfSpec2/BaselineOfSpec2.class.st
@@ -1,10 +1,11 @@
 Class {
-	#name : #BaselineOfSpec2,
-	#superclass : #BaselineOf,
-	#category : #BaselineOfSpec2
+	#name : 'BaselineOfSpec2',
+	#superclass : 'BaselineOf',
+	#category : 'BaselineOfSpec2',
+	#package : 'BaselineOfSpec2'
 }
 
-{ #category : #baseline }
+{ #category : 'baseline' }
 BaselineOfSpec2 >> baseline: spec [
 	<baseline>
 
@@ -49,7 +50,7 @@ BaselineOfSpec2 >> baseline: spec [
 	spec group: 'default' with: #('Base' 'Tests' 'Code' 'CodeTests').
 ]
 
-{ #category : #'external projects' }
+{ #category : 'external projects' }
 BaselineOfSpec2 >> defaultRepositoryURL [
 
 	^ self class environment 
@@ -58,7 +59,7 @@ BaselineOfSpec2 >> defaultRepositoryURL [
 		ifAbsent: [ 'github://pharo-spec/Spec' ]
 ]
 
-{ #category : #'external projects' }
+{ #category : 'external projects' }
 BaselineOfSpec2 >> packageRepository [
 
 	" Tries to determine a repository from which the baseline is being loaded. Useful for 
@@ -73,7 +74,7 @@ BaselineOfSpec2 >> packageRepository [
 		ifEmpty: [ nil ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BaselineOfSpec2 >> project [
 	"Atomic loading is needed for Spec because we are moving classes of package and it breaks their subclasses. 
 	
@@ -99,7 +100,7 @@ We need to use atomic loading only during update of existing Spec upgrade"
 
 ]
 
-{ #category : #'external projects' }
+{ #category : 'external projects' }
 BaselineOfSpec2 >> specCore: spec [
 
 	spec baseline: 'SpecCore' with: [ 
@@ -108,7 +109,7 @@ BaselineOfSpec2 >> specCore: spec [
 			loads: #('Base' 'Tests') ]
 ]
 
-{ #category : #'external projects' }
+{ #category : 'external projects' }
 BaselineOfSpec2 >> specCoreCode: spec [
 
 	spec baseline: 'SpecCoreCode' with: [ 

diff --git a/src/BaselineOfSpec2/package.st b/src/BaselineOfSpec2/package.st
@@ -1 +1 @@
-Package { #name : #BaselineOfSpec2 }
+Package { #name : 'BaselineOfSpec2' }
diff --git a/src/BaselineOfSpecCore/BaselineOfSpecCore.class.st b/src/BaselineOfSpecCore/BaselineOfSpecCore.class.st
@@ -1,10 +1,11 @@
 Class {
-	#name : #BaselineOfSpecCore,
-	#superclass : #BaselineOf,
-	#category : #BaselineOfSpecCore
+	#name : 'BaselineOfSpecCore',
+	#superclass : 'BaselineOf',
+	#category : 'BaselineOfSpecCore',
+	#package : 'BaselineOfSpecCore'
 }
 
-{ #category : #baseline }
+{ #category : 'baseline' }
 BaselineOfSpecCore >> baseline: spec [
 	<baseline>
 
@@ -64,14 +65,14 @@ BaselineOfSpecCore >> baseline: spec [
 	spec group: 'default' with: #('Base' 'BaseTests' 'Code' 'CodeTests').
 ]
 
-{ #category : #'external projects' }
+{ #category : 'external projects' }
 BaselineOfSpecCore >> pillar: spec [
 	spec
 		baseline: 'PillarCore'
 		with: [ spec repository: 'github://pillar-markup/pillar:dev-8/src' ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BaselineOfSpecCore >> project [
 	"Atomic loading is needed for Spec because we are moving classes of package and it breaks their subclasses. 
 	

diff --git a/src/BaselineOfSpecCore/package.st b/src/BaselineOfSpecCore/package.st
@@ -1 +1 @@
-Package { #name : #BaselineOfSpecCore }
+Package { #name : 'BaselineOfSpecCore' }
diff --git a/src/Spec2-Adapters-Morphic-Tests/SpApplicationTest.extension.st b/src/Spec2-Adapters-Morphic-Tests/SpApplicationTest.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #SpApplicationTest }
+Extension { #name : 'SpApplicationTest' }
 
-{ #category : #'*Spec2-Adapters-Morphic-Tests' }
+{ #category : '*Spec2-Adapters-Morphic-Tests' }
 SpApplicationTest >> testAdapterBindings [
 
 	self assert: application adapterBindings class equals: SpStubAdapterBindings.

diff --git a/src/Spec2-Adapters-Morphic-Tests/SpDrawStyleTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpDrawStyleTest.class.st
@@ -1,10 +1,11 @@
 Class {
-	#name : #SpDrawStyleTest,
-	#superclass : #TestCase,
-	#category : #'Spec2-Adapters-Morphic-Tests'
+	#name : 'SpDrawStyleTest',
+	#superclass : 'TestCase',
+	#category : 'Spec2-Adapters-Morphic-Tests',
+	#package : 'Spec2-Adapters-Morphic-Tests'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpDrawStyleTest >> testToColor [
 	| style |
 

diff --git a/src/Spec2-Adapters-Morphic-Tests/SpFontStyleTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpFontStyleTest.class.st
@@ -1,10 +1,11 @@
 Class {
-	#name : #SpFontStyleTest,
-	#superclass : #TestCase,
-	#category : #'Spec2-Adapters-Morphic-Tests'
+	#name : 'SpFontStyleTest',
+	#superclass : 'TestCase',
+	#category : 'Spec2-Adapters-Morphic-Tests',
+	#package : 'Spec2-Adapters-Morphic-Tests'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpFontStyleTest >> testResetFont [
 
 	| styleSheet app presenter font |

diff --git a/src/Spec2-Adapters-Morphic-Tests/SpMergeStyleTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpMergeStyleTest.class.st
@@ -1,15 +1,16 @@
 Class {
-	#name : #SpMergeStyleTest,
-	#superclass : #TestCase,
+	#name : 'SpMergeStyleTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'result',
 		'left',
 		'right'
 	],
-	#category : #'Spec2-Adapters-Morphic-Tests'
+	#category : 'Spec2-Adapters-Morphic-Tests',
+	#package : 'Spec2-Adapters-Morphic-Tests'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 SpMergeStyleTest >> setUp [ 
 
 	super setUp.
@@ -32,7 +33,7 @@ SpMergeStyleTest >> setUp [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasClassInBothSides [
 
 	result := (left mergeWith: right) flattenClasses.
@@ -42,7 +43,7 @@ SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasClassInBothSides [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasCorrectNumberOfEntries [
 
 	result := (left mergeWith: right) flattenClasses.
@@ -51,7 +52,7 @@ SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasCorrectNumberOfEntries
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasLeftOnlyClass [
 
 	result := (left mergeWith: right) flattenClasses.
@@ -60,7 +61,7 @@ SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasLeftOnlyClass [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasRightOnlyClass [
 
 	result := (left mergeWith: right) flattenClasses.
@@ -69,7 +70,7 @@ SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasRightOnlyClass [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpMergeStyleTest >> testMergingTwoStylesWithASameClassHasThePropertiesCorrectInCommonClass [
 
 	| innerClass |

diff --git a/src/Spec2-Adapters-Morphic-Tests/SpMorphStyleTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpMorphStyleTest.class.st
@@ -1,18 +1,19 @@
 Class {
-	#name : #SpMorphStyleTest,
-	#superclass : #TestCase,
-	#category : #'Spec2-Adapters-Morphic-Tests'
+	#name : 'SpMorphStyleTest',
+	#superclass : 'TestCase',
+	#category : 'Spec2-Adapters-Morphic-Tests',
+	#package : 'Spec2-Adapters-Morphic-Tests'
 }
 
-{ #category : #private }
+{ #category : 'private' }
 SpMorphStyleTest >> newLookup: aString [
 	| rootClass |
 
 	rootClass := SpStyleSTONReader fromString: aString.
 	^ SpMorphStyle newStyles: rootClass flattenClasses 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpMorphStyleTest >> testApplyTo [
 	| styleResolver morph |
 
@@ -34,7 +35,7 @@ SpMorphStyleTest >> testApplyTo [
 	self assert: morph width equals: 42
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpMorphStyleTest >> testDeepLookup [
 	"This should answer the deepest width"
 	| styleResolver |
@@ -52,7 +53,7 @@ SpMorphStyleTest >> testDeepLookup [
 	self assert: styleResolver width equals: 42
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpMorphStyleTest >> testDeepMultipleLookup [
 	"This should answer the deepest width (last appearence)"
 	| styleResolver |
@@ -73,7 +74,7 @@ SpMorphStyleTest >> testDeepMultipleLookup [
 	self assert: styleResolver width equals: 42
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpMorphStyleTest >> testFromStylesheetAdapter [
 
 	| lookup labelAdapter |
@@ -117,7 +118,7 @@ SpMorphStyleTest >> testFromStylesheetAdapter [
 		          adapter: labelAdapter
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpMorphStyleTest >> testNestedStyles [
 
 	| lookup labelAdapter styleSheet |
@@ -160,7 +161,7 @@ SpMorphStyleTest >> testNestedStyles [
 	self assert: lookup width equals: 84
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpMorphStyleTest >> testSimpleLookup [
 	"this should answer the width defined in the only level"
 	| styleResolver |
@@ -172,7 +173,7 @@ SpMorphStyleTest >> testSimpleLookup [
 	self assert: styleResolver width equals: 42
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpMorphStyleTest >> testTwoClassWithSameName [
 
 	| morphStyle style1 style2 property label |

diff --git a/src/Spec2-Adapters-Morphic-Tests/SpPropertyStyleTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpPropertyStyleTest.class.st
@@ -1,10 +1,11 @@
 Class {
-	#name : #SpPropertyStyleTest,
-	#superclass : #TestCase,
-	#category : #'Spec2-Adapters-Morphic-Tests'
+	#name : 'SpPropertyStyleTest',
+	#superclass : 'TestCase',
+	#category : 'Spec2-Adapters-Morphic-Tests',
+	#package : 'Spec2-Adapters-Morphic-Tests'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpPropertyStyleTest >> testMergeWith [
 	| p1 p2 p3 |
 
@@ -23,7 +24,7 @@ SpPropertyStyleTest >> testMergeWith [
 	self assert: p3 height equals: 40	
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpPropertyStyleTest >> testMergeWithFontDoNotRemovePredefinedFontWhenNoFontIsDefined [
 	| p1 p2 p3 |
 
@@ -41,7 +42,7 @@ SpPropertyStyleTest >> testMergeWithFontDoNotRemovePredefinedFontWhenNoFontIsDef
 	self assert: p3 color equals: Color white
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpPropertyStyleTest >> testMergeWithFontRemovePredefinedFont [
 	| p1 p2 p3 |
 
@@ -59,7 +60,7 @@ SpPropertyStyleTest >> testMergeWithFontRemovePredefinedFont [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpPropertyStyleTest >> testMergeWithPredefinedFontCanBeDecorated [
 	| p1 p2 p3 |
 

diff --git a/src/Spec2-Adapters-Morphic-Tests/SpStyleEnvironmentColorProxyTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpStyleEnvironmentColorProxyTest.class.st
@@ -1,10 +1,11 @@
 Class {
-	#name : #SpStyleEnvironmentColorProxyTest,
-	#superclass : #TestCase,
-	#category : #'Spec2-Adapters-Morphic-Tests'
+	#name : 'SpStyleEnvironmentColorProxyTest',
+	#superclass : 'TestCase',
+	#category : 'Spec2-Adapters-Morphic-Tests',
+	#package : 'Spec2-Adapters-Morphic-Tests'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpStyleEnvironmentColorProxyTest >> testSerializationWithFuelMaintainProxy [
 
  	| proxy byteArray deserialized |

diff --git a/src/Spec2-Adapters-Morphic-Tests/SpStyleTest.class.st b/src/Spec2-Adapters-Morphic-Tests/SpStyleTest.class.st
@@ -1,20 +1,21 @@
 Class {
-	#name : #SpStyleTest,
-	#superclass : #TestCase,
+	#name : 'SpStyleTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'aClass'
 	],
-	#category : #'Spec2-Adapters-Morphic-Tests'
+	#category : 'Spec2-Adapters-Morphic-Tests',
+	#package : 'Spec2-Adapters-Morphic-Tests'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 SpStyleTest >> tearDown [ 
 
 	aClass ifNotNil: [ :e | e removeFromSystem ].
 	super tearDown
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 SpStyleTest >> testParsingAStyleIsNotAffectedByExistingClass [
 
 	| aStylesheet |