Fixing PR14168

original commit: 6d06e8c66d4d3f7af5fc824e3bc4cdb7f056709d

pkgs/rackunit-pkgs/rackunit-lib/rackunit/private/test-case.rkt

@@ -1,5 +1,6 @@
 #lang racket/base
 (require (for-syntax racket/base)
+         racket/contract/base
          "format.rkt"
          "check.rkt")
 
@@ -58,12 +59,16 @@
       "Correct form is (test-begin expr ...)"
       stx)]))
 
-(define-syntax test-case
+(define-syntax (test-case stx)
-  (syntax-rules ()
+  (syntax-case stx ()
-    [(test-case name expr ...)
+    [(_ name expr ...)
-     (parameterize
+     (quasisyntax/loc stx
-         ([current-test-name name])
+       (parameterize
-       (test-begin expr ...))]))
+           ([current-test-name 
+             (contract string? name 
+                       '#,(syntax-source-module #'name #t)
+                       '#,(syntax-source-module #'test-case #t))])
+         (test-begin expr ...)))]))
 
 (define-syntax before
   (syntax-rules ()

pkgs/rackunit-pkgs/rackunit-test/tests/rackunit/test-case-test.rkt

@@ -12,6 +12,8 @@
   (test-suite
    "test-case-tests"
 
+   (check-exn #rx"contract" (λ () (test-case 'foo)))
+
    (test-case
     "test-begin terminates when sub-expression fails"
     (let ([fail? #f])
@@ -52,6 +54,8 @@
             (test-case
              "dummy"
              (define yes #t)
-             (check-true yes)))))))
+             (check-true yes)))))))))
 
-   ))
+(module+ test
+  (require rackunit/text-ui)
+  (run-tests test-case-tests))