clean-up tests setUp

pharo-graphics · Dec 14, 2023 · ae2be29 · ae2be29
1 parent 6191728
commit ae2be29
Show file tree

Hide file tree

Showing 40 changed files with 23 additions and 367 deletions.
diff --git a/src/Toplo-Tests/TToElementWithContextMenuTest.class.st b/src/Toplo-Tests/TToElementWithContextMenuTest.class.st
@@ -1,22 +1,11 @@
 Class {
 	#name : 'TToElementWithContextMenuTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core',
 	#package : 'Toplo-Tests',
 	#tag : 'Core'
 }
 
-{ #category : 'running' }
-TToElementWithContextMenuTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace. 
-
-]
-
 { #category : 'tests' }
 TToElementWithContextMenuTest >> testContextMenu [
 

diff --git a/src/Toplo-Tests/TToElementWithPlaceholderTest.class.st b/src/Toplo-Tests/TToElementWithPlaceholderTest.class.st
@@ -4,22 +4,11 @@ A TToElementWithPlaceholderTest is a test class for testing the behavior of TToE
 Class {
 	#name : 'TToElementWithPlaceholderTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core',
 	#package : 'Toplo-Tests',
 	#tag : 'Core'
 }
 
-{ #category : 'running' }
-TToElementWithPlaceholderTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace. 
-
-]
-
 { #category : 'tests' }
 TToElementWithPlaceholderTest >> testCurrentPlaceholderLayer [
 

diff --git a/src/Toplo-Tests/TToElementWithTooltipTest.class.st b/src/Toplo-Tests/TToElementWithTooltipTest.class.st
@@ -4,22 +4,11 @@ A TToWidgetWithTooltipTest is a test class for testing the behavior of TToWidget
 Class {
 	#name : 'TToElementWithTooltipTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core',
 	#package : 'Toplo-Tests',
 	#tag : 'Core'
 }
 
-{ #category : 'running' }
-TToElementWithTooltipTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace. 
-
-]
-
 { #category : 'tests' }
 TToElementWithTooltipTest >> testCloseTooltipWindowOnMouseLeave [
 

diff --git a/src/Toplo-Tests/TToOrientableTest.class.st b/src/Toplo-Tests/TToOrientableTest.class.st
@@ -5,7 +5,6 @@ Class {
 	#name : 'TToOrientableTest',
 	#superclass : 'ToParameterizedHostTest',
 	#instVars : [
-		'space',
 		'pane',
 		'child1',
 		'child2',
@@ -21,7 +20,6 @@ Class {
 TToOrientableTest >> setUp [
 
 	super setUp.
-	space := self newTestingSpace.
 	pane := ToPane new.
 	oriCpt := 0.
 	dirCpt := 0.

diff --git a/src/Toplo-Tests/ToAnchorEventHandlerTest.class.st b/src/Toplo-Tests/ToAnchorEventHandlerTest.class.st
@@ -0,0 +1,10 @@
+"
+A ToAnchorEventHandlerTest is a test class for testing the behavior of ToAnchorEventHandler
+"
+Class {
+	#name : 'ToAnchorEventHandlerTest',
+	#superclass : 'ToParameterizedHostTest',
+	#category : 'Toplo-Tests-Core-Window',
+	#package : 'Toplo-Tests',
+	#tag : 'Core-Window'
+}
diff --git a/src/Toplo-Tests/ToAnchoredWindowManagerTest.class.st b/src/Toplo-Tests/ToAnchoredWindowManagerTest.class.st
@@ -4,22 +4,11 @@ A ToAnchoredWindowHandlerTest is a test class for testing the behavior of ToAnch
 Class {
 	#name : 'ToAnchoredWindowManagerTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core-Window',
 	#package : 'Toplo-Tests',
 	#tag : 'Core-Window'
 }
 
-{ #category : 'running' }
-ToAnchoredWindowManagerTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace.
-
-]
-
 { #category : 'tests' }
 ToAnchoredWindowManagerTest >> testApplyPositionHookFromEvent [
 

diff --git a/src/Toplo-Tests/ToAnchoredWindowTest.class.st b/src/Toplo-Tests/ToAnchoredWindowTest.class.st
@@ -4,22 +4,11 @@ A ToAnchoredWindowTest is a test class for testing the behavior of ToAnchoredWin
 Class {
 	#name : 'ToAnchoredWindowTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core-Window',
 	#package : 'Toplo-Tests',
 	#tag : 'Core-Window'
 }
 
-{ #category : 'running' }
-ToAnchoredWindowTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace.
-
-]
-
 { #category : 'tests' }
 ToAnchoredWindowTest >> testDefaultElevation [
 

diff --git a/src/Toplo-Tests/ToCheckStateTest.class.st b/src/Toplo-Tests/ToCheckStateTest.class.st
@@ -1,22 +1,11 @@
 Class {
 	#name : 'ToCheckStateTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core-States',
 	#package : 'Toplo-Tests',
 	#tag : 'Core-States'
 }
 
-{ #category : 'running' }
-ToCheckStateTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace. 
-
-]
-
 { #category : 'running' }
 ToCheckStateTest >> testApplyOn [
 

diff --git a/src/Toplo-Tests/ToElementTest.class.st b/src/Toplo-Tests/ToElementTest.class.st
@@ -4,22 +4,11 @@ A ToElementTest is a test class for testing the behavior of ToElement
 Class {
 	#name : 'ToElementTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core',
 	#package : 'Toplo-Tests',
 	#tag : 'Core'
 }
 
-{ #category : 'running' }
-ToElementTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace. 
-
-]
-
 { #category : 'tests' }
 ToElementTest >> testAddEventFilter [
 

diff --git a/src/Toplo-Tests/ToEnablementStateTest.class.st b/src/Toplo-Tests/ToEnablementStateTest.class.st
@@ -1,22 +1,11 @@
 Class {
 	#name : 'ToEnablementStateTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core-States',
 	#package : 'Toplo-Tests',
 	#tag : 'Core-States'
 }
 
-{ #category : 'running' }
-ToEnablementStateTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace. 
-
-]
-
 { #category : 'running' }
 ToEnablementStateTest >> testApplyOn [
 

diff --git a/src/Toplo-Tests/ToFocusStateTest.class.st b/src/Toplo-Tests/ToFocusStateTest.class.st
@@ -1,22 +1,11 @@
 Class {
 	#name : 'ToFocusStateTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core-States',
 	#package : 'Toplo-Tests',
 	#tag : 'Core-States'
 }
 
-{ #category : 'running' }
-ToFocusStateTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace. 
-
-]
-
 { #category : 'running' }
 ToFocusStateTest >> testApplyOn [
 

diff --git a/src/Toplo-Tests/ToInstallStateTest.class.st b/src/Toplo-Tests/ToInstallStateTest.class.st
@@ -1,22 +1,11 @@
 Class {
 	#name : 'ToInstallStateTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core-States',
 	#package : 'Toplo-Tests',
 	#tag : 'Core-States'
 }
 
-{ #category : 'running' }
-ToInstallStateTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace. 
-
-]
-
 { #category : 'running' }
 ToInstallStateTest >> testApplyOn [
 

diff --git a/src/Toplo-Tests/ToIntrinsicStateTest.class.st b/src/Toplo-Tests/ToIntrinsicStateTest.class.st
@@ -1,22 +1,11 @@
 Class {
 	#name : 'ToIntrinsicStateTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core-States',
 	#package : 'Toplo-Tests',
 	#tag : 'Core-States'
 }
 
-{ #category : 'running' }
-ToIntrinsicStateTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace. 
-
-]
-
 { #category : 'running' }
 ToIntrinsicStateTest >> testApplyOn [ 
 

diff --git a/src/Toplo-Tests/ToLabeledIconEventHandlerTest.class.st b/src/Toplo-Tests/ToLabeledIconEventHandlerTest.class.st
@@ -4,22 +4,11 @@ A ToLabeledIconEventHandlerTest is a test class for testing the behavior of ToLa
 Class {
 	#name : 'ToLabeledIconEventHandlerTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core',
 	#package : 'Toplo-Tests',
 	#tag : 'Core'
 }
 
-{ #category : 'running' }
-ToLabeledIconEventHandlerTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace. 
-
-]
-
 { #category : 'layout constraints' }
 ToLabeledIconEventHandlerTest >> testDirection [
 

diff --git a/src/Toplo-Tests/ToLookEventActionTest.class.st b/src/Toplo-Tests/ToLookEventActionTest.class.st
@@ -1,21 +1,11 @@
 Class {
 	#name : 'ToLookEventActionTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core-StyleSheet',
 	#package : 'Toplo-Tests',
 	#tag : 'Core-StyleSheet'
 }
 
-{ #category : 'running' }
-ToLookEventActionTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace
-]
-
 { #category : 'tests' }
 ToLookEventActionTest >> testCanReceiveEvent [
 

diff --git a/src/Toplo-Tests/ToOverlayWindowManagerTest.class.st b/src/Toplo-Tests/ToOverlayWindowManagerTest.class.st
@@ -4,22 +4,11 @@ A ToOverlayWindowManagerTest is a test class for testing the behavior of ToOverl
 Class {
 	#name : 'ToOverlayWindowManagerTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core-Window',
 	#package : 'Toplo-Tests',
 	#tag : 'Core-Window'
 }
 
-{ #category : 'running' }
-ToOverlayWindowManagerTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace.
-
-]
-
 { #category : 'tests' }
 ToOverlayWindowManagerTest >> testDefaultSizeHook [
 

diff --git a/src/Toplo-Tests/ToOverlayWindowTest.class.st b/src/Toplo-Tests/ToOverlayWindowTest.class.st
@@ -4,22 +4,11 @@ A ToOverlayWindowTest is a test class for testing the behavior of ToOverlayWindo
 Class {
 	#name : 'ToOverlayWindowTest',
 	#superclass : 'ToParameterizedHostTest',
-	#instVars : [
-		'space'
-	],
 	#category : 'Toplo-Tests-Core-Window',
 	#package : 'Toplo-Tests',
 	#tag : 'Core-Window'
 }
 
-{ #category : 'running' }
-ToOverlayWindowTest >> setUp [ 
-
-	super setUp.
-	space := self newTestingSpace.
-
-]
-
 { #category : 'tests' }
 ToOverlayWindowTest >> testWindowSize [
 

diff --git a/src/Toplo-Tests/ToParameterizedHostTest.class.st b/src/Toplo-Tests/ToParameterizedHostTest.class.st
@@ -1,6 +1,9 @@
 Class {
 	#name : 'ToParameterizedHostTest',
 	#superclass : 'BlParameterizedHostTest',
+	#instVars : [
+		'space'
+	],
 	#category : 'Toplo-Tests-Core',
 	#package : 'Toplo-Tests',
 	#tag : 'Core'
@@ -16,6 +19,14 @@ ToParameterizedHostTest >> applyAllEnqueuedStates [
 		each requestNextPulse ].
 ]
 
+{ #category : 'running' }
+ToParameterizedHostTest >> setUp [ 
+
+	super setUp.
+	space := self newTestingSpace. 
+
+]
+
 { #category : 'tests' }
 ToParameterizedHostTest >> testingSpace: aSpace showThenDo: aBlock [