equal
deleted
inserted
replaced
183 handlerBlock := [:ex | TestResult failure sunitSignalWith: ex description ]. |
183 handlerBlock := [:ex | TestResult failure sunitSignalWith: ex description ]. |
184 self createHarness. |
184 self createHarness. |
185 [ |
185 [ |
186 JavaVM unimplementedNativeMethodSignal handle: handlerBlock |
186 JavaVM unimplementedNativeMethodSignal handle: handlerBlock |
187 do: [ |
187 do: [ |
|
188 Stdout nextPutLine: self javaClass name. |
|
189 ObjectMemory checkConsistency. |
188 self javaClass new |
190 self javaClass new |
189 perform: 'test(Lgnu/testlet/TestHarness;)V' sunitAsSymbol |
191 perform: 'test(Lgnu/testlet/TestHarness;)V' sunitAsSymbol |
190 with: harness |
192 with: harness. |
|
193 ObjectMemory checkConsistency. |
191 ]. |
194 ]. |
192 ] on: JavaError do: handlerBlock |
195 ] on: JavaError do: handlerBlock |
193 |
196 |
194 "/((harness instVarNamed: 'passed') = 0 ) ifTrue: [ TestResult failure sunitSignalWith: 'Test failed' ]. |
197 "/((harness instVarNamed: 'passed') = 0 ) ifTrue: [ TestResult failure sunitSignalWith: 'Test failed' ]. |
195 |
198 |
196 "Created: / 01-03-2011 / 14:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
199 "Created: / 01-03-2011 / 14:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
197 "Modified: / 05-12-2011 / 21:15:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
200 "Modified: / 05-12-2011 / 21:15:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>" |
198 "Modified: / 05-05-2012 / 22:25:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
201 "Modified: / 10-05-2012 / 16:51:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
199 ! ! |
202 ! ! |
200 |
203 |
201 !TestletTestCaseProxy methodsFor:'private - Proxy interface'! |
204 !TestletTestCaseProxy methodsFor:'private - Proxy interface'! |
202 |
205 |
203 directory: type |
206 directory: type |