[plt-dev] Fix for a test-engine bug

[John Clements]

In the release candidate, this program:

#lang scheme

(require test-engine/scheme-tests)

(test)


... causes this error:





Revision 14946 fixes this.  Here's the diff:


Index: test-engine.scm
===================================================================
--- test-engine.scm     (revision 14945)
+++ test-engine.scm     (revision 14946)
@@ -87,11 +87,11 @@
                    [else (format "All ~a" count)])
                  (if (= count 1) "" "s"))))

-    (define (display-untested-summary port)
+    (define/public (display-untested-summary port)
       (unless (test-silence)
         (fprintf port "This program should be tested.~n")))

-    (define (display-disabled-summary port)
+    (define/public (display-disabled-summary port)
       (fprintf port "Tests disabled.\n"))

     (define/public (next-line) (printf "~a" "\n\t"))
pcp063219pcs:~/plt/collects/test-engine clements$


I think this should go in the release.

John

send: no such method: display-untested-summary for class: test-display- textual% In fact, it turns out that test-display-textual% does have these methods, it's just that they're not public. pcp063219pcs:~/plt/collects/test-engine clements$ svn diff -r 14945:14946 test-engine.scm

smime.p7s
Description: S/MIME cryptographic signature

_________________________________________________
  For list-related administrative tasks:
  http://list.cs.brown.edu/mailman/listinfo/plt-dev