Backport fixed tests

src/Announcements-Core-Tests/WeakAnnouncerTest.class.st

@@ -57,12 +57,6 @@ WeakAnnouncerTest >> benchWeakSubscriptionStatic [
 	] timeToRun
 ]
 
-{ #category : #utilities }
-WeakAnnouncerTest >> longTestCase [
-
-	self timeLimit: 60 seconds
-]
-
 { #category : #tests }
 WeakAnnouncerTest >> testNoDeadWeakSubscriptions [
 	self longTestCase.

src/Coverage/CoverageCollectorTest.class.st

@@ -91,10 +91,15 @@ CoverageCollectorTest >> testExample [
 
 	| collector coverage |
 	collector := CoverageCollector new. "Instantiate"
-	collector methods: Point methods, Rectangle methods.  "Configure with the methods to watch."	
-	coverage := collector runOn: [ (1@1 corner: 2@2) center ].  "Setup, execute and teardown."
-	self assert: (coverage methods includes: Point>>#x).  "Inspect the results"
-	self assert: (coverage nodes size > 10). "Covered paths are also available"
+	"We skip the method with special selectors because them might not be detected by the coverage collector in case they are optimized by the VM."
+	collector methods: (Point methods , Rectangle methods reject: [ :method | BytecodeEncoder specialSelectors includes: method selector ]). "Configure with the methods to watch."
+	coverage := collector runOn: [ (1 @ 1 corner: 2 @ 2) center ]. "Setup, execute and teardown."
+	self
+		assertCollection: (coverage methods collect: [ :method | method name ])
+		hasSameElements:
+			#( 'Point>>#corner:' 'Point>>#isPoint' 'Rectangle>>#setPoint:point:' 'Rectangle>>#topLeft'
+			   'Rectangle>>#bottomRight' 'Rectangle>>#center' ). "Inspect the results"
+	self assert: coverage nodes size equals: 6 "Covered paths are also available"
 ]
 
 { #category : #tests }

src/Fuel-Tests-Core/FLCreateClassSerializationTest.class.st

@@ -59,6 +59,8 @@ FLCreateClassSerializationTest >> testCreateClassAndMetaclass [
 	"Tests materialization a class or trait not defined in the image and that the metaclass is also created."
 
 	| class materializedClassOrTrait environment category name metaclassName metaclass |
+	self longTestCase.
+
 	class := self classFactory silentlyNewClass.
 	environment := class environment.
 	category := class category.

src/Fuel-Tests-Core/FLTCreateClassOrTraitSerializationTest.trait.st

@@ -74,6 +74,8 @@ FLTCreateClassOrTraitSerializationTest >> testCreateBasic [
 	"Tests materialization a class or trait not defined in the image."
 
 	| aClassOrTrait materializedClassOrTrait environment category name |
+	self longTestCase.
+
 	aClassOrTrait := self newClassOrTrait.
 	environment := aClassOrTrait environment.
 	category := aClassOrTrait category.

src/SUnit-Core/TestCase.class.st

@@ -748,6 +748,12 @@ TestCase >> logFailure: aString [
 			flush]
 ]
 
+{ #category : #utilities }
+TestCase >> longTestCase [
+
+	self timeLimit: 60 seconds
+]
+
 { #category : #accessing }
 TestCase >> nameForReport [
 

src/System-DependenciesTests/SystemDependenciesTest.class.st

@@ -152,12 +152,6 @@ SystemDependenciesTest >> knownUIDependencies [
 	#'Athens-Morphic' #'Refactoring-Critics' #'Refactoring-Environment' 'Reflectivity-Tools' #Shout #'Tool-Diff' #'Tool-FileList' #'Tool-Profilers' #'HeuristicCompletion-Model' 'NECompletion-Morphic' #VariablesLibrary #'Tools-CodeNavigation' #'Spec2-CommonWidgets')
 ]
 
-{ #category : #utilities }
-SystemDependenciesTest >> longTestCase [
-
-	self timeLimit: 60 seconds
-]
-
 { #category : #accessing }
 SystemDependenciesTest >> metacelloPackageNames [