Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 2c001cc)
Test for SF bug #276.
authorPhilipp Marek <philipp@marek.priv.at>
Sun, 23 Feb 2014 10:24:24 +0000 (11:24 +0100)
committerPhilipp Marek <philipp@marek.priv.at>
Sun, 23 Feb 2014 10:24:24 +0000 (11:24 +0100)
src/tests/bugs/doit.lsp patch | blob | blame | history
src/tests/bugs/sf276--write-hash-readably.lsp [new file with mode: 0644] patch | blob

diff --git a/src/tests/bugs/doit.lsp b/src/tests/bugs/doit.lsp
index f120f15..cbbbb21 100644 (file)
--- a/src/tests/bugs/doit.lsp
+++ b/src/tests/bugs/doit.lsp
@@ -29,6 +29,7 @@
 (load "../ansi-tests/universe.lsp")
 (load "../ansi-tests/ansi-aux.lsp")
 
+(load "sf276--write-hash-readably.lsp")
 (load "cl-001.lsp")
 
 (load "int-001.lsp")
diff --git a/src/tests/bugs/sf276--write-hash-readably.lsp b/src/tests/bugs/sf276--write-hash-readably.lsp
new file mode 100644 (file)
index 0000000..f406dd9
--- /dev/null
+++ b/src/tests/bugs/sf276--write-hash-readably.lsp
@@ -0,0 +1,13 @@
+; https://sourceforge.net/p/ecls/bugs/276/
+
+
+(print 
+  (write-to-string (make-hash-table)
+                   :readably t))
+
+(deftest sf-276-write-hash-readable
+         (hash-table-count
+         (read-from-string 
+           (write-to-string (make-hash-table)
+                            :readably t)))
+         0)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)