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. |
188 "/ Stdout nextPutLine: self javaClass name. |
189 "/ ObjectMemory checkConsistency. |
189 "/ ObjectMemory checkConsistency. |
190 self javaClass new |
190 self javaClass new |
191 perform: 'test(Lgnu/testlet/TestHarness;)V' sunitAsSymbol |
191 perform: 'test(Lgnu/testlet/TestHarness;)V' sunitAsSymbol |
192 with: harness. |
192 with: harness. |
193 ObjectMemory garbageCollect. |
193 "/ ObjectMemory garbageCollect. |
194 JavaVM dumpOpenExternalStreamsOn: Stdout. |
194 "/ JavaVM dumpOpenExternalStreamsOn: Stdout. |
195 "/ ObjectMemory checkConsistency. |
195 "/ ObjectMemory checkConsistency. |
196 ]. |
196 ]. |
197 ] on: JavaError do: handlerBlock |
197 ] on: JavaError do: handlerBlock |
198 |
198 |
199 "/((harness instVarNamed: 'passed') = 0 ) ifTrue: [ TestResult failure sunitSignalWith: 'Test failed' ]. |
199 "/((harness instVarNamed: 'passed') = 0 ) ifTrue: [ TestResult failure sunitSignalWith: 'Test failed' ]. |