author | sr |
Fri, 13 Oct 2017 17:04:06 +0200 | |
changeset 1844 | ed97cbcaf98d |
parent 1447 | 2351db93aa5b |
child 2152 | ecebb701ab49 |
permissions | -rw-r--r-- |
1447 | 1 |
"{ Package: 'stx:goodies/regression' }" |
901 | 2 |
|
3 |
"{ NameSpace: RegressionTests }" |
|
4 |
||
5 |
TestCase subclass:#BreakpointTests |
|
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
1261
9852708a0c72
class: RegressionTests::BreakpointTests
Claus Gittinger <cg@exept.de>
parents:
919
diff
changeset
|
9 |
category:'tests-Regression-RuntimeSystem' |
901 | 10 |
! |
11 |
||
12 |
!BreakpointTests class methodsFor:'documentation'! |
|
13 |
||
14 |
documentation |
|
15 |
" |
|
16 |
Testcase to test VM breakpoint support (aka Jan's new breakpoints). |
|
17 |
If the VM is not compiled with new breakpoint support, this tests should |
|
18 |
be skipped. |
|
19 |
||
20 |
[author:] |
|
21 |
Jan Vrany <jan.vrany@fit.cvut.cz> |
|
22 |
||
23 |
[instance variables:] |
|
24 |
||
25 |
[class variables:] |
|
26 |
||
27 |
[see also:] |
|
28 |
||
29 |
" |
|
30 |
! ! |
|
31 |
||
32 |
!BreakpointTests methodsFor:'accessing'! |
|
33 |
||
34 |
shouldSkip |
|
35 |
"Returns true, if this testcase should be skipped when a testsuite is run. |
|
36 |
This inly a hint, a test runner is not obliged to respect return value. |
|
37 |
||
38 |
Currently, the only user is stx/goodies/builder/reports" |
|
39 |
||
40 |
^ConfigurableFeatures includesFeature: #VMBreakpointSupport |
|
41 |
||
42 |
"Created: / 09-04-2013 / 11:53:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
43 |
! ! |
|
44 |
||
45 |
!BreakpointTests methodsFor:'mock methods'! |
|
46 |
||
47 |
m00 |
|
48 |
self zork. |
|
49 |
self zork. |
|
50 |
||
51 |
"Created: / 09-04-2013 / 12:01:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
52 |
! |
|
53 |
||
54 |
m01: a1 |
|
55 |
self zork. |
|
56 |
self zork. |
|
57 |
||
58 |
"Created: / 09-04-2013 / 12:01:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
59 |
! |
|
60 |
||
61 |
m02: a1 _: a2 |
|
62 |
self zork. |
|
63 |
self zork. |
|
64 |
||
65 |
"Created: / 09-04-2013 / 12:01:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
66 |
! |
|
67 |
||
68 |
m03: a1 _: a2 _: a3 |
|
69 |
self zork. |
|
70 |
self zork. |
|
71 |
||
72 |
"Created: / 09-04-2013 / 12:01:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
73 |
! |
|
74 |
||
75 |
m04: a1 _: a2 _: a3 _: a4 |
|
76 |
self zork. |
|
77 |
self zork. |
|
78 |
||
79 |
"Created: / 09-04-2013 / 12:01:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
80 |
! |
|
81 |
||
82 |
m05: a1 _: a2 _: a3 _: a4 _: a5 |
|
83 |
self zork. |
|
84 |
self zork. |
|
85 |
||
86 |
"Created: / 09-04-2013 / 12:02:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
87 |
! |
|
88 |
||
89 |
m06: a1 _: a2 _: a3 _: a4 _: a5 _: a6 |
|
90 |
self zork. |
|
91 |
self zork. |
|
92 |
||
93 |
"Created: / 09-04-2013 / 12:02:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
94 |
! |
|
95 |
||
96 |
m07: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 |
|
97 |
self zork. |
|
98 |
self zork. |
|
99 |
||
100 |
"Created: / 09-04-2013 / 12:02:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
101 |
! |
|
102 |
||
103 |
m08: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 |
|
104 |
self zork. |
|
105 |
self zork. |
|
106 |
||
107 |
"Created: / 09-04-2013 / 12:02:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
108 |
! |
|
109 |
||
110 |
m09: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 |
|
111 |
self zork. |
|
112 |
self zork. |
|
113 |
||
114 |
"Created: / 09-04-2013 / 12:02:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
115 |
! |
|
116 |
||
117 |
m10: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 _: a10 |
|
118 |
self zork. |
|
119 |
self zork. |
|
120 |
||
121 |
"Created: / 09-04-2013 / 12:03:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
122 |
! |
|
123 |
||
124 |
m11: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 _: a10 _: a11 |
|
125 |
self zork. |
|
126 |
self zork. |
|
127 |
||
128 |
"Created: / 09-04-2013 / 12:03:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
129 |
! |
|
130 |
||
131 |
m12: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 _: a10 _: a11 _: a12 |
|
132 |
self zork. |
|
133 |
self zork. |
|
134 |
||
135 |
"Created: / 09-04-2013 / 12:03:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
136 |
! |
|
137 |
||
138 |
m13: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 _: a10 _: a11 _: a12 _: a13 |
|
139 |
self zork. |
|
140 |
self zork. |
|
141 |
||
142 |
"Created: / 09-04-2013 / 12:03:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
143 |
! |
|
144 |
||
145 |
m14: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 _: a10 _: a11 _: a12 _: a13 _: a14 |
|
146 |
self zork. |
|
147 |
self zork. |
|
148 |
||
149 |
"Created: / 09-04-2013 / 12:03:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
150 |
! |
|
151 |
||
152 |
m15: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 _: a10 _: a11 _: a12 _: a13 _: a14 _: a15 |
|
153 |
self zork. |
|
154 |
self zork. |
|
155 |
||
156 |
"Created: / 09-04-2013 / 12:03:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
157 |
! |
|
158 |
||
918
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
159 |
mWithBlock |
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
160 |
[ self zork ] |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
161 |
valueWithArguments:#(). "/to optimizations |
918
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
162 |
self zork. |
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
163 |
|
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
164 |
"Created: / 24-04-2013 / 21:12:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
165 |
"Modified: / 24-04-2013 / 22:35:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
166 |
"Modified (comment): / 25-04-2013 / 10:01:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
918
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
167 |
! |
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
168 |
|
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
169 |
mWithBlock2 |
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
170 |
[ [ [ [ self zork ] |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
171 |
valueWithArguments:#() ] valueWithArguments:#() ] valueWithArguments:#() ] valueWithArguments:#(). |
918
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
172 |
self zork. |
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
173 |
|
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
174 |
" |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
175 |
RegressionTests::BreakpointTests new mWithBlock2 |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
176 |
" |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
177 |
|
918
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
178 |
"Created: / 24-04-2013 / 21:13:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
179 |
"Modified (format): / 25-04-2013 / 09:58:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
180 |
! |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
181 |
|
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
182 |
mWithBlock3 | x | |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
183 |
x := self. |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
184 |
[ [ [ [ x zork |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
185 |
] valueWithArguments:#() ] valueWithArguments:#() ] valueWithArguments:#() ] valueWithArguments:#(). |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
186 |
self zork. |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
187 |
|
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
188 |
"Created: / 24-04-2013 / 22:09:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
189 |
"Modified: / 25-04-2013 / 09:59:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
918
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
190 |
! |
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
191 |
|
901 | 192 |
mWithTwoSendsOnLine |
193 |
self zork. self zork. |
|
194 |
self zork. |
|
195 |
||
196 |
"Created: / 15-04-2013 / 15:08:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
197 |
! |
|
198 |
||
199 |
mWithTwoSendsOnLineInCascade |
|
200 |
self zork; zork. |
|
201 |
self zork. |
|
202 |
||
203 |
"Created: / 15-04-2013 / 15:12:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
204 |
! |
|
205 |
||
206 |
zork |
|
207 |
||
208 |
"Created: / 09-04-2013 / 12:00:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
209 |
! ! |
|
210 |
||
211 |
!BreakpointTests methodsFor:'running'! |
|
212 |
||
213 |
tearDown |
|
214 |
| sels | |
|
215 |
||
216 |
sels := self class testSelectors. |
|
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
217 |
sels addAll: #(setUp tearDown helper_01). |
901 | 218 |
self class methodDictionary keysAndValuesDo:[:sel :m| |
219 |
(sels includes: sel) ifFalse:[ |
|
220 |
m breakpointTable: nil. |
|
221 |
] |
|
222 |
] |
|
223 |
||
224 |
"Created: / 09-04-2013 / 12:27:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
225 |
"Modified: / 24-04-2013 / 21:45:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
901 | 226 |
! ! |
227 |
||
228 |
!BreakpointTests methodsFor:'tests'! |
|
229 |
||
230 |
helper_01: selector |
|
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
231 |
^self perform: selector withBreakpointAt: 2 andAt: 3 |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
232 |
|
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
233 |
"Created: / 10-04-2013 / 10:50:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
234 |
"Modified: / 25-04-2013 / 09:58:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
235 |
! |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
236 |
|
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
237 |
perform: selector withBreakpointAt: line1 andAt: line2 |
901 | 238 |
| a m nhits | |
913 | 239 |
m := self class >> selector. |
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
240 |
MessageTracer breakMethod: m atLine: line1. |
901 | 241 |
a := Array new: m numArgs. |
242 |
||
243 |
nhits := 0. |
|
244 |
[ |
|
245 |
self perform: selector withArguments: a |
|
246 |
] on: BreakPointInterrupt do:[:ex| |
|
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
247 |
Transcript nextPutAll: 'Breakpointed in ' , selector; cr. |
901 | 248 |
nhits := nhits + 1. |
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
249 |
MessageTracer breakMethod: m atLine: line2. |
901 | 250 |
ex proceed. |
251 |
]. |
|
252 |
||
253 |
self assert: nhits == 2. |
|
254 |
||
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
255 |
"Created: / 25-04-2013 / 09:53:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
901 | 256 |
! |
257 |
||
258 |
test_01 |
|
259 |
||
260 |
self helper_01: #m00. |
|
261 |
self helper_01: #m01:. |
|
262 |
self helper_01: #m02:_:. |
|
263 |
self helper_01: #m03:_:_:. |
|
264 |
self helper_01: #m04:_:_:_:. |
|
265 |
self helper_01: #m05:_:_:_:_:. |
|
266 |
self helper_01: #m06:_:_:_:_:_:. |
|
267 |
self helper_01: #m07:_:_:_:_:_:_:. |
|
268 |
self helper_01: #m08:_:_:_:_:_:_:_:. |
|
269 |
self helper_01: #m09:_:_:_:_:_:_:_:_:. |
|
270 |
self helper_01: #m10:_:_:_:_:_:_:_:_:_:. |
|
271 |
self helper_01: #m11:_:_:_:_:_:_:_:_:_:_:. |
|
272 |
self helper_01: #m12:_:_:_:_:_:_:_:_:_:_:_:. |
|
273 |
self helper_01: #m13:_:_:_:_:_:_:_:_:_:_:_:_:. |
|
274 |
self helper_01: #m14:_:_:_:_:_:_:_:_:_:_:_:_:_:. |
|
275 |
self helper_01: #m15:_:_:_:_:_:_:_:_:_:_:_:_:_:_:. |
|
276 |
||
277 |
"Created: / 09-04-2013 / 12:12:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
278 |
"Modified: / 10-04-2013 / 10:50:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
279 |
! |
|
280 |
||
281 |
test_01b |
|
282 |
| m s | |
|
283 |
||
284 |
m := self class >> #m00. |
|
285 |
s := #STC_m00. |
|
286 |
||
287 |
ChangeSet withoutUpdatingChangesDo:[ |
|
288 |
ParserFlags withSTCCompilation:#always do:[ |
|
289 |
self class compile: 'STC_', m source classified: 'mock methods - *dynamic*' |
|
290 |
]. |
|
291 |
]. |
|
292 |
[ |
|
293 |
self helper_01: s. |
|
294 |
] ensure:[ |
|
295 |
self class removeSelector: s. |
|
296 |
] |
|
297 |
||
298 |
"Created: / 15-04-2013 / 14:57:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
299 |
! |
|
300 |
||
301 |
test_02a |
|
302 |
" |
|
303 |
Tests two breakpoints on the same line. |
|
304 |
" |
|
305 |
self helper_01: #mWithTwoSendsOnLine |
|
306 |
||
307 |
"Created: / 15-04-2013 / 15:12:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
308 |
! |
|
309 |
||
310 |
test_02b |
|
311 |
" |
|
312 |
Tests two breakpoints on the same line using cascade/ |
|
313 |
" |
|
314 |
self helper_01: #mWithTwoSendsOnLineInCascade |
|
315 |
||
316 |
"Created: / 15-04-2013 / 15:13:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
918
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
317 |
! |
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
318 |
|
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
319 |
test_03a |
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
320 |
" |
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
321 |
Tests two breakpoints in blocks |
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
322 |
" |
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
323 |
self perform: #mWithBlock withBreakpointAt: 2 andAt: 4. |
918
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
324 |
|
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
325 |
"Created: / 24-04-2013 / 21:13:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
326 |
"Modified: / 25-04-2013 / 09:59:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
918
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
327 |
! |
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
328 |
|
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
329 |
test_03b |
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
330 |
" |
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
331 |
Tests two breakpoints in blocks |
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
332 |
" |
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
333 |
self perform: #mWithBlock2 withBreakpointAt: 2 andAt: 4. |
918
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
334 |
|
9c3e2871c1dd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
913
diff
changeset
|
335 |
"Created: / 24-04-2013 / 21:13:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
919
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
336 |
"Modified: / 25-04-2013 / 10:00:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
337 |
! |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
338 |
|
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
339 |
test_03c |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
340 |
" |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
341 |
Tests two breakpoints in blocks |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
342 |
" |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
343 |
self perform: #mWithBlock3 withBreakpointAt: 3 andAt: 5. |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
344 |
|
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
345 |
"Created: / 24-04-2013 / 22:09:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
bf0654315ebd
class: RegressionTests::BreakpointTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
918
diff
changeset
|
346 |
"Modified: / 25-04-2013 / 10:04:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
901 | 347 |
! ! |
348 |
||
349 |
!BreakpointTests class methodsFor:'documentation'! |
|
350 |
||
351 |
version |
|
352 |
^ '$Header$' |
|
353 |
! |
|
354 |
||
355 |
version_CVS |
|
356 |
^ '$Header$' |
|
357 |
! ! |
|
358 |