From 94c1702b56df65164f64a12e145f9a991c8fdba0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 14 Feb 2007 23:21:12 +0000 Subject: [PATCH] added a few things svn: r5601 --- collects/tests/drscheme/repl-test.ss | 10 ++++++++++ collects/tests/drscheme/syncheck-test.ss | 13 +++++++++++++ 2 files changed, 23 insertions(+) diff --git a/collects/tests/drscheme/repl-test.ss b/collects/tests/drscheme/repl-test.ss index fbe1abc9e0..872f10a5ac 100644 --- a/collects/tests/drscheme/repl-test.ss +++ b/collects/tests/drscheme/repl-test.ss @@ -206,6 +206,16 @@ void void) + (make-test "(begin xx (printf \"hi\\n\"))" + "reference to undefined identifier: xx" + "reference to undefined identifier: xx" + "{bug09.gif} reference to undefined identifier: xx" + "{bug09.gif} {file.gif} repl-test-tmp.ss::1: reference to undefined identifier: xx" + (cons (make-loc 0 7 7) (make-loc 0 9 9)) + #f + void + void) + (make-test (string-append "(module m mzscheme (provide e) (define e #'1))\n" "(module n mzscheme (require-for-syntax m) (provide s) (define-syntax (s stx) e))\n" diff --git a/collects/tests/drscheme/syncheck-test.ss b/collects/tests/drscheme/syncheck-test.ss index f942782f83..3ab06633ff 100644 --- a/collects/tests/drscheme/syncheck-test.ss +++ b/collects/tests/drscheme/syncheck-test.ss @@ -663,6 +663,19 @@ '((28 56) (87 92) (93 98)) '((57 85) (87 92) (93 98)))) + (build-test "(module m mzscheme (require (prefix x: mzscheme)) x:+ +)" + '(("(" default-color) + ("module" imported-syntax) + (" m mzscheme (" default-color) + ("require" imported-syntax) + ("(prefix x: mzscheme)) " default-color) + ("x:+" imported-variable) + (" " default-color) + ("+" imported-variable) + (")" default-color)) + (list '((10 18) (20 27) (54 55)) + '((28 48) (50 53)))) + (build-test "(module m mzscheme (require (lib \"etc.ss\")) (rec f 1))" '(("(" default-color) ("module" imported-syntax)