diff --git a/pkgs/rackunit-pkgs/rackunit-doc/rackunit/scribblings/info.rkt b/pkgs/rackunit-pkgs/rackunit-doc/rackunit/scribblings/info.rkt new file mode 100644 index 0000000..42edee6 --- /dev/null +++ b/pkgs/rackunit-pkgs/rackunit-doc/rackunit/scribblings/info.rkt @@ -0,0 +1,3 @@ +#lang info + +(define test-omit-paths '("file-test.rkt")) diff --git a/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/log.rkt b/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/log.rkt index 53841e9..3176846 100644 --- a/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/log.rkt +++ b/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/log.rkt @@ -2,6 +2,13 @@ (require rackunit rackunit/log) +(module test racket/base + (require syntax/location) + ;; Use a separate namespace to avoid logging results + ;; in this namespace (where `raco test` would see errors). + (parameterize ([current-namespace (make-base-namespace)]) + (dynamic-require (quote-module-path "..") #f))) + (define-syntax-rule (&& label stdout-e stdout-p) (let () (define stdout-ev stdout-e) diff --git a/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/pr10950.rkt b/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/pr10950.rkt index e07a898..5dc237e 100644 --- a/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/pr10950.rkt +++ b/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/pr10950.rkt @@ -20,3 +20,10 @@ (regexp-quote "pr10950.rkt:14:51") (regexp-quote "0 success(es) 1 failure(s) 0 error(s) 1 test(s) run\n"))) output)) + +(module test racket/base + (require syntax/location) + ;; Use a separate namespace to avoid logging results + ;; in this namespace (where `raco test` would see errors). + (parameterize ([current-namespace (make-base-namespace)]) + (dynamic-require (quote-module-path "..") #f))) \ No newline at end of file diff --git a/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/run-tests.rkt b/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/run-tests.rkt index 18553fc..b8329f8 100644 --- a/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/run-tests.rkt +++ b/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/run-tests.rkt @@ -10,3 +10,10 @@ (parameterize ([current-error-port (current-output-port)] [current-output-port (current-error-port)]) (run-tests failure-tests)) + +(module test racket/base + (require syntax/location) + ;; Use a separate namespace to avoid logging results + ;; in this namespace (where `raco test` would see errors). + (parameterize ([current-namespace (make-base-namespace)]) + (dynamic-require (quote-module-path "..") #f))) \ No newline at end of file diff --git a/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/standalone-check-test.rkt b/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/standalone-check-test.rkt index 6187e38..0570e8b 100644 --- a/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/standalone-check-test.rkt +++ b/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/standalone-check-test.rkt @@ -33,6 +33,10 @@ (require rackunit/private/check) +;; Don't run this test automatically: +(module test racket/base + (displayln "run as program for tests")) + ;; This check should succeed (check = 1 1 0.0) diff --git a/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/standalone-test-case-test.rkt b/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/standalone-test-case-test.rkt index 78f9abc..36540c5 100644 --- a/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/standalone-test-case-test.rkt +++ b/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/standalone-test-case-test.rkt @@ -7,6 +7,10 @@ (require rackunit/private/check rackunit/private/test-case) +;; Don't run this test automatically: +(module test racket/base + (displayln "run as program for tests")) + ;; These tests should succeeds (test-begin (check-eq? 1 1)) (test-case "succeed" (check-eq? 1 1)) diff --git a/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/standalone.rkt b/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/standalone.rkt index 744e2cb..fc920b4 100644 --- a/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/standalone.rkt +++ b/pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/standalone.rkt @@ -3,6 +3,13 @@ rackunit racket/path) +(module test racket/base + (require syntax/location) + ;; Use a separate namespace to avoid logging results + ;; in this namespace (where `raco test` would see errors). + (parameterize ([current-namespace (make-base-namespace)]) + (dynamic-require (quote-module-path "..") #f))) + (define-runtime-path here ".") (define collects (normalize-path (build-path here ".." "..")))