equal
deleted
inserted
replaced
166 "Test restart with bytecode-compiled package" |
166 "Test restart with bytecode-compiled package" |
167 |
167 |
168 | result | |
168 | result | |
169 |
169 |
170 self do:[ |
170 self do:[ |
|
171 Display isNil ifTrue:[Smalltalk openDisplay]. |
|
172 self skipIf: (OperatingSystem isMSWINDOWSlike and:[Display isNil]) description: 'No display available'. |
171 result := ToRunOnFreshAndRestartedSnapshotTests buildSuite run. |
173 result := ToRunOnFreshAndRestartedSnapshotTests buildSuite run. |
172 self assert: result errorCount == 0. |
174 self assert: result errorCount == 0. |
173 self assert: result failureCount == 0. |
175 self assert: result failureCount == 0. |
174 ] onRestartDo:[ |
176 ] onRestartDo:[ |
175 result := ToRunOnFreshAndRestartedSnapshotTests buildSuite run. |
177 result := ToRunOnFreshAndRestartedSnapshotTests buildSuite run. |
176 self assert: result errorCount == 0. |
178 self assert: result errorCount == 0. |
177 self assert: result failureCount == 0. |
179 self assert: result failureCount == 0. |
178 ]. |
180 ]. |
179 |
181 |
180 "Created: / 14-08-2013 / 19:58:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
182 "Created: / 14-08-2013 / 19:58:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
181 "Modified: / 06-01-2017 / 23:37:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
183 "Modified: / 04-03-2017 / 12:25:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
182 ! |
184 ! |
183 |
185 |
184 test_gui_reopening |
186 test_gui_reopening |
185 " |
187 " |
186 Test that GUI reopens just fine. |
188 Test that GUI reopens just fine. |
218 "Test restart with bytecode-compiled package" |
220 "Test restart with bytecode-compiled package" |
219 |
221 |
220 | result | |
222 | result | |
221 |
223 |
222 self do:[ |
224 self do:[ |
|
225 Display isNil ifTrue:[Smalltalk openDisplay]. |
|
226 self skipIf:(OperatingSystem isMSWINDOWSlike and:[Display isNil]) description: 'No display available'. |
223 self make. |
227 self make. |
224 result := ToRunOnFreshAndRestartedSnapshotTests buildSuite run. |
228 result := ToRunOnFreshAndRestartedSnapshotTests buildSuite run. |
225 self assert: result errorCount == 0. |
229 self assert: result errorCount == 0. |
226 self assert: result failureCount == 0. |
230 self assert: result failureCount == 0. |
227 ] onRestartDo:[ |
231 ] onRestartDo:[ |
229 self assert: result errorCount == 0. |
233 self assert: result errorCount == 0. |
230 self assert: result failureCount == 0. |
234 self assert: result failureCount == 0. |
231 ]. |
235 ]. |
232 |
236 |
233 "Created: / 14-08-2013 / 20:26:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
237 "Created: / 14-08-2013 / 20:26:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
234 "Modified: / 06-01-2017 / 23:31:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
238 "Modified: / 04-03-2017 / 12:25:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
235 ! ! |
239 ! ! |
236 |
240 |
237 !SnapshotRestartTests::ToRunOnFreshAndRestartedSnapshotTests methodsFor:'running'! |
241 !SnapshotRestartTests::ToRunOnFreshAndRestartedSnapshotTests methodsFor:'running'! |
238 |
242 |
239 setUp |
243 setUp |