Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 1ed1a45)
tests: add regression test for #s reader
authorDaniel Kochmański <daniel@turtleware.eu>
Tue, 1 Sep 2015 14:34:25 +0000 (16:34 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Tue, 1 Sep 2015 14:34:25 +0000 (16:34 +0200)
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
src/tests/bugs/test-ansi.lsp patch | blob | blame | history

diff --git a/src/tests/bugs/test-ansi.lsp b/src/tests/bugs/test-ansi.lsp
index 0db098e..17b59ed 100644 (file)
--- a/src/tests/bugs/test-ansi.lsp
+++ b/src/tests/bugs/test-ansi.lsp
@@ -1,10 +1,10 @@
 (in-package :cl-test)
 
-;; HyperSpec – 2.*
+\f
 
-;;;;;;;;;;;;;;;;;;;;;
-;; Readtable tests ;;
-;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;
+;; 2.* Readtable tests ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (symbol-macrolet ((lookup-table
                    '(:SYMBOL   ("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A"
@@ -90,11 +90,9 @@
 
 \f
 
-;; 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")))
 
 \f
+
+;;;;;;;;;;;;;;;;;;;;;;;
+;; 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)
+
+\f
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)