From 645af327b4462fa454adb9de09d18ed1b8683ee3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 18 Mar 2009 11:53:42 +0000 Subject: [PATCH] fix htdp lang require test: merge to 4.1.5 svn: r14170 --- collects/tests/mzscheme/beg-adv.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/beg-adv.ss b/collects/tests/mzscheme/beg-adv.ss index 79d118494f..6430ee5e7b 100644 --- a/collects/tests/mzscheme/beg-adv.ss +++ b/collects/tests/mzscheme/beg-adv.ss @@ -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")