ScriptableDebugger/src/Sindarin-Tests/SindarinDebugSessionTest.class.st at 0f90fb7eeec11712ff8086f03932e59e900bf351 · pharo-spec/ScriptableDebugger · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Class {
	#name : 'SindarinDebugSessionTest',
	#superclass : 'TestCase',
	#instVars : [
		'debugSession',
		'sindarinSession'
	],
	#category : 'Sindarin-Tests-Base',
	#package : 'Sindarin-Tests',
	#tag : 'Base'
}

{ #category : 'running' }
SindarinDebugSessionTest >> setUp [
	"Hooks that subclasses may override to define the fixture of test."

	super setUp.
	debugSession := DebugSession new.
	sindarinSession := debugSession asSindarinDebugSession
]

{ #category : 'tests' }
SindarinDebugSessionTest >> testDebugSessionAsSindarinDebugSession [

	self assert: sindarinSession debugSession identicalTo: debugSession
]

{ #category : 'tests' }
SindarinDebugSessionTest >> testSindarinSessionAsSindarinDebugSession [

	self
		assert: sindarinSession asSindarinDebugSession
		identicalTo: sindarinSession
]

{ #category : 'tests' }
SindarinDebugSessionTest >> testSindarinSessionInstantiation [

	| sessionName process |
	sessionName := 'TestSDS'.
	process := [  ] newProcess.
	sindarinSession := SindarinDebugSession
		                   newWithName: sessionName
		                   forProcess: process.
	self assert: sindarinSession debugSession isNotNil.
	self assert: sindarinSession debugSession name equals: sessionName.
	self
		assert: sindarinSession debugSession process
		identicalTo: process
]