Migrate sources to Tonel v3 format

ba-st · May 9, 2024 · b9fa804 · b9fa804
1 parent c940229
commit b9fa804
Show file tree

Hide file tree

Showing 142 changed files with 983 additions and 1,010 deletions.
diff --git a/source/BaselineOfBuoy/BaselineOfBuoy.class.st b/source/BaselineOfBuoy/BaselineOfBuoy.class.st
@@ -2,12 +2,13 @@
 Baseline of Buoy
 "
 Class {
-	#name : #BaselineOfBuoy,
-	#superclass : #BaselineOf,
-	#category : #BaselineOfBuoy
+	#name : 'BaselineOfBuoy',
+	#superclass : 'BaselineOf',
+	#category : 'BaselineOfBuoy',
+	#package : 'BaselineOfBuoy'
 }
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBuoy >> baseline: spec [
 
 	<baseline>
@@ -40,7 +41,7 @@ BaselineOfBuoy >> baseline: spec [
 
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBuoy >> baselineAssertions: spec [
 
 	spec
@@ -56,7 +57,7 @@ BaselineOfBuoy >> baselineAssertions: spec [
 		group: 'Tests' with: 'Buoy-Assertions-Tests'
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBuoy >> baselineChronology: spec [
 
 	spec
@@ -67,7 +68,7 @@ BaselineOfBuoy >> baselineChronology: spec [
 		group: 'Tests' with: 'Buoy-Chronology-Tests'
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBuoy >> baselineCollections: spec [
 
 	spec
@@ -89,7 +90,7 @@ BaselineOfBuoy >> baselineCollections: spec [
 		group: 'Tests' with: 'Buoy-Collections-Tests'
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBuoy >> baselineComparison: spec [
 
 	spec
@@ -105,7 +106,7 @@ BaselineOfBuoy >> baselineComparison: spec [
 		group: 'Tests' with: 'Buoy-Comparison-Tests'
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBuoy >> baselineConditions: spec [
 
 	spec
@@ -126,7 +127,7 @@ BaselineOfBuoy >> baselineConditions: spec [
 		group: 'Tests' with: 'Buoy-Conditions-Pharo-Extensions-Tests'
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBuoy >> baselineDynamicBinding: spec [
 
 	spec
@@ -136,7 +137,7 @@ BaselineOfBuoy >> baselineDynamicBinding: spec [
 		group: 'Tests' with: 'Buoy-Dynamic-Binding-Tests'
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBuoy >> baselineExceptionHandling: spec [
 
 	spec
@@ -146,7 +147,7 @@ BaselineOfBuoy >> baselineExceptionHandling: spec [
 		group: 'Tests' with: 'Buoy-Exception-Handling-Tests'
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBuoy >> baselineGS64Development: spec [
 
 	spec
@@ -174,7 +175,7 @@ BaselineOfBuoy >> baselineGS64Development: spec [
 		group: 'GS64-Development' with: 'Buoy-Chronology-GS64-Extensions'
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBuoy >> baselineMath: spec [
 
 	spec
@@ -196,7 +197,7 @@ BaselineOfBuoy >> baselineMath: spec [
 		group: 'Tests' with: 'Buoy-Math-Pharo-Extensions-Tests'
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBuoy >> baselineMetaprogramming: spec [
 
 	spec
@@ -215,7 +216,7 @@ BaselineOfBuoy >> baselineMetaprogramming: spec [
 		group: 'Tests' with: 'Buoy-Metaprogramming-Tests'
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBuoy >> baselineSUnit: spec [
 
 	spec
@@ -227,15 +228,15 @@ BaselineOfBuoy >> baselineSUnit: spec [
 		group: 'Tests' with: 'Buoy-SUnit-Tests'
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBuoy >> baselineTools: spec [
 
 	spec
 		package: 'Buoy-Development-Tools' with: [ spec requires: 'Deployment' ];
 		group: 'Tools' with: #('Buoy-Development-Tools' 'Dependent-SUnit-Extensions')
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BaselineOfBuoy >> projectClass [
 
 	^ MetacelloCypressBaselineProject

diff --git a/source/BaselineOfBuoy/package.st b/source/BaselineOfBuoy/package.st
@@ -1 +1 @@
-Package { #name : #BaselineOfBuoy }
+Package { #name : 'BaselineOfBuoy' }
diff --git a/source/Buoy-Assertions-Extensions/Error.extension.st b/source/Buoy-Assertions-Extensions/Error.extension.st
@@ -1,20 +1,20 @@
-Extension { #name : #Error }
+Extension { #name : 'Error' }
 
-{ #category : #'*Buoy-Assertions-Extensions' }
+{ #category : '*Buoy-Assertions-Extensions' }
 Error >> failures [
 
 	^ tag
 ]
 
-{ #category : #'*Buoy-Assertions-Extensions' }
+{ #category : '*Buoy-Assertions-Extensions' }
 Error class >> signal: aFailureExplanation [
 
 	^ self new
 		tag: {aFailureExplanation};
 		signal: aFailureExplanation
 ]
 
-{ #category : #'*Buoy-Assertions-Extensions' }
+{ #category : '*Buoy-Assertions-Extensions' }
 Error class >> signalAll: failureExplanations [
 
 	^ self new

diff --git a/source/Buoy-Assertions-Extensions/package.st b/source/Buoy-Assertions-Extensions/package.st
@@ -1 +1 @@
-Package { #name : #'Buoy-Assertions-Extensions' }
+Package { #name : 'Buoy-Assertions-Extensions' }
diff --git a/source/Buoy-Assertions/Asserter.class.st b/source/Buoy-Assertions/Asserter.class.st
@@ -2,58 +2,59 @@
 I'm a helper for Assertion Checker. Not intended to be used directly.
 "
 Class {
-	#name : #Asserter,
-	#superclass : #Object,
+	#name : 'Asserter',
+	#superclass : 'Object',
 	#instVars : [
 		'checks'
 	],
-	#category : 'Buoy-Assertions'
+	#category : 'Buoy-Assertions',
+	#package : 'Buoy-Assertions'
 }
 
-{ #category : #private }
+{ #category : 'private' }
 Asserter >> asReverseFact: aFact [
 
 	^ [ aFact value not ]
 ]
 
-{ #category : #Checking }
+{ #category : 'Checking' }
 Asserter >> checkApplying: aPolicy [
 
 	checks do: [ :check | check checkApplying: aPolicy ]
 ]
 
-{ #category : #configuring }
+{ #category : 'configuring' }
 Asserter >> enforce: aFact because: aStringOrBlock [
 
 	checks add: (AssertionCheck checking: aFact onFailure: aStringOrBlock)
 ]
 
-{ #category : #configuring }
+{ #category : 'configuring' }
 Asserter >> enforce: aFact because: anExplanationStringOrBlock onSuccess: aSuccessAction [
 
 	checks add: (AssertionCheck checking: aFact onSuccess: [ :policy | self value: aSuccessAction applying: policy ] onFailure: anExplanationStringOrBlock)
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 Asserter >> initialize [
 
 	super initialize.
 	checks := OrderedCollection new
 ]
 
-{ #category : #configuring }
+{ #category : 'configuring' }
 Asserter >> refuse: aFact because: aStringOrBlock [
 
 	self enforce: (self asReverseFact: aFact) because: aStringOrBlock
 ]
 
-{ #category : #configuring }
+{ #category : 'configuring' }
 Asserter >> refuse: aFact because: anExplanationStringOrBlock onSuccess: aSuccessAction [
 
 	self enforce: (self asReverseFact: aFact) because: anExplanationStringOrBlock onSuccess: aSuccessAction
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 Asserter >> value: aSuccessAction applying: policy [
 
 	| asserter |

diff --git a/source/Buoy-Assertions/AssertionCheck.class.st b/source/Buoy-Assertions/AssertionCheck.class.st
@@ -2,43 +2,44 @@
 I represent a check for a specific fact, including the success and failure actions to apply
 "
 Class {
-	#name : #AssertionCheck,
-	#superclass : #Object,
+	#name : 'AssertionCheck',
+	#superclass : 'Object',
 	#instVars : [
 		'factToCheck',
 		'explanationBlockOrString',
 		'successAction'
 	],
-	#category : 'Buoy-Assertions'
+	#category : 'Buoy-Assertions',
+	#package : 'Buoy-Assertions'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 AssertionCheck class >> checking: aFact onFailure: anExplanationBlockOrString [
 
 	^ self checking: aFact onSuccess: [ :policy |  ] onFailure: anExplanationBlockOrString
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 AssertionCheck class >> checking: aFact onSuccess: aSuccessAction onFailure: anExplanationBlockOrString [
 
 	^ self new initializeChecking: aFact onSuccess: aSuccessAction onFailure: anExplanationBlockOrString
 ]
 
-{ #category : #Checking }
+{ #category : 'Checking' }
 AssertionCheck >> checkApplying: anAssertionFailurePolicy [
 
 	factToCheck value
 		then: [ successAction value: anAssertionFailurePolicy ]
 		otherwise: [ anAssertionFailurePolicy assertionFailedBecause: self explanation ]
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 AssertionCheck >> explanation [
 
 	^ explanationBlockOrString value
 ]
 
-{ #category : #initialize }
+{ #category : 'initialize' }
 AssertionCheck >> initializeChecking: aFact onSuccess: aSuccessAction onFailure: aFailureBlockOrString [
 
 	factToCheck := aFact.

diff --git a/source/Buoy-Assertions/AssertionChecker.class.st b/source/Buoy-Assertions/AssertionChecker.class.st
@@ -2,28 +2,29 @@
 I'm representing an Assertion Checker. My main objetive is to check a set of preconfigured facts and signal an error if some of them are not satisfied.
 "
 Class {
-	#name : #AssertionChecker,
-	#superclass : #Object,
+	#name : 'AssertionChecker',
+	#superclass : 'Object',
 	#instVars : [
 		'asserter',
 		'failurePolicy'
 	],
-	#category : #'Buoy-Assertions'
+	#category : 'Buoy-Assertions',
+	#package : 'Buoy-Assertions'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 AssertionChecker class >> applying: aFailurePolicy to: anAsserter [
 
 	^ self new initializeApplying: aFailurePolicy to: anAsserter
 ]
 
-{ #category : #checking }
+{ #category : 'checking' }
 AssertionChecker class >> check: checkingBlock [
 
 	^ self check: checkingBlock configuredBy: [ :checker |  ]
 ]
 
-{ #category : #checking }
+{ #category : 'checking' }
 AssertionChecker class >> check: checkingBlock configuredBy: configurationBlock [
 
 	| builder |
@@ -34,19 +35,19 @@ AssertionChecker class >> check: checkingBlock configuredBy: configurationBlock
 	^ builder buildAndCheck
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 AssertionChecker class >> checkApplyingFailFastPolicyTo: asserter raising: errorToSignal [
 
 	^ (self applying: (RaiseOnFirstAssertionFailurePolicy raising: errorToSignal) to: asserter) check
 ]
 
-{ #category : #checking }
+{ #category : 'checking' }
 AssertionChecker class >> enforce: aFact because: aStringOrBlockExplanation [
 
 	^ self enforce: aFact because: aStringOrBlockExplanation raising: AssertionFailurePolicy defaultErrorToSignal 
 ]
 
-{ #category : #checking }
+{ #category : 'checking' }
 AssertionChecker class >> enforce: aFact because: aStringOrBlockExplanation raising: errorToSignal [
 
 	| asserter |
@@ -57,13 +58,13 @@ AssertionChecker class >> enforce: aFact because: aStringOrBlockExplanation rais
 	^ self checkApplyingFailFastPolicyTo: asserter raising: errorToSignal
 ]
 
-{ #category : #checking }
+{ #category : 'checking' }
 AssertionChecker class >> refuse: aFact because: aStringOrBlockExplanation [
 
 	^ self refuse: aFact because: aStringOrBlockExplanation raising: AssertionFailurePolicy defaultErrorToSignal
 ]
 
-{ #category : #checking }
+{ #category : 'checking' }
 AssertionChecker class >> refuse: aFact because: aStringOrBlockExplanation raising: errorToSignal [
 
 	| asserter |
@@ -74,13 +75,13 @@ AssertionChecker class >> refuse: aFact because: aStringOrBlockExplanation raisi
 	^ self checkApplyingFailFastPolicyTo: asserter raising: errorToSignal
 ]
 
-{ #category : #checking }
+{ #category : 'checking' }
 AssertionChecker >> check [
 
 	failurePolicy applyTo: asserter
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 AssertionChecker >> initializeApplying: aFailurePolicy to: anAsserter [
 
 	failurePolicy := aFailurePolicy.