40 ^ConfigurableFeatures includesFeature: #VMBreakpointSupport |
40 ^ConfigurableFeatures includesFeature: #VMBreakpointSupport |
41 |
41 |
42 "Created: / 09-04-2013 / 11:53:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
42 "Created: / 09-04-2013 / 11:53:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
43 ! ! |
43 ! ! |
44 |
44 |
45 !BreakpointTests methodsFor:'mock methods'! |
45 !BreakpointTests methodsFor:'initialize / release'! |
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 |
|
159 mWithBlock |
|
160 [ self zork ] |
|
161 valueWithArguments:#(). "/to optimizations |
|
162 self zork. |
|
163 |
|
164 "Created: / 24-04-2013 / 21:12:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
165 "Modified: / 24-04-2013 / 22:35:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
166 "Modified (comment): / 25-04-2013 / 10:01:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
167 ! |
|
168 |
|
169 mWithBlock2 |
|
170 [ [ [ [ self zork ] |
|
171 valueWithArguments:#() ] valueWithArguments:#() ] valueWithArguments:#() ] valueWithArguments:#(). |
|
172 self zork. |
|
173 |
|
174 " |
|
175 RegressionTests::BreakpointTests new mWithBlock2 |
|
176 " |
|
177 |
|
178 "Created: / 24-04-2013 / 21:13:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
179 "Modified (format): / 25-04-2013 / 09:58:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
180 ! |
|
181 |
|
182 mWithBlock3 | x | |
|
183 x := self. |
|
184 [ [ [ [ x zork |
|
185 ] valueWithArguments:#() ] valueWithArguments:#() ] valueWithArguments:#() ] valueWithArguments:#(). |
|
186 self zork. |
|
187 |
|
188 "Created: / 24-04-2013 / 22:09:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
189 "Modified: / 25-04-2013 / 09:59:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
190 ! |
|
191 |
|
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 |
46 |
213 tearDown |
47 tearDown |
214 | sels | |
48 | sels | |
215 |
49 |
216 sels := self class testSelectors. |
50 sels := self class testSelectors. |
221 ] |
55 ] |
222 ] |
56 ] |
223 |
57 |
224 "Created: / 09-04-2013 / 12:27:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
58 "Created: / 09-04-2013 / 12:27:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
225 "Modified: / 24-04-2013 / 21:45:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
59 "Modified: / 24-04-2013 / 21:45:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
60 ! ! |
|
61 |
|
62 !BreakpointTests methodsFor:'mock methods'! |
|
63 |
|
64 m00 |
|
65 self zork. |
|
66 self zork. |
|
67 |
|
68 "Created: / 09-04-2013 / 12:01:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
69 ! |
|
70 |
|
71 m01: a1 |
|
72 self zork. |
|
73 self zork. |
|
74 |
|
75 "Created: / 09-04-2013 / 12:01:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
76 ! |
|
77 |
|
78 m02: a1 _: a2 |
|
79 self zork. |
|
80 self zork. |
|
81 |
|
82 "Created: / 09-04-2013 / 12:01:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
83 ! |
|
84 |
|
85 m03: a1 _: a2 _: a3 |
|
86 self zork. |
|
87 self zork. |
|
88 |
|
89 "Created: / 09-04-2013 / 12:01:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
90 ! |
|
91 |
|
92 m04: a1 _: a2 _: a3 _: a4 |
|
93 self zork. |
|
94 self zork. |
|
95 |
|
96 "Created: / 09-04-2013 / 12:01:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
97 ! |
|
98 |
|
99 m05: a1 _: a2 _: a3 _: a4 _: a5 |
|
100 self zork. |
|
101 self zork. |
|
102 |
|
103 "Created: / 09-04-2013 / 12:02:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
104 ! |
|
105 |
|
106 m06: a1 _: a2 _: a3 _: a4 _: a5 _: a6 |
|
107 self zork. |
|
108 self zork. |
|
109 |
|
110 "Created: / 09-04-2013 / 12:02:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
111 ! |
|
112 |
|
113 m07: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 |
|
114 self zork. |
|
115 self zork. |
|
116 |
|
117 "Created: / 09-04-2013 / 12:02:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
118 ! |
|
119 |
|
120 m08: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 |
|
121 self zork. |
|
122 self zork. |
|
123 |
|
124 "Created: / 09-04-2013 / 12:02:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
125 ! |
|
126 |
|
127 m09: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 |
|
128 self zork. |
|
129 self zork. |
|
130 |
|
131 "Created: / 09-04-2013 / 12:02:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
132 ! |
|
133 |
|
134 m10: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 _: a10 |
|
135 self zork. |
|
136 self zork. |
|
137 |
|
138 "Created: / 09-04-2013 / 12:03:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
139 ! |
|
140 |
|
141 m11: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 _: a10 _: a11 |
|
142 self zork. |
|
143 self zork. |
|
144 |
|
145 "Created: / 09-04-2013 / 12:03:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
146 ! |
|
147 |
|
148 m12: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 _: a10 _: a11 _: a12 |
|
149 self zork. |
|
150 self zork. |
|
151 |
|
152 "Created: / 09-04-2013 / 12:03:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
153 ! |
|
154 |
|
155 m13: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 _: a10 _: a11 _: a12 _: a13 |
|
156 self zork. |
|
157 self zork. |
|
158 |
|
159 "Created: / 09-04-2013 / 12:03:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
160 ! |
|
161 |
|
162 m14: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 _: a10 _: a11 _: a12 _: a13 _: a14 |
|
163 self zork. |
|
164 self zork. |
|
165 |
|
166 "Created: / 09-04-2013 / 12:03:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
167 ! |
|
168 |
|
169 m15: a1 _: a2 _: a3 _: a4 _: a5 _: a6 _: a7 _: a8 _: a9 _: a10 _: a11 _: a12 _: a13 _: a14 _: a15 |
|
170 self zork. |
|
171 self zork. |
|
172 |
|
173 "Created: / 09-04-2013 / 12:03:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
174 ! |
|
175 |
|
176 mWithBlock |
|
177 [ self zork ] |
|
178 valueWithArguments:#(). "/to optimizations |
|
179 self zork. |
|
180 |
|
181 "Created: / 24-04-2013 / 21:12:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
182 "Modified: / 24-04-2013 / 22:35:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
183 "Modified (comment): / 25-04-2013 / 10:01:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
184 ! |
|
185 |
|
186 mWithBlock2 |
|
187 [ [ [ [ self zork ] |
|
188 valueWithArguments:#() ] valueWithArguments:#() ] valueWithArguments:#() ] valueWithArguments:#(). |
|
189 self zork. |
|
190 |
|
191 " |
|
192 RegressionTests::BreakpointTests new mWithBlock2 |
|
193 " |
|
194 |
|
195 "Created: / 24-04-2013 / 21:13:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
196 "Modified (format): / 25-04-2013 / 09:58:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
197 ! |
|
198 |
|
199 mWithBlock3 | x | |
|
200 x := self. |
|
201 [ [ [ [ x zork |
|
202 ] valueWithArguments:#() ] valueWithArguments:#() ] valueWithArguments:#() ] valueWithArguments:#(). |
|
203 self zork. |
|
204 |
|
205 "Created: / 24-04-2013 / 22:09:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
206 "Modified: / 25-04-2013 / 09:59:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
207 ! |
|
208 |
|
209 mWithTwoSendsOnLine |
|
210 self zork. self zork. |
|
211 self zork. |
|
212 |
|
213 "Created: / 15-04-2013 / 15:08:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
214 ! |
|
215 |
|
216 mWithTwoSendsOnLineInCascade |
|
217 self zork; zork. |
|
218 self zork. |
|
219 |
|
220 "Created: / 15-04-2013 / 15:12:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
221 ! |
|
222 |
|
223 zork |
|
224 |
|
225 "Created: / 09-04-2013 / 12:00:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
226 ! ! |
226 ! ! |
227 |
227 |
228 !BreakpointTests methodsFor:'tests'! |
228 !BreakpointTests methodsFor:'tests'! |
229 |
229 |
230 helper_01: selector |
230 helper_01: selector |