Comment failing test

moosetechnology · Dec 17, 2024 · 3be36c2 · 3be36c2
1 parent eb323ea
commit 3be36c2
Show file tree

Hide file tree

Showing 18 changed files with 204 additions and 169 deletions.
diff --git a/MoTion-Tests/CaseMatcher.class.st b/MoTion-Tests/CaseMatcher.class.st
@@ -1,15 +1,17 @@
 Class {
-	#name : #CaseMatcher,
-	#superclass : #MatcherTests,
+	#name : 'CaseMatcher',
+	#superclass : 'MatcherTests',
 	#instVars : [
 		'a',
 		'b',
 		'c'
 	],
-	#category : #'MoTion-Tests-matchers'
+	#category : 'MoTion-Tests-matchers',
+	#package : 'MoTion-Tests',
+	#tag : 'matchers'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 CaseMatcher >> setUp [ 
 
 	super setUp.
@@ -32,7 +34,7 @@ CaseMatcher >> setUp [
 	c lstring: 'foobar'.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 CaseMatcher >> testCaseDoComplexObject [
 
 	| aa pattern1 pattern2 pattern3 results |
@@ -84,7 +86,7 @@ CaseMatcher >> testCaseDoComplexObject [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 CaseMatcher >> testCaseDoExtractBindingsFromList [
 
 	| objectToMatch p1 p2 result bindings|
@@ -107,7 +109,7 @@ CaseMatcher >> testCaseDoExtractBindingsFromList [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 CaseMatcher >> testCaseDoListMatching [
 
 	| objectToMatch p1 p2 result |
@@ -125,7 +127,7 @@ CaseMatcher >> testCaseDoListMatching [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 CaseMatcher >> testCaseDoLiteralObject [
 
 

diff --git a/MoTion-Tests/LogicalMatcherTest.class.st b/MoTion-Tests/LogicalMatcherTest.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #LogicalMatcherTest,
-	#superclass : #MatcherTests,
-	#category : #'MoTion-Tests-matchers'
+	#name : 'LogicalMatcherTest',
+	#superclass : 'MatcherTests',
+	#category : 'MoTion-Tests-matchers',
+	#package : 'MoTion-Tests',
+	#tag : 'matchers'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 LogicalMatcherTest >> testOrMatcherForCollections [
 
 	| obj matcher |
@@ -25,7 +27,7 @@ LogicalMatcherTest >> testOrMatcherForCollections [
 	self assert: (matcher match: obj) isMatch
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 LogicalMatcherTest >> testOrMatcherForComplexObjects [
 
 	| obj matcher |
@@ -45,7 +47,7 @@ LogicalMatcherTest >> testOrMatcherForComplexObjects [
 	self assert: (matcher match: obj) isMatch not
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 LogicalMatcherTest >> testOrMatcherForComplexObjectsInCollections [
 
 	| obj matcher |
@@ -62,7 +64,7 @@ LogicalMatcherTest >> testOrMatcherForComplexObjectsInCollections [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 LogicalMatcherTest >> testOrMatcherForInteger [
 
 	| obj matcher |
@@ -81,7 +83,7 @@ LogicalMatcherTest >> testOrMatcherForInteger [
 	self assert: (matcher match: obj) isMatch not
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 LogicalMatcherTest >> testOrMatcherForMixedType [
 
 	| obj matcher |

diff --git a/MoTion-Tests/MTComposedPathTests.class.st b/MoTion-Tests/MTComposedPathTests.class.st
@@ -1,15 +1,17 @@
 Class {
-	#name : #MTComposedPathTests,
-	#superclass : #MotionPathTests,
+	#name : 'MTComposedPathTests',
+	#superclass : 'MotionPathTests',
 	#instVars : [
 		'a',
 		'b',
 		'c'
 	],
-	#category : #'MoTion-Tests-paths'
+	#category : 'MoTion-Tests-paths',
+	#package : 'MoTion-Tests',
+	#tag : 'paths'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 MTComposedPathTests >> setUp [
 
 	super setUp.
@@ -26,7 +28,7 @@ MTComposedPathTests >> setUp [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MTComposedPathTests >> testComplexPathOfDifferentPaths [
 
 	| path |
@@ -58,7 +60,7 @@ MTComposedPathTests >> testComplexPathOfDifferentPaths [
 	self assertCollection: (path resolveFrom: a) equals: { a }
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MTComposedPathTests >> testComplexPathOfDifferentPathsCreation [
 
 	| path |
@@ -80,7 +82,7 @@ MTComposedPathTests >> testComplexPathOfDifferentPathsCreation [
 	self assertCollection: (path resolveFrom: a) equals: { a }
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MTComposedPathTests >> testComplexPathOfDirectPath [
 
 	| path |
@@ -92,7 +94,7 @@ MTComposedPathTests >> testComplexPathOfDirectPath [
 	self assert: (path resolveFrom: a) equals: { a }
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MTComposedPathTests >> testComplexPathOfDirectPathCreation [
 
 	| path |
@@ -101,7 +103,7 @@ MTComposedPathTests >> testComplexPathOfDirectPathCreation [
 	self assert: (path resolveFrom: a) equals: { a }
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MTComposedPathTests >> testPolymorphicComposedPath [
 
 	| path aa|

diff --git a/MoTion-Tests/MTDirectChildrenPathTests.class.st b/MoTion-Tests/MTDirectChildrenPathTests.class.st
@@ -1,15 +1,17 @@
 Class {
-	#name : #MTDirectChildrenPathTests,
-	#superclass : #MotionPathTests,
+	#name : 'MTDirectChildrenPathTests',
+	#superclass : 'MotionPathTests',
 	#instVars : [
 		'a',
 		'b',
 		'c'
 	],
-	#category : #'MoTion-Tests-paths'
+	#category : 'MoTion-Tests-paths',
+	#package : 'MoTion-Tests',
+	#tag : 'paths'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 MTDirectChildrenPathTests >> setUp [
 
 	super setUp.
@@ -24,7 +26,7 @@ MTDirectChildrenPathTests >> setUp [
 	c a: a
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MTDirectChildrenPathTests >> testDirectChildrenDirectPathEquivalence [
 
 	"Tests that the result yield by a DirectChildren and a DirectPath are the same when there is only one instance variable in the start object"
@@ -38,7 +40,7 @@ MTDirectChildrenPathTests >> testDirectChildrenDirectPathEquivalence [
 		equals: (directPath resolveFrom: directPath)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MTDirectChildrenPathTests >> testDirectChildrenDirectPathEquivalenceCreation [
 
 	"Tests that the result yield by a DirectChildren and a DirectPath are the same when there is only one instance variable in the start object"
@@ -51,7 +53,7 @@ MTDirectChildrenPathTests >> testDirectChildrenDirectPathEquivalenceCreation [
 		equals: (#name asObjectPath resolveFrom: directPath)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MTDirectChildrenPathTests >> testDirectChildrenPathCreation [
 
 	| path |
@@ -62,7 +64,7 @@ MTDirectChildrenPathTests >> testDirectChildrenPathCreation [
 	self assert: (path resolveFrom: c) equals: { a. }.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MTDirectChildrenPathTests >> testMultipleChildrenPath [
 
 	| path |

diff --git a/MoTion-Tests/MTDirectPathTests.class.st b/MoTion-Tests/MTDirectPathTests.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #MTDirectPathTests,
-	#superclass : #MotionPathTests,
-	#category : #'MoTion-Tests-paths'
+	#name : 'MTDirectPathTests',
+	#superclass : 'MotionPathTests',
+	#category : 'MoTion-Tests-paths',
+	#package : 'MoTion-Tests',
+	#tag : 'paths'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 MTDirectPathTests >> testDirectPathCreation [
 
 	| path |
@@ -13,7 +15,7 @@ MTDirectPathTests >> testDirectPathCreation [
 	self assert: (path resolveFrom: path) equals: { #name }
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MTDirectPathTests >> testDirectPathMessage [
 
 	"This test checks if the navigation of path that is an accessor is supported"
@@ -25,7 +27,7 @@ MTDirectPathTests >> testDirectPathMessage [
 	self assert: (path resolveFrom: o) equals: { Object }.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MTDirectPathTests >> testDirectPathSlot [
 
 	"This test checks if the navigation of a simple slot"

diff --git a/MoTion-Tests/MTRecursiveChildrenPathTests.class.st b/MoTion-Tests/MTRecursiveChildrenPathTests.class.st
@@ -1,15 +1,17 @@
 Class {
-	#name : #MTRecursiveChildrenPathTests,
-	#superclass : #MotionPathTests,
+	#name : 'MTRecursiveChildrenPathTests',
+	#superclass : 'MotionPathTests',
 	#instVars : [
 		'a',
 		'b',
 		'c'
 	],
-	#category : #'MoTion-Tests-paths'
+	#category : 'MoTion-Tests-paths',
+	#package : 'MoTion-Tests',
+	#tag : 'paths'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 MTRecursiveChildrenPathTests >> setUp [
 
 	super setUp.
@@ -24,7 +26,7 @@ MTRecursiveChildrenPathTests >> setUp [
 	c a: a
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 MTRecursiveChildrenPathTests >> testRecursivePath [
 
 	| path |
@@ -36,7 +38,7 @@ MTRecursiveChildrenPathTests >> testRecursivePath [
 			c }
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 MTRecursiveChildrenPathTests >> testRecursivePathCreation [
 
 	| path |

diff --git a/MoTion-Tests/MTTestObjectA.class.st b/MoTion-Tests/MTTestObjectA.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : #MTTestObjectA,
-	#superclass : #Object,
+	#name : 'MTTestObjectA',
+	#superclass : 'Object',
 	#instVars : [
 		'b',
 		'c',
@@ -9,51 +9,53 @@ Class {
 		'lfloat',
 		'lst'
 	],
-	#category : #'MoTion-Tests-class-data-tests'
+	#category : 'MoTion-Tests-class-data-tests',
+	#package : 'MoTion-Tests',
+	#tag : 'class-data-tests'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MTTestObjectA >> b: aB [
 	b := aB
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MTTestObjectA >> c: aC [
 
 	c := aC
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MTTestObjectA >> initialize [ 
 
 	super initialize.
 	lst := OrderedCollection new.
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MTTestObjectA >> lfloat: anObject [
 
 	lfloat := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MTTestObjectA >> lint [
 	^ lint
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MTTestObjectA >> lint: anObject [
 
 	lint := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MTTestObjectA >> lst [
 
 	^ lst
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MTTestObjectA >> lstring: anObject [
 
 	lstring := anObject