From dc1abbb23cffed95a636ab93beae66586a50bc69 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Daniel=20Kochma=C5=84ski?= Date: Tue, 1 Sep 2015 16:34:25 +0200 Subject: [PATCH] tests: add regression test for #s reader MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Signed-off-by: Daniel Kochmański --- src/tests/bugs/test-ansi.lsp | 32 +++++++++++++++++++++++--------- 1 file changed, 23 insertions(+), 9 deletions(-) diff --git a/src/tests/bugs/test-ansi.lsp b/src/tests/bugs/test-ansi.lsp index 0db098e..17b59ed 100644 --- a/src/tests/bugs/test-ansi.lsp +++ b/src/tests/bugs/test-ansi.lsp @@ -1,10 +1,10 @@ (in-package :cl-test) -;; HyperSpec – 2.* + -;;;;;;;;;;;;;;;;;;;;; -;; Readtable tests ;; -;;;;;;;;;;;;;;;;;;;;; +;;;;;;;;;;;;;;;;;;;;;;;;; +;; 2.* Readtable tests ;; +;;;;;;;;;;;;;;;;;;;;;;;;; (symbol-macrolet ((lookup-table '(:SYMBOL ("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A" @@ -90,11 +90,9 @@ -;; HyperSpec – 19.* - -;;;;;;;;;;;;;;;;;;;; -;; Pathname tests ;; -;;;;;;;;;;;;;;;;;;;; +;;;;;;;;;;;;;;;;;;;;;;;;; +;; 19.* Pathname tests ;; +;;;;;;;;;;;;;;;;;;;;;;;;; ;; Issue #103 ;; logical-pathname-translations not translating ;; https://gitlab.com/embeddable-common-lisp/ecl/issues/103 @@ -107,3 +105,19 @@ (list (namestring #P"/tmp/prog/documentation.lisp"))) + +;;;;;;;;;;;;;;;;;;;;;;; +;; 23.* Reader tests ;; +;;;;;;;;;;;;;;;;;;;;;;; + +(defstruct sharp-s-reader.1.example-struct a) + +(deftest test-ansi.reader.sharp-s-reader.1 + (prog1 + (signals-error + (read-from-string + "(#1=\"Hello\" #S(sharp-s-reader.1.example-struct :A #1#))") + program-error)) + nil) + + -- 2.9.0