author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Thu, 21 Dec 2017 16:02:03 +0000 | |
branch | jv |
changeset 1965 | a787232be371 |
parent 1961 | 060ecb860164 |
child 1967 | 520545b0b5d9 |
permissions | -rw-r--r-- |
1447 | 1 |
"{ Package: 'stx:goodies/regression' }" |
1181 | 2 |
|
3 |
"{ NameSpace: RegressionTests }" |
|
4 |
||
5 |
VMCrashTestCase subclass:#VMCrashTests |
|
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
6 |
instanceVariableNames:'x y' |
1181 | 7 |
classVariableNames:'' |
8 |
poolDictionaries:'' |
|
9 |
category:'tests-Regression-RuntimeSystem' |
|
10 |
! |
|
11 |
||
12 |
||
1965
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
13 |
!VMCrashTests methodsFor:'private'! |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
14 |
|
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
15 |
childOf: aSimpleView withUUID: aUUIDOrString |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
16 |
aSimpleView automationUUID asString = aUUIDOrString asString ifTrue:[ ^ aSimpleView ]. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
17 |
aSimpleView subViews do:[:each | |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
18 |
| found | |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
19 |
|
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
20 |
found := self childOf: each withUUID: aUUIDOrString. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
21 |
found notNil ifTrue:[ ^ found ]. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
22 |
]. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
23 |
^ nil |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
24 |
|
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
25 |
"Created: / 21-12-2017 / 15:50:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
26 |
! ! |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
27 |
|
1181 | 28 |
!VMCrashTests methodsFor:'tests - GC'! |
29 |
||
1190
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
30 |
iter_java_initialize |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
31 |
<spawn: true> |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
32 |
|
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
33 |
1 to: 100 do:[:i | |
1447 | 34 |
Stdout nextPutLine: 'Pass ' , i printString. |
35 |
Java release: JavaRelease JDK7. |
|
36 |
Java initialize. |
|
37 |
JavaVM initializeVM. |
|
38 |
Java flushAllJavaResources. |
|
39 |
Stdout nextPutLine: 'Full GC...'. |
|
40 |
Smalltalk garbageCollect. |
|
41 |
Stdout nextPutLine: 'Pass ' , i printString , '...OK'. |
|
1190
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
42 |
]. |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
43 |
|
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
44 |
"Created: / 08-09-2014 / 12:33:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
45 |
! |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
46 |
|
1953 | 47 |
test_issue_171_crash_in_Smalltalk_keys |
48 |
<timeout: 120> "2min" |
|
49 |
<spawn: true> |
|
50 |
||
51 |
" |
|
52 |
Commit a68e1e09f73a/stx:libbasic caused following code to crash the VM. |
|
53 |
" |
|
54 |
||
55 |
Smalltalk keys. |
|
56 |
||
57 |
"Created: / 09-08-2017 / 10:00:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
58 |
! |
|
59 |
||
1958 | 60 |
test_issue_182_crash_when_java_is_flushed |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
61 |
<timeout: 300> "300min" |
1958 | 62 |
<spawn: true> |
63 |
||
64 |
" |
|
65 |
If some code is still running when Java is flushed the |
|
66 |
VM crashed. |
|
67 |
" |
|
68 |
||
69 |
| blocker iters | |
|
70 |
||
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
71 |
Smalltalk loadPackage:'stx:libjava/tests'. |
1958 | 72 |
|
73 |
blocker := Semaphore new. |
|
74 |
JavaVM reboot. |
|
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
75 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
76 |
[ |
1958 | 77 |
[ |
78 |
| issue182 | |
|
79 |
||
80 |
issue182 := JAVA stx libjava tests mocks Issue182 new. |
|
81 |
issue182 loopFor: 15. |
|
82 |
] on: JavaClassFormatError do:[ |
|
83 |
"/ This is expected |
|
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
84 |
] on: Error do:[:ex | |
1958 | 85 |
ex suspendedContext fullPrintAllOn: Stdout. |
86 |
]. |
|
87 |
blocker signal. |
|
88 |
] fork. |
|
89 |
Delay waitForSeconds: 5. |
|
90 |
JAVA stx libjava tests mocks Issue182 constantPool atAllPut: nil. |
|
91 |
blocker wait. |
|
92 |
||
93 |
"Created: / 19-10-2017 / 19:55:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
94 |
"Modified: / 26-10-2017 / 11:51:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
95 |
! |
|
96 |
||
1493 | 97 |
test_issue_64_vm_crashes_in_fclose |
98 |
" |
|
99 |
Quickly opening and closing files for long enough used to kill the |
|
100 |
VM. |
|
101 |
||
102 |
This testcase keeps opening and closing files for 10 minutes. Just a |
|
103 |
stress-test. |
|
104 |
" |
|
105 |
||
106 |
<spawn: true> |
|
107 |
<timeout: 660> "11min" |
|
108 |
||
1957
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
109 |
| timeout deadline iterStart iterStop directory files oldSpaceSizeLimit i | |
1531
dbd517ea6e1c
Issue #64: Temporarily disabled "fclose" test on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1500
diff
changeset
|
110 |
|
dbd517ea6e1c
Issue #64: Temporarily disabled "fclose" test on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1500
diff
changeset
|
111 |
"/ See https://swing.fit.cvut.cz/projects/stx-jv/ticket/64 |
dbd517ea6e1c
Issue #64: Temporarily disabled "fclose" test on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1500
diff
changeset
|
112 |
self skipIf: OperatingSystem isMSWINDOWSlike description: 'Temporarily skipped because of issue #64'. |
dbd517ea6e1c
Issue #64: Temporarily disabled "fclose" test on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1500
diff
changeset
|
113 |
|
1493 | 114 |
|
115 |
timeout := self timeout. |
|
116 |
deadline := OperatingSystem getMillisecondTime + ((timeout - 60"extra min to cover variance") * 1000). |
|
117 |
iterStart := iterStop := 0. |
|
118 |
i := 0. |
|
1957
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
119 |
directory := Smalltalk getPackageDirectoryForPackage: #'stx:goodies'. |
1598
300cd20b8c03
SnapshotRestartTests: do a compressing GC after some iterations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1531
diff
changeset
|
120 |
|
300cd20b8c03
SnapshotRestartTests: do a compressing GC after some iterations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1531
diff
changeset
|
121 |
oldSpaceSizeLimit := ObjectMemory oldSpaceUsed + (128"MB"*1024*1024). |
300cd20b8c03
SnapshotRestartTests: do a compressing GC after some iterations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1531
diff
changeset
|
122 |
|
1493 | 123 |
[ OperatingSystem getMillisecondTime < (deadline - (iterStop - iterStart)) ] whileTrue:[ |
1957
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
124 |
iterStart := OperatingSystem getMillisecondTime. |
1493 | 125 |
|
1957
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
126 |
i := i + 1. |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
127 |
Stdout nextPutLine: 'Pass ' , i printString. |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
128 |
files := directory recursiveDirectoryContentsAsFilenames select:[:each | each isRegularFile ]. |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
129 |
files := files select: [ :e | e suffix = 'st' ]. |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
130 |
files collect:[ :e | (FileStream fileNamed: e) contents asString ]. |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
131 |
Stdout nextPutLine: 'Pass ' , i printString , '...OK'. |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
132 |
(oldSpaceSizeLimit notNil and:[ ObjectMemory oldSpaceUsed > oldSpaceSizeLimit ]) ifTrue:[ |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
133 |
Stdout nextPutLine: 'GC'. |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
134 |
files := nil. |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
135 |
ObjectMemory compressingGarbageCollect. |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
136 |
oldSpaceSizeLimit := ObjectMemory oldSpaceUsed + (128"MB"*1024*1024). |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
137 |
Stdout nextPutLine: 'GC...OK '. |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
138 |
]. |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
139 |
iterStop := OperatingSystem getMillisecondTime. |
1493 | 140 |
]. |
141 |
||
1531
dbd517ea6e1c
Issue #64: Temporarily disabled "fclose" test on Windows
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1500
diff
changeset
|
142 |
"Created: / 04-09-2016 / 03:16:19 / jv" |
1598
300cd20b8c03
SnapshotRestartTests: do a compressing GC after some iterations
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1531
diff
changeset
|
143 |
"Modified: / 27-02-2017 / 12:10:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1493 | 144 |
! |
145 |
||
1190
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
146 |
test_java_initialize |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
147 |
" |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
148 |
Running `JavaVM boot` for long enough used to kill the |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
149 |
VM due to problems in memory managements. |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
150 |
|
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
151 |
This testcase runs for 10 minutes a test in separate VM |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
152 |
that 100 times boots and flushes the VM. |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
153 |
" |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
154 |
|
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
155 |
<spawn: false> |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
156 |
<timeout: 660> "11min" |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
157 |
|
1447 | 158 |
| timeout deadline iterStart iterStop | |
1190
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
159 |
|
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
160 |
timeout := self timeout. |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
161 |
deadline := OperatingSystem getMillisecondTime + ((timeout - 60"extra min to cover variance") * 1000). |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
162 |
iterStart := iterStop := 0. |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
163 |
[ OperatingSystem getMillisecondTime < (deadline - (iterStop - iterStart)) ] whileTrue:[ |
1447 | 164 |
iterStart := OperatingSystem getMillisecondTime. |
165 |
(self class selector: #iter_java_initialize) runCase. |
|
166 |
iterStop := OperatingSystem getMillisecondTime. |
|
1190
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
167 |
]. |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
168 |
|
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
169 |
"Created: / 08-09-2014 / 12:14:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
170 |
! |
cf332dfb2334
Added regression test #test_java_initialize
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1181
diff
changeset
|
171 |
|
1181 | 172 |
test_newspace_overflow |
173 |
||
174 |
<timeout: 120> "2min" |
|
1193
4fd89b765c87
Added forgotten annotation <spawn:true> to newspace overflow test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1190
diff
changeset
|
175 |
<spawn: true> |
1181 | 176 |
|
177 |
| newSize newLimit | |
|
178 |
||
179 |
newSize := ObjectMemory newSpaceSize. |
|
180 |
newLimit := (newSize * 0.9) rounded. |
|
181 |
"/ Allocate some garbage to fill in new space... |
|
182 |
[ ObjectMemory newSpaceUsed < newLimit ] whileTrue:[ |
|
1447 | 183 |
| a | |
1181 | 184 |
|
1447 | 185 |
a := Array new: 100. |
1181 | 186 |
]. |
1248
ab9af85de41a
class: RegressionTests::VMCrashTests
Claus Gittinger <cg@exept.de>
parents:
1193
diff
changeset
|
187 |
"/ Now, allocate some really huge object |
1498
398050ba2384
Fixed VMCrashTests>>test_newspace_overflow
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1493
diff
changeset
|
188 |
[ |
1957
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
189 |
String new: 300 * 1024 * 1024"300MB" |
1498
398050ba2384
Fixed VMCrashTests>>test_newspace_overflow
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1493
diff
changeset
|
190 |
] on: AllocationFailure do:[:ex | |
1957
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
191 |
"/ Do nothing, allocation failure is valid error |
1498
398050ba2384
Fixed VMCrashTests>>test_newspace_overflow
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1493
diff
changeset
|
192 |
]. |
1181 | 193 |
|
194 |
"Created: / 05-09-2014 / 19:44:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1193
4fd89b765c87
Added forgotten annotation <spawn:true> to newspace overflow test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1190
diff
changeset
|
195 |
"Modified: / 16-09-2014 / 18:50:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1498
398050ba2384
Fixed VMCrashTests>>test_newspace_overflow
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1493
diff
changeset
|
196 |
"Modified: / 24-06-2016 / 00:41:29 / jv" |
1603
37db6f9f4ac5
Added test for regression in STX:LIBJAVA when compiled with `-O` or `-O2`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1598
diff
changeset
|
197 |
! |
37db6f9f4ac5
Added test for regression in STX:LIBJAVA when compiled with `-O` or `-O2`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1598
diff
changeset
|
198 |
|
1955
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
199 |
test_newspace_resize |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
200 |
|
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
201 |
<timeout: 120> "2min" |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
202 |
<spawn: true> |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
203 |
|
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
204 |
| newSize newLimit holder | |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
205 |
|
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
206 |
newSize := ObjectMemory newSpaceSize. |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
207 |
[ |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
208 |
ObjectMemory scavenge. |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
209 |
newLimit := (ObjectMemory newSpaceSize * 0.9) rounded. |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
210 |
|
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
211 |
"/ Fill in new space so it's 90% full, no garbage. |
1957
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
212 |
holder := OrderedCollection new. |
1955
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
213 |
[ ObjectMemory newSpaceUsed < newLimit ] whileTrue:[ |
1957
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
214 |
holder add: (Array new: 100). |
1955
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
215 |
]. |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
216 |
"/ Grow the new space to two times the current size. |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
217 |
ObjectMemory newSpaceSize: 2 * newSize. |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
218 |
self assert: (ObjectMemory newSpaceSize >= (2 * newSize)). |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
219 |
self assert: (ObjectMemory newSpaceUsed / ObjectMemory newSpaceSize) < 0.5. |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
220 |
|
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
221 |
"/ Fill in new space so it's 90% full, no garbage. |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
222 |
newLimit := (ObjectMemory newSpaceSize * 0.9) rounded. |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
223 |
[ ObjectMemory newSpaceUsed < newLimit ] whileTrue:[ |
1957
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
224 |
holder add: (Array new: 100). |
1955
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
225 |
]. |
1957
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
226 |
"/ Increase old space to make sure there's enough |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
227 |
"/ old space to tenure objects to. See |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
228 |
"/ |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
229 |
"/ ObjectMemory >> newSpaceSize: |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
230 |
"/ |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
231 |
ObjectMemory moreOldSpace: newSize * 2. |
1955
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
232 |
ObjectMemory newSpaceSize: newSize. |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
233 |
self assert: (ObjectMemory newSpaceSize < (newSize + 4096"page size as tolerance for page aligning")). |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
234 |
|
1957
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
235 |
] ensure:[ |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
236 |
ObjectMemory newSpaceSize: newSize. |
1955
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
237 |
]. |
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
238 |
|
509eae4c5c94
Added tests for newspace resizing (`ObjectMemory >> #newSpaceSize:`)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1953
diff
changeset
|
239 |
"Created: / 21-09-2017 / 23:16:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1957
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
240 |
"Modified: / 05-10-2017 / 22:28:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
91005025501a
Fixed `VMCrashTests >> test_newspace_resize`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1955
diff
changeset
|
241 |
"Modified (comment): / 08-10-2017 / 23:51:30 / jv" |
1181 | 242 |
! ! |
243 |
||
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
244 |
!VMCrashTests methodsFor:'tests - context'! |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
245 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
246 |
callResend1 |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
247 |
x == 1 ifTrue:[ |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
248 |
x := 2. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
249 |
thisContext resend. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
250 |
^ self. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
251 |
]. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
252 |
x == 2 ifTrue:[ |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
253 |
x := 3. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
254 |
y := thisContext. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
255 |
thisContext unwindThenDo:[ AbortOperationRequest raise ] |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
256 |
]. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
257 |
self assert:false. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
258 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
259 |
"Created: / 17-11-2017 / 13:59:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
260 |
! |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
261 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
262 |
callUnwindThenRestart1 |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
263 |
x == 1 ifTrue:[ |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
264 |
x := 2. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
265 |
thisContext unwindAndRestart. |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
266 |
] ifFalse:[ |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
267 |
x := 3. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
268 |
]. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
269 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
270 |
"Created: / 14-11-2017 / 20:58:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
271 |
! |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
272 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
273 |
callUnwindThenRestart2a |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
274 |
[ |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
275 |
self callUnwindThenRestart2b |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
276 |
] ensure:[ |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
277 |
y := 10 |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
278 |
]. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
279 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
280 |
"Created: / 14-11-2017 / 21:10:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
281 |
! |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
282 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
283 |
callUnwindThenRestart2b |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
284 |
x == 1 ifTrue:[ |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
285 |
x := 2. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
286 |
thisContext sender sender unwindAndRestart. |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
287 |
] ifFalse:[ |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
288 |
x := 3. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
289 |
]. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
290 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
291 |
"Created: / 14-11-2017 / 21:10:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
292 |
! |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
293 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
294 |
callUnwindThenRestart3 |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
295 |
x == 1 ifTrue:[ |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
296 |
x := 2. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
297 |
thisContext unwindAndRestart. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
298 |
^ self. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
299 |
]. |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
300 |
x == 2 ifTrue:[ |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
301 |
x := 3. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
302 |
thisContext unwindThenDo:[ AbortOperationRequest raise ] |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
303 |
]. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
304 |
self assert: false. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
305 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
306 |
"Created: / 14-11-2017 / 21:21:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
307 |
! |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
308 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
309 |
testResend1 |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
310 |
<spawn: true> |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
311 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
312 |
| aborted | |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
313 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
314 |
x := 1. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
315 |
y := 1. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
316 |
aborted := false. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
317 |
[ |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
318 |
self callResend1. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
319 |
] on:AbortOperationRequest do:[:ex | aborted := true. ]. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
320 |
self assert:aborted. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
321 |
self assert:x == 3. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
322 |
self assert:y method == (self class >> #callResend1) |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
323 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
324 |
" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
325 |
VMCrashTests new testResend1 |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
326 |
" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
327 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
328 |
"Created: / 17-11-2017 / 13:58:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
329 |
"Modified: / 17-11-2017 / 15:17:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
330 |
! |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
331 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
332 |
testUnwindThenRestart1 |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
333 |
<spawn: true> |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
334 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
335 |
x := 1. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
336 |
y := 1. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
337 |
self callUnwindThenRestart1. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
338 |
self assert: x == 3. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
339 |
self assert: y == 1. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
340 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
341 |
" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
342 |
VMCrashTests new testUnwindThenRestart1 |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
343 |
" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
344 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
345 |
"Created: / 14-11-2017 / 20:58:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
346 |
! |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
347 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
348 |
testUnwindThenRestart2 |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
349 |
<spawn: true> |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
350 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
351 |
x := 1. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
352 |
y := 1. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
353 |
self callUnwindThenRestart2a. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
354 |
self assert: x == 3. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
355 |
self assert: y == 10. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
356 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
357 |
" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
358 |
VMCrashTests new testUnwindThenRestart1 |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
359 |
" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
360 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
361 |
"Created: / 14-11-2017 / 21:09:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
362 |
! |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
363 |
|
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
364 |
testUnwindThenRestart3 |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
365 |
| aborted | |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
366 |
|
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
367 |
<spawn: true> |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
368 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
369 |
x := 1. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
370 |
y := 1. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
371 |
aborted := false. |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
372 |
[ |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
373 |
self callUnwindThenRestart3. |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
374 |
] on: AbortOperationRequest do:[:ex | |
1959
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
375 |
aborted := true. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
376 |
]. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
377 |
self assert: aborted. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
378 |
self assert: x == 3. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
379 |
self assert: y == 1. |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
380 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
381 |
" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
382 |
VMCrashTests new testUnwindThenRestart3 |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
383 |
" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
384 |
|
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
385 |
"Created: / 14-11-2017 / 21:20:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
386 |
"Modified: / 17-11-2017 / 13:56:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
387 |
! ! |
d05ea54888ee
Added tests for `Context >> #unwindAndRestart` and `Context >> resend`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1958
diff
changeset
|
388 |
|
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
389 |
!VMCrashTests methodsFor:'tests - misc'! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
390 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
391 |
endlessB |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
392 |
| b | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
393 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
394 |
b := [ b value ]. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
395 |
b value |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
396 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
397 |
"Created: / 18-12-2017 / 09:32:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
398 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
399 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
400 |
endlessB:a1 |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
401 |
| b | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
402 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
403 |
b := [:x1 | b value:x1 ]. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
404 |
b value:a1 |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
405 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
406 |
"Created: / 18-12-2017 / 21:03:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
407 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
408 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
409 |
endlessB:a1 _:a2 |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
410 |
| b | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
411 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
412 |
b := [ :x1 :x2 | b value:x1 value:x2]. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
413 |
b value:a1 value:a2 |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
414 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
415 |
"Created: / 18-12-2017 / 21:03:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
416 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
417 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
418 |
endlessB:a1 _:a2 _:a3 |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
419 |
| b | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
420 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
421 |
b := [ :x1 :x2 :x3 |b value:x1 value:x2 value:x3]. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
422 |
b value:a1 value:a2 value:a3 |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
423 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
424 |
"Created: / 18-12-2017 / 21:03:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
425 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
426 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
427 |
endlessM |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
428 |
self endlessM |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
429 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
430 |
"Created: / 18-12-2017 / 09:31:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
431 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
432 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
433 |
test_issue_186b0_c |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
434 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
435 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186 |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
436 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
437 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
438 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
439 |
ObjectMemory justInTimeCompilation:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
440 |
ParserFlags withSTCCompilation:#always |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
441 |
do:[ self class recompile:#endlessB ]. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
442 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
443 |
self endlessB. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
444 |
self assert:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
445 |
] on:RecursionError |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
446 |
do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
447 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
448 |
self assert:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
449 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
450 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
451 |
"Created: / 18-12-2017 / 09:34:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
452 |
"Modified (format): / 18-12-2017 / 21:07:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
453 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
454 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
455 |
test_issue_186b0_i |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
456 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
457 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
458 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
459 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
460 |
ObjectMemory justInTimeCompilation:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
461 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
462 |
self endlessB. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
463 |
self assert:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
464 |
] on:RecursionError |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
465 |
do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
466 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
467 |
self assert:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
468 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
469 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
470 |
"Created: / 18-12-2017 / 09:28:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
471 |
"Modified (format): / 18-12-2017 / 21:08:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
472 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
473 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
474 |
test_issue_186b0_j |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
475 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
476 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
477 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
478 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
479 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
480 |
ObjectMemory justInTimeCompilation:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
481 |
self skipIf:ObjectMemory justInTimeCompilation not |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
482 |
description:'JIT not supported by current platform'. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
483 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
484 |
self endlessB. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
485 |
self assert:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
486 |
] on:RecursionError |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
487 |
do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
488 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
489 |
self assert:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
490 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
491 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
492 |
"Created: / 18-12-2017 / 09:28:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
493 |
"Modified (format): / 18-12-2017 / 21:08:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
494 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
495 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
496 |
test_issue_186b1_c |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
497 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
498 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
499 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
500 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
501 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
502 |
ObjectMemory justInTimeCompilation:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
503 |
ParserFlags withSTCCompilation:#always |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
504 |
do:[ self class recompile:#endlessB: ]. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
505 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
506 |
self endlessB: 1. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
507 |
self assert:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
508 |
] on:RecursionError |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
509 |
do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
510 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
511 |
self assert:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
512 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
513 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
514 |
"Created: / 18-12-2017 / 21:04:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
515 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
516 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
517 |
test_issue_186b1_i |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
518 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
519 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
520 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
521 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
522 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
523 |
ObjectMemory justInTimeCompilation:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
524 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
525 |
self endlessB:1. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
526 |
self assert:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
527 |
] on:RecursionError |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
528 |
do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
529 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
530 |
self assert:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
531 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
532 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
533 |
"Created: / 18-12-2017 / 21:05:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
534 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
535 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
536 |
test_issue_186b1_j |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
537 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
538 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
539 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
540 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
541 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
542 |
ObjectMemory justInTimeCompilation:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
543 |
self skipIf:ObjectMemory justInTimeCompilation not |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
544 |
description:'JIT not supported by current platform'. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
545 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
546 |
self endlessB:1. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
547 |
self assert:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
548 |
] on:RecursionError |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
549 |
do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
550 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
551 |
self assert:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
552 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
553 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
554 |
"Created: / 18-12-2017 / 21:05:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
555 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
556 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
557 |
test_issue_186b2_c |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
558 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
559 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
560 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
561 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
562 |
ObjectMemory justInTimeCompilation:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
563 |
ParserFlags withSTCCompilation:#always |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
564 |
do:[ self class recompile:#endlessB:_: ]. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
565 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
566 |
self endlessB: 1 _:2. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
567 |
self assert:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
568 |
] on:RecursionError |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
569 |
do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
570 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
571 |
self assert:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
572 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
573 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
574 |
"Created: / 18-12-2017 / 21:04:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
575 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
576 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
577 |
test_issue_186b2_i |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
578 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
579 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
580 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
581 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
582 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
583 |
ObjectMemory justInTimeCompilation:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
584 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
585 |
self endlessB:1 _:2. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
586 |
self assert:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
587 |
] on:RecursionError |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
588 |
do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
589 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
590 |
self assert:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
591 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
592 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
593 |
"Created: / 18-12-2017 / 21:05:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
594 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
595 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
596 |
test_issue_186b2_j |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
597 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
598 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
599 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
600 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
601 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
602 |
ObjectMemory justInTimeCompilation:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
603 |
self skipIf:ObjectMemory justInTimeCompilation not |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
604 |
description:'JIT not supported by current platform'. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
605 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
606 |
self endlessB:1 _:2. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
607 |
self assert:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
608 |
] on:RecursionError |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
609 |
do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
610 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
611 |
self assert:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
612 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
613 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
614 |
"Created: / 18-12-2017 / 21:05:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
615 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
616 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
617 |
test_issue_186b3_c |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
618 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
619 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
620 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
621 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
622 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
623 |
ObjectMemory justInTimeCompilation:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
624 |
ParserFlags withSTCCompilation:#always |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
625 |
do:[ self class recompile:#endlessB:_:_: ]. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
626 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
627 |
self endlessB: 1 _:2 _:3. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
628 |
self assert:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
629 |
] on:RecursionError |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
630 |
do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
631 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
632 |
self assert:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
633 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
634 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
635 |
"Created: / 18-12-2017 / 21:05:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
636 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
637 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
638 |
test_issue_186b3_i |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
639 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
640 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
641 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
642 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
643 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
644 |
ObjectMemory justInTimeCompilation:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
645 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
646 |
self endlessB:1 _:2 _:3. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
647 |
self assert:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
648 |
] on:RecursionError |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
649 |
do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
650 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
651 |
self assert:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
652 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
653 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
654 |
"Created: / 18-12-2017 / 21:06:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
655 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
656 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
657 |
test_issue_186b3_j |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
658 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
659 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
660 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
661 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
662 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
663 |
ObjectMemory justInTimeCompilation:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
664 |
self skipIf:ObjectMemory justInTimeCompilation not |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
665 |
description:'JIT not supported by current platform'. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
666 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
667 |
self endlessB:1 _:2 _:3. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
668 |
self assert:false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
669 |
] on:RecursionError |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
670 |
do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
671 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
672 |
self assert:true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
673 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
674 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
675 |
"Created: / 18-12-2017 / 21:05:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
676 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
677 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
678 |
test_issue_186m_c |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
679 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
680 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186 |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
681 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
682 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
683 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
684 |
ObjectMemory justInTimeCompilation: false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
685 |
ParserFlags withSTCCompilation:#always do:[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
686 |
self class recompile:#endlessM |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
687 |
]. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
688 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
689 |
self endlessM. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
690 |
self assert: false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
691 |
] on: RecursionError do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
692 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
693 |
self assert: true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
694 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
695 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
696 |
"Created: / 18-12-2017 / 09:34:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
697 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
698 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
699 |
test_issue_186m_i |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
700 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
701 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186 |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
702 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
703 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
704 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
705 |
ObjectMemory justInTimeCompilation: false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
706 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
707 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
708 |
self endlessM. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
709 |
self assert: false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
710 |
] on: RecursionError do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
711 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
712 |
self assert: true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
713 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
714 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
715 |
"Created: / 18-12-2017 / 09:26:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
716 |
! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
717 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
718 |
test_issue_186m_j |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
719 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
720 |
https://swing.fit.cvut.cz/projects/stx-jv/ticket/186 |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
721 |
" |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
722 |
<spawn: true> |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
723 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
724 |
ObjectMemory justInTimeCompilation: true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
725 |
self skipIf: ObjectMemory justInTimeCompilation not description: 'JIT not supported by current platform'. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
726 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
727 |
[ |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
728 |
self endlessM. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
729 |
self assert: false. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
730 |
] on: RecursionError do:[:ex | |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
731 |
Debugger classResources. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
732 |
self assert: true. |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
733 |
] |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
734 |
|
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
735 |
"Created: / 18-12-2017 / 09:27:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1965
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
736 |
! |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
737 |
|
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
738 |
test_run_CharacterTests_from_browser |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
739 |
<timeout: 120> "2min" |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
740 |
<spawn: true> |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
741 |
|
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
742 |
| browser browserInteractor button buttonInteractor | |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
743 |
|
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
744 |
Screen current isNil ifTrue:[ |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
745 |
Smalltalk openDisplay. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
746 |
]. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
747 |
self skipIf:Screen current isNil description:'No display connection'. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
748 |
Smalltalk loadPackage:'stx:goodies/sunit/ext/ui'. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
749 |
|
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
750 |
CharacterTests autoload. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
751 |
browser := Tools::NewSystemBrowser new. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
752 |
browser open. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
753 |
browserInteractor := browser interactor. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
754 |
browserInteractor do:[ browser switchToClass: CharacterTests ]. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
755 |
self assert: browser theSingleSelectedClass == CharacterTests. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
756 |
button := self childOf: browser window withUUID: '79afa5fe-a549-4419-b035-21af25ac5ec3'. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
757 |
self assert: button notNil. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
758 |
buttonInteractor := button interactor. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
759 |
buttonInteractor do:[button controller performAction]. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
760 |
|
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
761 |
"Created: / 21-12-2017 / 15:26:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
762 |
! |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
763 |
|
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
764 |
test_stx_libjava_testSuite_inspect |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
765 |
<timeout: 120> "2min" |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
766 |
<spawn: true> |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
767 |
|
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
768 |
(Smalltalk at:#stx_libjava) testSuite inspect. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
769 |
Delay waitForSeconds: 5. |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
770 |
|
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
771 |
"Created: / 01-05-2017 / 21:34:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
a787232be371
Added one more VM crash test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1961
diff
changeset
|
772 |
"Modified: / 21-12-2017 / 15:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1961
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
773 |
! ! |
060ecb860164
Issue #186: added some test
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1959
diff
changeset
|
774 |
|
1181 | 775 |
!VMCrashTests class methodsFor:'documentation'! |
776 |
||
777 |
version |
|
778 |
^ '$Header$' |
|
779 |
! |
|
780 |
||
781 |
version_CVS |
|
782 |
^ '$Header$' |
|
1493 | 783 |
! |
784 |
||
785 |
version_HG |
|
786 |
||
787 |
^ '$Changeset: <not expanded> $' |
|
1181 | 788 |
! ! |
1958 | 789 |