Add missing function to typed/rackunit implementation.

Repairs 10dc53375. Found by the "semver" package. Merge to 6.4.
2016-02-01 21:33:09 -05:00 · 2016-02-01 21:33:09 -05:00 · 23bda72953
commit 23bda72953
parent 5f35f447b5
1 changed files with 6 additions and 0 deletions
--- a/typed-racket-more/typed/rackunit/main.rkt
+++ b/typed-racket-more/typed/rackunit/main.rkt
@ -127,6 +127,12 @@
             (ensure-string name (quote-syntax #,(datum->syntax #f 'loc #'name)))])
         (test-begin expr ...)))]))

+(: ensure-string : Any Any -> String)
+(define (ensure-string name src-stx)
+  (unless (string? name)
+    (raise-argument-error 'test-case "string?" name))
+  name)
+
 (provide test-begin test-case)

 (require/opaque-type TestCase test-case? rackunit)