From 9f528d02883fecb8e6038438c4bf5737691969cb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 5 Sep 2005 14:23:45 +0000 Subject: [PATCH] paren-shape tests svn: r769 --- collects/tests/mzscheme/read.ss | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/collects/tests/mzscheme/read.ss b/collects/tests/mzscheme/read.ss index 8d3ac0de6c..6cf0839b70 100644 --- a/collects/tests/mzscheme/read.ss +++ b/collects/tests/mzscheme/read.ss @@ -916,6 +916,17 @@ (parameterize ([read-accept-reader #t]) (read-syntax '??? (open-input-string "#reader reader-test-module 10"))))) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Test 'paren-shape property + +(test #f syntax-property (read-syntax 'x (open-input-string "(1 2 3)")) 'paren-shape) +(test #\[ syntax-property (read-syntax 'x (open-input-string "[1 2 3]")) 'paren-shape) +(test #\[ syntax-property (read-syntax 'x (open-input-string "[1 . 3]")) 'paren-shape) +(test #\[ syntax-property (read-syntax 'x (open-input-string "[1 . 3 . 2]")) 'paren-shape) +(test #\[ syntax-property (read-syntax 'x (open-input-string "#[1 2]")) 'paren-shape) +(test #\{ syntax-property (read-syntax 'x (open-input-string "{1 2 3}")) 'paren-shape) +(test #\{ syntax-property (read-syntax 'x (open-input-string "#{1 2}")) 'paren-shape) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (report-errs)