|
2 | 2 | I mock sindarin debug sessions to control it finely during tests |
3 | 3 | " |
4 | 4 | Class { |
5 | | - #name : #SindarinDebugSessionMock, |
6 | | - #superclass : #Object, |
| 5 | + #name : 'SindarinDebugSessionMock', |
| 6 | + #superclass : 'Object', |
7 | 7 | #instVars : [ |
8 | 8 | 'isMessage', |
9 | 9 | 'selector', |
10 | 10 | 'receiver' |
11 | 11 | ], |
12 | | - #category : #'Sindarin-Tests-Mocks' |
| 12 | + #category : 'Sindarin-Tests-Mocks', |
| 13 | + #package : 'Sindarin-Tests', |
| 14 | + #tag : 'Mocks' |
13 | 15 | } |
14 | 16 |
|
15 | | -{ #category : #accessing } |
| 17 | +{ #category : 'accessing' } |
16 | 18 | SindarinDebugSessionMock >> context [ |
17 | 19 | ^self |
18 | 20 | ] |
19 | 21 |
|
20 | | -{ #category : #accessing } |
| 22 | +{ #category : 'accessing' } |
21 | 23 | SindarinDebugSessionMock >> debugSession [ |
22 | 24 | ^self |
23 | 25 | ] |
24 | 26 |
|
25 | | -{ #category : #accessing } |
| 27 | +{ #category : 'accessing' } |
26 | 28 | SindarinDebugSessionMock >> interruptedContext [ |
27 | 29 | ^self |
28 | 30 | ] |
29 | 31 |
|
30 | | -{ #category : #accessing } |
| 32 | +{ #category : 'accessing' } |
31 | 33 | SindarinDebugSessionMock >> isMessage [ |
32 | 34 | ^isMessage ifNil:[false] |
33 | 35 | ] |
34 | 36 |
|
35 | | -{ #category : #accessing } |
| 37 | +{ #category : 'accessing' } |
36 | 38 | SindarinDebugSessionMock >> isMessage: anObject [ |
37 | 39 |
|
38 | 40 | isMessage := anObject |
39 | 41 | ] |
40 | 42 |
|
41 | | -{ #category : #accessing } |
| 43 | +{ #category : 'accessing' } |
42 | 44 | SindarinDebugSessionMock >> method [ |
43 | 45 | ^self |
44 | 46 | ] |
45 | 47 |
|
46 | | -{ #category : #accessing } |
| 48 | +{ #category : 'accessing' } |
47 | 49 | SindarinDebugSessionMock >> pc [ |
48 | 50 | ^self |
49 | 51 | ] |
50 | 52 |
|
51 | | -{ #category : #accessing } |
| 53 | +{ #category : 'accessing' } |
52 | 54 | SindarinDebugSessionMock >> receiver [ |
53 | 55 | ^receiver |
54 | 56 | ] |
55 | 57 |
|
56 | | -{ #category : #accessing } |
| 58 | +{ #category : 'accessing' } |
57 | 59 | SindarinDebugSessionMock >> receiver: anObject [ |
58 | 60 |
|
59 | 61 | receiver := anObject |
60 | 62 | ] |
61 | 63 |
|
62 | | -{ #category : #accessing } |
| 64 | +{ #category : 'accessing' } |
63 | 65 | SindarinDebugSessionMock >> selector [ |
64 | 66 | ^selector |
65 | 67 | ] |
66 | 68 |
|
67 | | -{ #category : #accessing } |
| 69 | +{ #category : 'accessing' } |
68 | 70 | SindarinDebugSessionMock >> selector: anObject [ |
69 | 71 |
|
70 | 72 | selector := anObject |
71 | 73 | ] |
72 | 74 |
|
73 | | -{ #category : #accessing } |
| 75 | +{ #category : 'accessing' } |
74 | 76 | SindarinDebugSessionMock >> sourceNodeExecuted [ |
75 | 77 | ^self |
76 | 78 | ] |
77 | 79 |
|
78 | | -{ #category : #accessing } |
| 80 | +{ #category : 'accessing' } |
79 | 81 | SindarinDebugSessionMock >> sourceNodeForPC: pc [ |
80 | 82 | ^self |
81 | 83 | ] |
0 commit comments