Merge pull request #900 from Rinzwind/smoketest-debugpointbrowser

Add package ‘NewTools-DebugPointsBrowser-Tests’ with a subclass of SpSmokeTest for DebugPointBrowserPresenter
pharo-spec · Nov 17, 2024 · 5fae82f · 5fae82f
2 parents 7179c4b + 5dc6f0e
commit 5fae82f
Show file tree

Hide file tree

Showing 3 changed files with 21 additions and 0 deletions.
diff --git a/src/BaselineOfNewTools/BaselineOfNewTools.class.st b/src/BaselineOfNewTools/BaselineOfNewTools.class.st
@@ -67,6 +67,7 @@ BaselineOfNewTools >> baseline: spec [
 			package: 'NewTools-Debugger-Breakpoints-Tools' with: [ spec requires: #( 'NewTools-Inspector' ) ];
 			"Debug points"
 			package: 'NewTools-DebugPointsBrowser' with: [spec requires: #( 'NewTools-SpTextPresenterDecorators' )];
+			package: 'NewTools-DebugPointsBrowser-Tests' with: [ spec requires: #( 'NewTools-DebugPointsBrowser' ) ];
 			package: 'NewTools-ObjectCentricDebugPoints' with: [spec requires: #( 'NewTools-DebugPointsBrowser' 'NewTools-Inspector' 'NewTools-Debugger' )];
 			package: 'NewTools-ProjectLoader';
 			package: 'NewTools-ProjectLoader-Microdown';
@@ -132,6 +133,7 @@ BaselineOfNewTools >> baseline: spec [
 				    	'NewTools-Debugger-Fuel-Tests' 
 					 	'NewTools-Utils'
 						'NewTools-DebugPointsBrowser'
+						'NewTools-DebugPointsBrowser-Tests'
 						'NewTools-ObjectCentricDebugPoints' );
 			group: 'Spotter' with: #( 
 						'NewTools-Morphic-Spotter' 

diff --git a/src/NewTools-DebugPointsBrowser-Tests/DebugPointBrowserPresenterTest.class.st b/src/NewTools-DebugPointsBrowser-Tests/DebugPointBrowserPresenterTest.class.st
@@ -0,0 +1,18 @@
+Class {
+	#name : 'DebugPointBrowserPresenterTest',
+	#superclass : 'SpSmokeTest',
+	#category : 'NewTools-DebugPointsBrowser-Tests',
+	#package : 'NewTools-DebugPointsBrowser-Tests'
+}
+
+{ #category : 'accessing' }
+DebugPointBrowserPresenterTest >> adapter [
+
+	self shouldNotImplement
+]
+
+{ #category : 'accessing' }
+DebugPointBrowserPresenterTest >> classToTest [
+
+	^ DebugPointBrowserPresenter
+]
diff --git a/src/NewTools-DebugPointsBrowser-Tests/package.st b/src/NewTools-DebugPointsBrowser-Tests/package.st
@@ -0,0 +1 @@
+Package { #name : 'NewTools-DebugPointsBrowser-Tests' }