Merge pull request pharo-spec#92 from pharo-spec/revert-90-87-update-SindarinDebuggerTesttestIsAboutToInstantiateClass

Revert "Fix pharo-spec#87. Update a test to use the new name of a method"

Author: MarcusDenker

src/Sindarin-Tests/SindarinDebugSessionMock.class.st

@@ -2,82 +2,80 @@
 I mock sindarin debug sessions to control it finely during tests
 "
 Class {
-	#name : 'SindarinDebugSessionMock',
-	#superclass : 'Object',
+	#name : #SindarinDebugSessionMock,
+	#superclass : #Object,
 	#instVars : [
 		'isMessage',
 		'selector',
 		'receiver'
 	],
-	#category : 'Sindarin-Tests-Mocks',
-	#package : 'Sindarin-Tests',
-	#tag : 'Mocks'
+	#category : #'Sindarin-Tests-Mocks'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 SindarinDebugSessionMock >> context [
 	 ^self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 SindarinDebugSessionMock >> debugSession [
 	 ^self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 SindarinDebugSessionMock >> interruptedContext [
 	 ^self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 SindarinDebugSessionMock >> isMessage [
 	 ^isMessage ifNil:[false]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 SindarinDebugSessionMock >> isMessage: anObject [
 
 	isMessage := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 SindarinDebugSessionMock >> method [
 	 ^self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 SindarinDebugSessionMock >> pc [
 	 ^self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 SindarinDebugSessionMock >> receiver [
 	 ^receiver
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 SindarinDebugSessionMock >> receiver: anObject [
 
 	receiver := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 SindarinDebugSessionMock >> selector [
 	^selector 
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 SindarinDebugSessionMock >> selector: anObject [
 
 	selector := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 SindarinDebugSessionMock >> sourceNodeExecuted [
 	 ^self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 SindarinDebugSessionMock >> sourceNodeForPC: pc [
 	 ^self
 ]

src/Sindarin-Tests/SindarinDebugSessionTest.class.st

@@ -1,16 +1,14 @@
 Class {
-	#name : 'SindarinDebugSessionTest',
-	#superclass : 'TestCase',
+	#name : #SindarinDebugSessionTest,
+	#superclass : #TestCase,
 	#instVars : [
 		'debugSession',
 		'sindarinSession'
 	],
-	#category : 'Sindarin-Tests-Base',
-	#package : 'Sindarin-Tests',
-	#tag : 'Base'
+	#category : #'Sindarin-Tests-Base'
 }
 
-{ #category : 'running' }
+{ #category : #running }
 SindarinDebugSessionTest >> setUp [
 	"Hooks that subclasses may override to define the fixture of test."
 
@@ -19,21 +17,21 @@ SindarinDebugSessionTest >> setUp [
 	sindarinSession := debugSession asSindarinDebugSession
 ]
 
-{ #category : 'tests' }
+{ #category : #tests }
 SindarinDebugSessionTest >> testDebugSessionAsSindarinDebugSession [
 
 	self assert: sindarinSession debugSession identicalTo: debugSession
 ]
 
-{ #category : 'tests' }
+{ #category : #tests }
 SindarinDebugSessionTest >> testSindarinSessionAsSindarinDebugSession [
 
 	self
 		assert: sindarinSession asSindarinDebugSession
 		identicalTo: sindarinSession
 ]
 
-{ #category : 'tests' }
+{ #category : #tests }
 SindarinDebugSessionTest >> testSindarinSessionInstantiation [
 
 	| sessionName process |