Sync: Bring changes from P9 (tests' package)

src/Hiedra-Tests/HiExamplesTest.class.st

@@ -1,38 +1,45 @@
 Class {
 	#name : #HiExamplesTest,
 	#superclass : #TestCase,
+	#instVars : [
+		'example'
+	],
 	#category : #'Hiedra-Tests-Model'
 }
 
+{ #category : #tests }
+HiExamplesTest class >> classWithExamplesToTest [
+	^ self
+]
+
 { #category : #testing }
 HiExamplesTest class >> isAbstract [
 	^ self = HiExamplesTest
 ]
 
 { #category : #tests }
-HiExamplesTest >> exampleClassToTest [
-	^ self subclassResponsibility
+HiExamplesTest class >> testSelectors [
+
+	^ self classWithExamplesToTest classSide methods 
+			select: [ :each |  (each selector beginsWith: 'example') and: [ each numArgs = 0 ] ]
+			thenCollect: [ :each | each selector ]
+
+
 ]
 
 { #category : #tests }
-HiExamplesTest >> exampleMethods [
+HiExamplesTest class >> whichClassIncludesTestSelector: aSymbol [
+	^self classWithExamplesToTest classSide whichClassIncludesSelector: aSymbol
+]
 
-	^ self exampleClassToTest classSide methods select: [ :each | 
-		  (each selector beginsWith: 'example') and: [ each numArgs = 0 ] ]
+{ #category : #private }
+HiExamplesTest >> performTest [
+	example := self class classWithExamplesToTest perform: testSelector asSymbol
 ]
 
-{ #category : #tests }
-HiExamplesTest >> testAllExamples [
-	| exampleMethods |
-
-	self timeLimit: 1 minute.
-
-	exampleMethods := self exampleMethods.
-	self deny: exampleMethods isEmpty.
+{ #category : #running }
+HiExamplesTest >> tearDown [ 
 
-	exampleMethods do: [ :each | | anExample |
-		self
-			shouldnt: [ anExample := each methodClass instanceSide perform: each selector ]
-			raise: Error.
-		anExample ifNotNil: [ anExample close ] ]
+	example ifNotNil: [ example close ].
+	super tearDown
 ]

src/Hiedra-Tests/HiFastTableExampleTest.class.st

@@ -5,6 +5,6 @@ Class {
 }
 
 { #category : #tests }
-HiFastTableExampleTest >> exampleClassToTest [
+HiFastTableExampleTest class >> classWithExamplesToTest [
 	^ HiFastTableExample
 ]

src/Hiedra-Tests/HiRulerBuilderTest.class.st

@@ -367,9 +367,9 @@ HiRulerBuilderTest >> testTwoMergedForks [
 	"
 
 	self buildRulerWith: {
-		#c -> #(a b).
-		#b -> #(a).
-		#a -> #().
+		#c -> #(a b) copy.
+		#b -> #(a) copy.
+		#a -> #() copy.
 	}.
 
 	self assertRulerHasNodes: {

src/Hiedra-Tests/HiRulerTest.class.st

@@ -32,7 +32,7 @@ HiRulerTest >> testTwoMergedForks [
 	"
 
 	| ruler c b a |
-	ruler := HiRuler withValues: #(c b a).
+	ruler := HiRuler withValues: #(c b a) copy.
 
 	c := ruler addNodeFor: #c.
 	a := ruler addNodeFor: #a.

src/Hiedra-Tests/HiSpecExampleTest.class.st

@@ -5,6 +5,6 @@ Class {
 }
 
 { #category : #tests }
-HiSpecExampleTest >> exampleClassToTest [
+HiSpecExampleTest class >> classWithExamplesToTest [
 	^ HiSpecExample
 ]