Rename fake testing demos and use another pragma to remove noise among real demos

Author: tinchodias

src/Bloc-Demo/BlDemoBasicNodeTest.class.st

@@ -1,31 +1,29 @@
 Class {
 	#name : #BlDemoBasicNodeTest,
 	#superclass : #TestCase,
-	#instVars : [
-		'class',
-		'class2'
-	],
 	#category : #'Bloc-Demo-NodeTests'
 }
 
 { #category : #tests }
 BlDemoBasicNodeTest >> testEnsureClassForWithDifferentClass [
 
-	| demo |
+	| demo class class2 |
 	demo := BlDemoCollector new.
-	class := demo ensureClassFor: BlDemoData.
-	class2 := demo ensureClassFor: BlDemoData2.
-	self deny: class == class2
+	class := demo ensureClassFor: BlFakeDemo.
+	class2 := demo ensureClassFor: BlFakeDemo2.
+
+	self deny: class identicalTo: class2
 ]
 
 { #category : #tests }
 BlDemoBasicNodeTest >> testEnsureClassForWithSameClass [
 
-	| demo |
+	| demo class class2 |
 	demo := BlDemoCollector new.
-	class := demo ensureClassFor: BlDemoData.
-	class2 := demo ensureClassFor: BlDemoData.
-	self assert: class == class2
+	class := demo ensureClassFor: BlFakeDemo.
+	class2 := demo ensureClassFor: BlFakeDemo.
+
+	self assert: class identicalTo: class2
 ]
 
 { #category : #tests }
@@ -35,7 +33,8 @@ BlDemoBasicNodeTest >> testEnsurePackageForWithSamePackage [
 	demo := BlDemoCollector new.
 	package := demo ensurePackageFor: 'Bloc-Demo'.
 	package2 := demo ensurePackageFor: 'Bloc-Demo'.
-	self assert: package == package2
+
+	self assert: package identicalTo: package2
 ]
 
 { #category : #tests }
@@ -44,8 +43,8 @@ BlDemoBasicNodeTest >> testOneClassWithDifferentPragma [
 	| collector elt1 classNode |
 
 	collector := BlDemoCollector new.
-	collector pragma: #demo2.
-	collector collectClass: BlDemoData.
+	collector pragma: #demoTestingPragma2.
+	collector collectClass: BlFakeDemo.
 	classNode := collector classes first.
 	elt1 := classNode children first.
 	self assert: elt1 class equals: BlDemoMethodNode.
@@ -57,12 +56,14 @@ BlDemoBasicNodeTest >> testOneClassWithDifferentPragma [
 BlDemoBasicNodeTest >> testOneClassWithTwoMethodsHasTwoNodes [
 
 	| collector elt1 elt2 classNode |
-	
 	collector := BlDemoCollector new.
-	collector collectClass: BlDemoData.
+	collector pragma: #demoTestingPragma.
+	collector collectClass: BlFakeDemo.
 	classNode := collector classes first.
+
 	elt1 := classNode children first.
 	self assert: elt1 class equals: BlDemoMethodNode.
+
 	elt2 := classNode children second.
 	self assert: elt2 class equals: BlDemoMethodNode.
 
@@ -73,25 +74,25 @@ BlDemoBasicNodeTest >> testOneClassWithTwoMethodsHasTwoNodes [
 { #category : #tests }
 BlDemoBasicNodeTest >> testOneClassWithoutPragma [
 
-	| collector  |
-	
+	| collector |
 	collector := BlDemoCollector new.
-	collector pragma: #blabla.
-	collector collectClass: BlDemoData.
+	collector pragma: #demoTestingPragma_Empty.
+	collector collectClass: BlFakeDemo.
+
 	self assert: collector classes isEmpty
 ]
 
 { #category : #tests }
 BlDemoBasicNodeTest >> testOnePackageWithTwoClassesHasTwoNodes [
 
 	| collector packages |
-	collector := BlDemoCollector new
-		             pragma: #demo;
-		             collectPackage:
-			             (self class packageOrganizer packageNamed: #'Bloc-Demo').
+	collector := BlDemoCollector new.
+	collector
+		pragma: #demoTestingPragma;
+		collectPackageNamed: #'Bloc-Demo'.
+
 	packages := collector packages.
 	self assert: packages size equals: 1.
-
 	self assert: packages first class equals: BlDemoPackageNode.
 	self assert: packages first children size equals: 2.
 	self
@@ -103,13 +104,14 @@ BlDemoBasicNodeTest >> testOnePackageWithTwoClassesHasTwoNodes [
 BlDemoBasicNodeTest >> testOnePackageWithTwoClassesHasTwoNodesWithSample2 [
 
 	| collector packages |
-	collector := BlDemoCollector new
-		             pragma: #demo2;
-		             collectPackage:
-			             (self class packageOrganizer packageNamed: #'Bloc-Demo').
+	collector := BlDemoCollector new.
+	collector
+		pragma: #demoTestingPragma2;
+		collectPackage:
+			(self class packageOrganizer packageNamed: #'Bloc-Demo').
+
 	packages := collector packages.
 	self assert: packages size equals: 1.
-
 	self assert: packages first class equals: BlDemoPackageNode.
 	self assert: packages first children size equals: 1
 ]

src/Bloc-Demo/BlDemoData.class.st

@@ -0,0 +1,26 @@
+Class {
+	#name : #BlFakeDemo,
+	#superclass : #Object,
+	#category : #'Bloc-Demo-NodeTests'
+}
+
+{ #category : #return }
+BlFakeDemo >> returnBlElement [
+
+	<demoTestingPragma>
+	^ BlElement new background: Color blue
+]
+
+{ #category : #return }
+BlFakeDemo >> returnBlElement2 [
+
+	<demoTestingPragma>
+	^ BlElement new background: Color red
+]
+
+{ #category : #return }
+BlFakeDemo >> returnBlElementWithADifferentPragma [
+
+	<demoTestingPragma2>
+	^ BlElement new background: Color blue
+]

src/Bloc-Demo/BlDemoData2.class.st

@@ -0,0 +1,33 @@
+Class {
+	#name : #BlFakeDemo2,
+	#superclass : #Object,
+	#category : #'Bloc-Demo-NodeTests'
+}
+
+{ #category : #return }
+BlFakeDemo2 >> returnBlElement [
+
+	<demoTestingPragma>
+	^ BlElement new background: Color blue
+]
+
+{ #category : #return }
+BlFakeDemo2 >> returnBlElement2 [
+
+	<demoTestingPragma>
+	^ BlElement new background: Color red
+]
+
+{ #category : #return }
+BlFakeDemo2 >> returnBlElement3 [
+
+	<demoTestingPragma>
+	^ BlElement new background: Color blue
+]
+
+{ #category : #return }
+BlFakeDemo2 >> returnNil [
+
+	<demoTestingPragma>
+	^ nil
+]