Fix tests + plugin for tests

OpenSmock · Jan 18, 2024 · 09162b7 · 09162b7
1 parent e13681f
commit 09162b7
Show file tree

Hide file tree

Showing 11 changed files with 62 additions and 2 deletions.
diff --git a/src/Pyramid-Tests/PyramidFakePlugin.class.st b/src/Pyramid-Tests/PyramidFakePlugin.class.st
@@ -16,6 +16,12 @@ PyramidFakePlugin class >> initialize [
 
 ]
 
+{ #category : #testing }
+PyramidFakePlugin class >> isTestPlugin [
+
+	^ true
+]
+
 { #category : #adding }
 PyramidFakePlugin >> addPanelsOn: aPyramidSimpleWindow [
 

diff --git a/src/Pyramid-Tests/PyramidFakePluginA.class.st b/src/Pyramid-Tests/PyramidFakePluginA.class.st
@@ -19,3 +19,9 @@ PyramidFakePluginA class >> initialize [
 	<script>
 
 ]
+
+{ #category : #testing }
+PyramidFakePluginA class >> isTestPlugin [
+
+	^ true
+]
diff --git a/src/Pyramid-Tests/PyramidFakePluginB.class.st b/src/Pyramid-Tests/PyramidFakePluginB.class.st
@@ -19,3 +19,9 @@ PyramidFakePluginB class >> initialize [
 	<script>
 
 ]
+
+{ #category : #testing }
+PyramidFakePluginB class >> isTestPlugin [
+
+	^ true
+]
diff --git a/src/Pyramid-Tests/PyramidFakePluginC.class.st b/src/Pyramid-Tests/PyramidFakePluginC.class.st
@@ -19,3 +19,9 @@ PyramidFakePluginC class >> initialize [
 	<script>
 
 ]
+
+{ #category : #testing }
+PyramidFakePluginC class >> isTestPlugin [
+
+	^ true
+]
diff --git a/src/Pyramid-Tests/PyramidFakePluginD.class.st b/src/Pyramid-Tests/PyramidFakePluginD.class.st
@@ -19,3 +19,9 @@ PyramidFakePluginD class >> initialize [
 	<script>
 
 ]
+
+{ #category : #testing }
+PyramidFakePluginD class >> isTestPlugin [
+
+	^ true
+]
diff --git a/src/Pyramid-Tests/PyramidFakePluginE.class.st b/src/Pyramid-Tests/PyramidFakePluginE.class.st
@@ -19,3 +19,9 @@ PyramidFakePluginE class >> initialize [
 	<script>
 
 ]
+
+{ #category : #testing }
+PyramidFakePluginE class >> isTestPlugin [
+
+	^ true
+]
diff --git a/src/Pyramid-Tests/PyramidFakePluginF.class.st b/src/Pyramid-Tests/PyramidFakePluginF.class.st
@@ -19,3 +19,9 @@ PyramidFakePluginF class >> initialize [
 	<script>
 
 ]
+
+{ #category : #testing }
+PyramidFakePluginF class >> isTestPlugin [
+
+	^ true
+]
diff --git a/src/Pyramid-Tests/PyramidFakePluginG.class.st b/src/Pyramid-Tests/PyramidFakePluginG.class.st
@@ -19,3 +19,9 @@ PyramidFakePluginG class >> initialize [
 	<script>
 
 ]
+
+{ #category : #testing }
+PyramidFakePluginG class >> isTestPlugin [
+
+	^ true
+]
diff --git a/src/Pyramid/PyramidMessageItem.class.st b/src/Pyramid/PyramidMessageItem.class.st
@@ -4,6 +4,12 @@ Class {
 	#category : #'Pyramid-views'
 }
 
+{ #category : #comparing }
+PyramidMessageItem >> <= aPyramidMessageItems [
+
+	^ true.
+]
+
 { #category : #adding }
 PyramidMessageItem >> addOnLayout: aLayout [
 

diff --git a/src/Pyramid/PyramidPluginManager.class.st b/src/Pyramid/PyramidPluginManager.class.st
@@ -26,9 +26,9 @@ PyramidPluginManager class >> cleanUp: anObject [
 
 { #category : #initialization }
 PyramidPluginManager class >> imagePluginClasses [
-	<script: 'self imagePluginClasses inspect'>
 
-	^ TPyramidPlugin users
+	<script: 'self imagePluginClasses inspect'>
+	^ TPyramidPlugin users reject: [ :each | each isTestPlugin ]
 ]
 
 { #category : #initialization }

diff --git a/src/Pyramid/TPyramidPlugin.trait.st b/src/Pyramid/TPyramidPlugin.trait.st
@@ -32,6 +32,12 @@ TPyramidPlugin classSide >> install [
 	"Do some stuff here when the plugin used class oriented behavior"
 ]
 
+{ #category : #testing }
+TPyramidPlugin classSide >> isTestPlugin [
+
+	^ false
+]
+
 { #category : #initialization }
 TPyramidPlugin classSide >> reset [