From: Daniel Kochmański <daniel@turtleware.eu>
Date: Tue, 1 Sep 2015 14:34:25 +0000 (+0200)
Subject: tests: add regression test for #s reader
X-Git-Url: http://git.pulsar-zone.net/?a=commitdiff_plain;h=dc1abbb23cffed95a636ab93beae66586a50bc69;p=ecl.git

tests: add regression test for #s reader

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---

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)
+
+