forked from pharo-project/pharo
/
StMockDebuggerActionModel.class.st
54 lines (44 loc) · 1.1 KB
/
StMockDebuggerActionModel.class.st
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
51
52
53
54
"
I'm used to mock certain aspects of the `StDebuggerActionModel` class for testing.
"
Class {
#name : #StMockDebuggerActionModel,
#superclass : #StDebuggerActionModel,
#instVars : [
'tag',
'interruptedContext'
],
#category : #'NewTools-Debugger-Tests-Utils'
}
{ #category : #'debug - session' }
StMockDebuggerActionModel >> autoClassifyMessage: aMessage inClass: aClass [
]
{ #category : #context }
StMockDebuggerActionModel >> computeInitialTopContext [
]
{ #category : #initialize }
StMockDebuggerActionModel >> initialize [
super initialize.
self interruptedContext: (Context
sender: nil
receiver: nil
method: Object >> #doesNotUnderstand:
arguments: #( #message ))
]
{ #category : #accessing }
StMockDebuggerActionModel >> interruptedContext: anObject [
interruptedContext := anObject.
topContext := anObject
]
{ #category : #accessing }
StMockDebuggerActionModel >> session [
^StMockSession new
]
{ #category : #accessing }
StMockDebuggerActionModel >> tag [
^tag
]
{ #category : #'debug - stepping' }
StMockDebuggerActionModel >> updateTopContext [
tag := #updateTopContext
]