Test: data for testing EquivalentTreeChecker

pharo-project · Apr 26, 2024 · 692b89b · 692b89b
1 parent 3e115e5
commit 692b89b
Show file tree

Hide file tree

Showing 2 changed files with 40 additions and 0 deletions.
diff --git a/src/Refactoring-DataForTesting/RBEquivalentMethodRootHolder.class.st b/src/Refactoring-DataForTesting/RBEquivalentMethodRootHolder.class.st
@@ -6,8 +6,20 @@ Class {
 	#tag : 'MiniHierarchy'
 }
 
+{ #category : 'as yet unclassified' }
+RBEquivalentMethodRootHolder >> methodWithSuper [
+
+	^ 11 raisedTo: super someNumber factorial
+]
+
 { #category : 'for tests' }
 RBEquivalentMethodRootHolder >> simpleMethodReturn [
 
 	^ 42
 ]
+
+{ #category : 'as yet unclassified' }
+RBEquivalentMethodRootHolder >> someNumber [
+
+	^ 2
+]
diff --git a/src/Refactoring-DataForTesting/RBEquivalentMethodSubclassHolder.class.st b/src/Refactoring-DataForTesting/RBEquivalentMethodSubclassHolder.class.st
@@ -12,8 +12,36 @@ RBEquivalentMethodSubclassHolder >> anotherMethod: arg [
 	^ arg raisedTo: 5
 ]
 
+{ #category : 'as yet unclassified' }
+RBEquivalentMethodSubclassHolder >> methodToExtractFrom [
+
+	| a |
+	a := 7 raisedTo: super someNumber.
+	^ a * 1
+]
+
+{ #category : 'as yet unclassified' }
+RBEquivalentMethodSubclassHolder >> methodToExtractFromWithSuperAndSimilarMethodInSuper [
+
+	| a |
+	a := 11 raisedTo: super someNumber factorial.
+	^ a * 1
+]
+
+{ #category : 'as yet unclassified' }
+RBEquivalentMethodSubclassHolder >> methodWithSuperSend [
+
+	^ 7 raisedTo: super someNumber
+]
+
 { #category : 'for tests' }
 RBEquivalentMethodSubclassHolder >> simpleLocalMethodReturn [
 
 	^ 42 + 33
 ]
+
+{ #category : 'as yet unclassified' }
+RBEquivalentMethodSubclassHolder >> someNumber [
+
+	^ 1
+]