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

I've ran into the same problem trying to make it run in the sandbox,
and I think that I tried a very similar solution.  My conclusion was
that it's best left for Kathy to fix...


On May 22, John Clements wrote:
> In the release candidate, this program:
> 
> #lang scheme
> 
> (require test-engine/scheme-tests)
> 
> (test)
> 
> 
> ... causes this error:
> 
> 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.
> 
> Revision 14946 fixes this.  Here's the diff:
> 
> pcp063219pcs:~/plt/collects/test-engine clements$ svn diff -r  
> 14945:14946 test-engine.scm
> 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.

-- 
          ((lambda (x) (x x)) (lambda (x) (x x)))          Eli Barzilay:
                  http://www.barzilay.org/                 Maze is Life!