From 23bda729530c25ae602584f9c3dc2daff04821da Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 1 Feb 2016 21:33:09 -0500 Subject: [PATCH] Add missing function to `typed/rackunit` implementation. Repairs 10dc53375. Found by the "semver" package. Merge to 6.4. --- typed-racket-more/typed/rackunit/main.rkt | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/typed-racket-more/typed/rackunit/main.rkt b/typed-racket-more/typed/rackunit/main.rkt index 0f074710..ad5e4752 100644 --- 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)