remove useless tests

OpenSmock · Jul 19, 2024 · f40b8f1 · f40b8f1
1 parent d7d4d43
commit f40b8f1
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 45 deletions.
diff --git a/src/Toplo-Serialization/ToCheckbox.extension.st b/src/Toplo-Serialization/ToCheckbox.extension.st
@@ -8,7 +8,7 @@ ToCheckbox >> stonPostReferenceResolution [
 		self checked: aCheckValue.
 		self userData removeKey: #stonChecked ].
 	self userData at: #stonGroup ifPresent: [ :aGroup |
-		aGroup add: self.
+		aGroup register: self.
 		self userData removeKey: #stonGroup ]
 ]
 

diff --git a/src/Toplo-Serialization/ToSerializerTest.class.st b/src/Toplo-Serialization/ToSerializerTest.class.st
@@ -260,17 +260,17 @@ ToSerializerTest >> testToCheckbox4 [
 	button1 := ToCheckbox new
 		           id: #button1;
 		           labelText: 'button1';
-		           addToGroup: group;
+		           registerInGroup: group;
 		           yourself.
 	button2 := ToCheckbox new
 		           id: #button2;
 		           labelText: 'button2';
-		           addToGroup: group;
+		           registerInGroup: group;
 		           yourself.
 	button3 := ToCheckbox new
 		           id: #button3;
 		           labelText: 'button3';
-		           addToGroup: group;
+		           registerInGroup: group;
 		           yourself.
 	pane addChildren: {
 			button1.
@@ -294,13 +294,17 @@ ToSerializerTest >> testToCheckbox4 [
 			assert: (element childAt: 2) group
 			equals: (element childAt: 3) group.
 		self
-			assert: (element childAt: 1) group buttons size equals: 3.
-			self
-			assert: ((element childAt: 1) group buttons includes: (element childAt: 1)).
-			self
-			assert: ((element childAt: 1) group buttons includes: (element childAt: 2)).
-			self
-			assert: ((element childAt: 1) group buttons includes: (element childAt: 3)). ]
+			assert: (element childAt: 1) group registeredCheckables size
+			equals: 3.
+		self assert:
+			((element childAt: 1) group registeredCheckables includes:
+				 (element childAt: 1)).
+		self assert:
+			((element childAt: 1) group registeredCheckables includes:
+				 (element childAt: 2)).
+		self assert:
+			((element childAt: 1) group registeredCheckables includes:
+				 (element childAt: 3)) ]
 ]
 
 { #category : #tests }
@@ -344,39 +348,6 @@ ToSerializerTest >> testTooltip1 [
 { #category : #tests }
 ToSerializerTest >> testTooltip2 [
 
-	| origin tooltip |
-	tooltip := BlElement new id: #tooltip; yourself.
-	origin := ToElement new tooltipContent: tooltip; yourself.
-
-	self
-		test: origin
-		on: [ :element | self assert: element hasTooltip.
-			element newTooltipWindowEvent: nil.
-			self assert: element hasOpenedTooltip.
-			self assert: ((element currentTooltipWindow childAt: 1 ) childAt: 1) id equals: #tooltip
-			]
-]
-
-{ #category : #tests }
-ToSerializerTest >> testTooltip3 [
-
-	| origin |
-	origin := ToElement new
-		          tooltipText: 'hello tooltip';
-		          yourself.
-
-	self test: origin on: [ :element |
-		self assert: element hasTooltip.
-		element newTooltipWindowEvent: nil.
-		self assert: element hasOpenedTooltip.
-		self
-			assert: ((element currentTooltipWindow childAt: 1) childAt: 1) text asString
-			equals: 'hello tooltip' ]
-]
-
-{ #category : #tests }
-ToSerializerTest >> testTooltip4 [
-
 	| origin |
 	origin := ToElement new
 		          tooltipText: 'hello tooltip';
@@ -389,7 +360,7 @@ ToSerializerTest >> testTooltip4 [
 ]
 
 { #category : #tests }
-ToSerializerTest >> testTooltip5 [
+ToSerializerTest >> testTooltip3 [
 
 	| origin |
 	origin := ToElement new