From 8eee6a0298ddd70490b65006ebc0cdf0f8e8624d Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Mon, 29 Jan 2007 17:05:18 +0000 Subject: [PATCH] svn: r5501 --- collects/profj/libs/java/lang/Object-composite.ss | 15 +++++++++++++++ collects/profj/tester.scm | 2 +- 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/collects/profj/libs/java/lang/Object-composite.ss b/collects/profj/libs/java/lang/Object-composite.ss index 252a597605..6bcb288dae 100644 --- a/collects/profj/libs/java/lang/Object-composite.ss +++ b/collects/profj/libs/java/lang/Object-composite.ss @@ -947,6 +947,21 @@ ; -> string (define/override (my-name) "Throwable") + (define/override (field-names) + (cond + [(and (null? cause) + (equal? "" (send message get-mzscheme-string))) null] + [(null? cause) (list "message")] + [(equal? "" (send message get-mzscheme-string)) (list "cause")] + [else (list "message" "cause")])) + (define/override (field-values) + (cond + [(and (null? cause) + (equal? "" (send message get-mzscheme-string))) null] + [(null? cause) (list message)] + [(equal? "" (send message get-mzscheme-string)) (list cause)] + [else (list message cause)])) + (super-instantiate ()))) ;(make-java-exception string continuation-mark-set Throwable) diff --git a/collects/profj/tester.scm b/collects/profj/tester.scm index 3280426852..5c1bd79cab 100644 --- a/collects/profj/tester.scm +++ b/collects/profj/tester.scm @@ -77,7 +77,7 @@ (set-single-test-covered-exprs! current-class (cons src (single-test-covered-exprs current-class))) - (when (and (testcase-ext?) src) + (when (and (testcase-ext?) src (not (null? current-test-obj))) (send current-test-obj testCoverage-boolean-int #f (src-pos src)))) (define/public (provide-test-results)