author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Wed, 02 Jan 2013 18:51:13 +0100 | |
branch | development |
changeset 1922 | 7fa6a6a8f1d8 |
parent 1843 | eff50e345dff |
child 1953 | 1e42ad3fc322 |
permissions | -rw-r--r-- |
1440 | 1 |
" |
2 |
COPYRIGHT (c) 1996-2011 by Claus Gittinger |
|
3 |
||
4 |
New code and modifications done at SWING Research Group [1]: |
|
5 |
||
6 |
COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko |
|
7 |
SWING Research Group, Czech Technical University in Prague |
|
8 |
||
9 |
This software is furnished under a license and may be used |
|
10 |
only in accordance with the terms of that license and with the |
|
11 |
inclusion of the above copyright notice. This software may not |
|
12 |
be provided or otherwise made available to, or used by, any |
|
13 |
other person. No title to or ownership of the software is |
|
14 |
hereby transferred. |
|
15 |
||
16 |
[1] Code written at SWING Research Group contains a signature |
|
17 |
of one of the above copright owners. For exact set of such code, |
|
18 |
see the differences between this version and version stx:libjava |
|
19 |
as of 1.9.2010 |
|
20 |
" |
|
21 |
"{ Package: 'stx:libjava' }" |
|
22 |
||
23 |
TestCase subclass:#JavaExceptionTests |
|
1452
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
24 |
instanceVariableNames:'signal' |
1440 | 25 |
classVariableNames:'' |
26 |
poolDictionaries:'' |
|
27 |
category:'Languages-Java-Tests' |
|
28 |
! |
|
29 |
||
30 |
!JavaExceptionTests class methodsFor:'documentation'! |
|
31 |
||
32 |
copyright |
|
33 |
" |
|
34 |
COPYRIGHT (c) 1996-2011 by Claus Gittinger |
|
35 |
||
36 |
New code and modifications done at SWING Research Group [1]: |
|
37 |
||
38 |
COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko |
|
39 |
SWING Research Group, Czech Technical University in Prague |
|
40 |
||
41 |
This software is furnished under a license and may be used |
|
42 |
only in accordance with the terms of that license and with the |
|
43 |
inclusion of the above copyright notice. This software may not |
|
44 |
be provided or otherwise made available to, or used by, any |
|
45 |
other person. No title to or ownership of the software is |
|
46 |
hereby transferred. |
|
47 |
||
48 |
[1] Code written at SWING Research Group contains a signature |
|
49 |
of one of the above copright owners. For exact set of such code, |
|
50 |
see the differences between this version and version stx:libjava |
|
51 |
as of 1.9.2010 |
|
52 |
||
53 |
" |
|
54 |
! ! |
|
55 |
||
56 |
!JavaExceptionTests class methodsFor:'accessing'! |
|
57 |
||
58 |
resources |
|
59 |
||
60 |
^ Array |
|
61 |
with: JavaInitializedResource |
|
62 |
with: JavaLibrariesResource |
|
63 |
with: JavaTestsResource |
|
64 |
||
65 |
"Created: / 30-03-2012 / 13:38:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
66 |
! ! |
|
67 |
||
1452
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
68 |
!JavaExceptionTests methodsFor:'callbacks'! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
69 |
|
1832 | 70 |
call: trhower with: aBoolean |
71 |
aBoolean ifTrue: [ signal raise ]. |
|
1452
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
72 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
73 |
"Created: / 03-04-2012 / 17:33:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1832 | 74 |
"Modified: / 18-11-2012 / 18:04:47 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
1452
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
75 |
! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
76 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
77 |
throw_me: aBoolean |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
78 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
79 |
aBoolean ifTrue:[signal raise]. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
80 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
81 |
"Created: / 03-04-2012 / 17:31:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
82 |
! ! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
83 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
84 |
!JavaExceptionTests methodsFor:'error handling (interop)'! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
85 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
86 |
doesNotUnderstand:aMessage |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
87 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
88 |
| method selector class args| |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
89 |
selector := aMessage selector. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
90 |
args := aMessage arguments. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
91 |
class := self class. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
92 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
93 |
JavaLookup isNil ifTrue:[ |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
94 |
(Smalltalk loadPackage: 'stx:libjava/experiments') ifFalse:[ |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
95 |
self error: 'You should load package stx:libjava/experiments if you want some interop - still experimental' mayProceed: true. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
96 |
^nil |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
97 |
] |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
98 |
]. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
99 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
100 |
method := JavaLookup instance lookupMethodForSelector: selector |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
101 |
directedTo: class |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
102 |
for: self |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
103 |
withArguments: args |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
104 |
from: thisContext sender sender |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
105 |
ilc: nil. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
106 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
107 |
method isNil ifTrue:[ |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
108 |
^super doesNotUnderstand:aMessage |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
109 |
] ifFalse:[ |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
110 |
^ method valueWithReceiver: self arguments: args |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
111 |
]. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
112 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
113 |
"Created: / 06-09-2011 / 22:16:26 / Jan Kurs <kursjan@fit.cvut.cz>" |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
114 |
"Modified: / 15-12-2011 / 23:42:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
115 |
! ! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
116 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
117 |
!JavaExceptionTests methodsFor:'running'! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
118 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
119 |
setUp |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
120 |
signal := Signal new. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
121 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
122 |
"Created: / 03-04-2012 / 17:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
123 |
! ! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
124 |
|
1440 | 125 |
!JavaExceptionTests methodsFor:'tests'! |
126 |
||
127 |
test_01a |
|
128 |
" |
|
129 |
Scenario (method activation stack, last called at bottom) |
|
130 |
1) ST method, handles IllegalArgumentException |
|
131 |
2) Java method, throws IllegalArgumentException. |
|
132 |
" |
|
133 |
||
134 |
| thrower caught | |
|
1515 | 135 |
thrower := JAVA stx libjava tests lang ExceptionTests new. |
1440 | 136 |
[ |
137 |
thrower throw_me: true. |
|
138 |
caught := false. |
|
139 |
||
140 |
] on: JAVA java lang IllegalArgumentException do: [:ex| |
|
141 |
caught := true. |
|
142 |
]. |
|
143 |
||
1477 | 144 |
self assert: caught == true. |
145 |
self assert: (JavaVM enteredMonitorsOfProcess: Processor activeProcess) isEmptyOrNil. |
|
146 |
self assert: (JavaVM acquiredMonitorsOfProcess: Processor activeProcess) isEmptyOrNil. |
|
1440 | 147 |
|
148 |
"Created: / 18-03-2012 / 11:06:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
149 |
! |
|
150 |
||
151 |
test_01b |
|
152 |
" |
|
1832 | 153 |
Scenario (method activation stack, last called at bottom) |
1440 | 154 |
1) ST method, handles IllegalArgumentException |
1832 | 155 |
2) Java method, does not IllegalArgumentException." |
156 |
||
157 |
| thrower caught | |
|
1515 | 158 |
thrower := JAVA stx libjava tests lang ExceptionTests new. |
1832 | 159 |
[ |
1833 | 160 |
thrower throw_me: false. |
1440 | 161 |
caught := false. |
1840 | 162 |
] on: JAVA java lang IllegalArgumentException do: [:ex | |
163 |
caught := true. |
|
164 |
]. |
|
1477 | 165 |
self assert: caught == false. |
1832 | 166 |
self assert: (JavaVM enteredMonitorsOfProcess: Processor activeProcess) |
167 |
isEmptyOrNil. |
|
168 |
self assert: (JavaVM acquiredMonitorsOfProcess: Processor activeProcess) |
|
169 |
isEmptyOrNil. |
|
1440 | 170 |
|
171 |
"Created: / 18-03-2012 / 21:49:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1833 | 172 |
"Modified: / 18-11-2012 / 18:17:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
1840 | 173 |
"Modified (format): / 29-11-2012 / 22:54:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1440 | 174 |
! |
175 |
||
176 |
test_01c |
|
177 |
" |
|
178 |
Scenario (method activation stack, last called at bottom) |
|
179 |
1) ST method, handles IllegalArgumentException |
|
180 |
2) Java method, does not IllegalArgumentException. |
|
181 |
" |
|
182 |
||
183 |
| thrower caught | |
|
1515 | 184 |
thrower := JAVA stx libjava tests lang ExceptionTests new. |
1440 | 185 |
[ |
186 |
thrower throw_me: true. |
|
187 |
caught := false. |
|
188 |
||
189 |
] on: JAVA java lang Throwable do: [:ex| |
|
190 |
caught := true. |
|
191 |
]. |
|
192 |
||
1477 | 193 |
self assert: caught == true. |
194 |
self assert: (JavaVM enteredMonitorsOfProcess: Processor activeProcess) isEmptyOrNil. |
|
195 |
self assert: (JavaVM acquiredMonitorsOfProcess: Processor activeProcess) isEmptyOrNil. |
|
1440 | 196 |
|
197 |
"Created: / 18-03-2012 / 22:11:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
198 |
! |
|
199 |
||
200 |
test_01d |
|
201 |
" |
|
202 |
Scenario (method activation stack, last called at bottom) |
|
203 |
1) ST method, handles IllegalArgumentException |
|
204 |
2) Java method, does not IllegalArgumentException. |
|
205 |
" |
|
206 |
||
207 |
| thrower caught | |
|
1515 | 208 |
thrower := JAVA stx libjava tests lang ExceptionTests new. |
1440 | 209 |
[ |
210 |
[ |
|
211 |
thrower throw_me: true. |
|
212 |
caught := false. |
|
213 |
||
214 |
] on: JAVA java lang ArrayIndexOutOfBoundsException do: [:ex| |
|
215 |
caught := true. |
|
216 |
]. |
|
217 |
] on: JavaUnhandledExceptionError do:[ |
|
218 |
caught := 123. |
|
219 |
]. |
|
220 |
||
1477 | 221 |
self assert: caught == 123. |
222 |
self assert: (JavaVM enteredMonitorsOfProcess: Processor activeProcess) isEmptyOrNil. |
|
223 |
self assert: (JavaVM acquiredMonitorsOfProcess: Processor activeProcess) isEmptyOrNil. |
|
1440 | 224 |
|
225 |
"Created: / 18-03-2012 / 22:12:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1450 | 226 |
! |
227 |
||
228 |
test_01e |
|
229 |
" |
|
230 |
Scenario (method activation stack, last called at bottom) |
|
231 |
1) ST method, handles IllegalArgumentException |
|
232 |
2) Java method, throws IllegalArgumentException. |
|
233 |
" |
|
234 |
||
235 |
| thrower caught | |
|
1515 | 236 |
thrower := JAVA stx libjava tests lang ExceptionTests new. |
1450 | 237 |
[ |
238 |
thrower call: true. |
|
239 |
caught := false. |
|
240 |
||
241 |
] on: JAVA java lang IllegalArgumentException do: [:ex| |
|
242 |
caught := true. |
|
243 |
]. |
|
244 |
||
1477 | 245 |
self assert: caught == true. |
246 |
self assert: (JavaVM enteredMonitorsOfProcess: Processor activeProcess) isEmptyOrNil. |
|
247 |
self assert: (JavaVM acquiredMonitorsOfProcess: Processor activeProcess) isEmptyOrNil. |
|
1450 | 248 |
|
249 |
"Created: / 03-04-2012 / 14:44:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
250 |
! |
|
251 |
||
252 |
test_03a |
|
253 |
" |
|
1832 | 254 |
Scenario (method activation stack, last called at bottom) |
1450 | 255 |
1) ST method, handles IllegalArgumentException |
256 |
2) Java method with finally |
|
1832 | 257 |
3) Java method, throws IllegalArgumentException." |
258 |
||
259 |
| thrower caught | |
|
1515 | 260 |
thrower := JAVA stx libjava tests lang ExceptionTests new. |
1832 | 261 |
[ |
1450 | 262 |
thrower test_03: true. |
263 |
caught := false. |
|
1832 | 264 |
] on: JAVA java lang IllegalArgumentException do: [:ex | caught := true. ]. |
1450 | 265 |
self assert: caught == true. |
1455 | 266 |
self assert: (thrower instVarNamed: #token) == 3. |
1832 | 267 |
self assert: (JavaVM enteredMonitorsOfProcess: Processor activeProcess) |
268 |
isEmptyOrNil. |
|
269 |
self assert: (JavaVM acquiredMonitorsOfProcess: Processor activeProcess) |
|
270 |
isEmptyOrNil. |
|
1450 | 271 |
|
272 |
"Created: / 03-04-2012 / 15:39:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1832 | 273 |
"Modified (comment): / 18-11-2012 / 16:50:50 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
1452
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
274 |
! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
275 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
276 |
test_04a |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
277 |
" |
1832 | 278 |
Scenario (method activation stack, last called at bottom) |
1452
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
279 |
1) ST method, handles 'signal' |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
280 |
2) Java method with finally |
1832 | 281 |
3) Smalltak method, throws 'signal'" |
282 |
||
283 |
| thrower caught | |
|
1515 | 284 |
thrower := JAVA stx libjava tests lang ExceptionTests new. |
1832 | 285 |
[ |
1452
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
286 |
thrower test_04: self with: true. |
1832 | 287 |
caught := false. |
288 |
] on: signal do: [:ex | caught := true. ]. |
|
1452
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
289 |
self assert: caught == true. |
1455 | 290 |
self assert: (thrower instVarNamed: #token) == 3. |
1832 | 291 |
self assert: (JavaVM enteredMonitorsOfProcess: Processor activeProcess) |
292 |
isEmptyOrNil. |
|
293 |
self assert: (JavaVM acquiredMonitorsOfProcess: Processor activeProcess) |
|
294 |
isEmptyOrNil. |
|
1452
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
295 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
296 |
"Created: / 03-04-2012 / 17:30:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1832 | 297 |
"Modified: / 18-11-2012 / 18:04:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
1440 | 298 |
! ! |
299 |
||
300 |
!JavaExceptionTests class methodsFor:'documentation'! |
|
301 |
||
302 |
version_SVN |
|
303 |
^ '$Id$' |
|
304 |
! ! |