/
InfiniteDebuggerTest.class.st
45 lines (37 loc) · 1.27 KB
/
InfiniteDebuggerTest.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
Class {
#name : #InfiniteDebuggerTest,
#superclass : #TestCase,
#category : #'GT-Tests-Debugger'
}
{ #category : #running }
InfiniteDebuggerTest >> runCaseManaged [
self runCase
]
{ #category : #tests }
InfiniteDebuggerTest >> testTestInfinitDebugger [
| preWindow debugButton debugWindow overButton process |
<expectedFailure>
process := [ TestClassForTestingDebuggerTest debug: #bla ] forkAt: 41.
1000 milliSecond asDelay wait.
MorphicRenderLoop new doOneCycle.
preWindow := (self currentWorld allMorphs
select: [ :e | (e isKindOf: SystemWindow) and: [ e label beginsWith: 'Instance of ' ] ])
first.
debugButton := (preWindow allMorphs
select: [ :e | (e isKindOf: PluggableButtonMorph) and: [ e label = 'Debug' ] ]) first.
debugButton performAction.
preWindow := nil.
debugButton := nil.
100 milliSecond asDelay wait.
MorphicRenderLoop new doOneCycle.
debugWindow := (self currentWorld allMorphs
select: [ :e | (e isKindOf: SystemWindow) and: [ e label beginsWith: 'Instance of Test' ] ])
first.
overButton := (debugWindow allMorphs
select: [ :e | (e isKindOf: GLMPluggableButtonMorph) and: [ e label = 'Over' ] ]) first.
overButton performAction.
100 milliSecond asDelay wait.
self currentWorld doOneCycle.
process terminate.
debugWindow close.
]