diff --git a/pkgs/xrepl-pkgs/xrepl-test/tests/xrepl/xrepl.rkt b/pkgs/xrepl-pkgs/xrepl-test/tests/xrepl/xrepl.rkt index bf4454d4ee..f43cc86a44 100644 --- a/pkgs/xrepl-pkgs/xrepl-test/tests/xrepl/xrepl.rkt +++ b/pkgs/xrepl-pkgs/xrepl-test/tests/xrepl/xrepl.rkt @@ -7,9 +7,6 @@ ;; sometimes there's very little help, and it might also fail by just getting ;; stuck. -(module test racket/base - (displayln "run as program for tests")) - (define verbose? (make-parameter #f)) (define global-ns (current-namespace)) @@ -84,6 +81,9 @@ (define tmp (path->string (find-system-path 'temp-dir))) (define collects (path->string (find-collects-dir))) +(define tmp-no-slash (let-values ([(base name dir?) (split-path tmp)]) + (path->string (build-path base name)))) + (provide test-xrepl) (module+ main (test-xrepl)) (define test-xrepl @make-xrepl-test{ @@ -166,12 +166,12 @@ -> «(current-directory "/( none )")» ⇒ racket allows this ; now in /( none ) ⇒ reports without ,cd -> «,cd @|tmp|» - ; now in @tmp + ; now in @tmp-no-slash -> «,desc scribble/html» ; `scribble/html' is a module, - ; located at /scribble-lib/scribble/html.rkt + ; located at /scribble-html-lib/scribble/html.rkt ; imports: /racket/base.rkt, - ; /scribble-lib/scribble/html/main.rkt. + ; /scribble-html-lib/scribble/html/main.rkt. ; no direct exports. -> «(module broken racket/base (define foo 123) (error "bleh!"))» -> «,en broken»