equal
deleted
inserted
replaced
58 ^ TestletTestCaseProxy |
58 ^ TestletTestCaseProxy |
59 |
59 |
60 "Created: / 01-03-2011 / 11:41:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
60 "Created: / 01-03-2011 / 11:41:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61 "Modified: / 01-03-2011 / 14:54:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61 "Modified: / 01-03-2011 / 14:54:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
62 "Modified: / 29-04-2011 / 10:25:26 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
62 "Modified: / 29-04-2011 / 10:25:26 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
63 ! |
|
64 |
|
65 nameForHDTestReport |
|
66 |
|
67 ^javaClassName copyReplaceAll:$/ with: $. |
|
68 |
|
69 "Created: / 01-04-2011 / 16:10:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
70 ! |
63 ! |
71 |
64 |
72 selector: aSymbol |
65 selector: aSymbol |
73 |
66 |
74 ^super selector: aSymbol |
67 ^super selector: aSymbol |
158 assert: (javaClass := self class javaClass) isJavaClass |
151 assert: (javaClass := self class javaClass) isJavaClass |
159 description: 'java class does not exists'. |
152 description: 'java class does not exists'. |
160 ^javaClass |
153 ^javaClass |
161 |
154 |
162 "Created: / 01-03-2011 / 14:48:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
155 "Created: / 01-03-2011 / 14:48:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
156 ! |
|
157 |
|
158 nameForHDTestReport |
|
159 |
|
160 ^(self class javaClassName copyReplaceAll:$/ with: $.) copyTo: (self class javaClassName lastIndexOf: $/) - 1. |
|
161 |
|
162 "Created: / 01-04-2011 / 16:10:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
163 |
|
164 ! |
|
165 |
|
166 selectorForHDTestReport |
|
167 |
|
168 ^self class javaClassName copyFrom: |
|
169 (self class javaClassName lastIndexOf: $/) + 1 |
|
170 |
|
171 |
|
172 |
163 ! ! |
173 ! ! |
164 |
174 |
165 !TestletTestCaseProxy methodsFor:'error handling'! |
175 !TestletTestCaseProxy methodsFor:'error handling'! |
166 |
176 |
167 doesNotUnderstand: aMessage |
177 doesNotUnderstand: aMessage |