fix htdp lang require test: merge to 4.1.5

svn: r14170
This commit is contained in:
Matthew Flatt 2009-03-18 11:53:42 +00:00
parent bdc82f2100
commit 645af327b4

View File

@ -221,6 +221,9 @@
(htdp-top (require (lib "unit.ss" "mzlib")))
(htdp-test #f unit? 12)
(htdp-top-pop 1)
(htdp-top (require mzlib/unit))
(htdp-test #f unit? 12)
(htdp-top-pop 1)
;; Error messages
(htdp-top (define my-x 5))
@ -236,7 +239,7 @@
(htdp-syntax-test #'define #rx"does not follow")
(htdp-syntax-test #'(require) #rx"found nothing")
(htdp-syntax-test #'(require a) #rx"expected a module name as a")
(htdp-syntax-test #'(require a!) #rx"bad syntax for a module path")
(htdp-syntax-test #'(require "a" "b") #rx"a single module name")
(htdp-syntax-test #'(require "") #rx"empty")
(htdp-syntax-test #'(require "/a") #rx"start with a slash")