branch: elpa/parseclj
commit 496c965edc49d622560dc2f7ead464c6ab91bd58
Author: Arne Brasseur <[email protected]>
Commit: Arne Brasseur <[email protected]>
Make t print as true - thanks @martinklepsch
---
clj-edn.el | 6 +++---
test/clj-edn-test.el | 6 +++++-
test/clj-parse-test-data.el | 7 ++++++-
3 files changed, 14 insertions(+), 5 deletions(-)
diff --git a/clj-edn.el b/clj-edn.el
index 0a147d31e7..d509c6c4b0 100644
--- a/clj-edn.el
+++ b/clj-edn.el
@@ -118,12 +118,12 @@ handlers as an optional argument to the reader
functions.")
(t (char-to-string char)))))
(insert "\""))
- ((symbolp datum)
- (insert (symbol-name datum)))
-
((eq t datum)
(insert "true"))
+ ((symbolp datum)
+ (insert (symbol-name datum)))
+
((vectorp datum) (insert "[") (clj-edn-print-seq datum) (insert "]"))
((consp datum)
diff --git a/test/clj-edn-test.el b/test/clj-edn-test.el
index 76e8ac54b7..310b1324fa 100644
--- a/test/clj-edn-test.el
+++ b/test/clj-edn-test.el
@@ -36,7 +36,11 @@
(should (equal (clj-edn-print-str nil) "nil"))
(should (equal (clj-edn-print-str 100) "100"))
(should (equal (clj-edn-print-str 1.2) "1.2"))
- (should (equal (clj-edn-print-str [1 2 3]) "[1 2 3]")))
+ (should (equal (clj-edn-print-str [1 2 3]) "[1 2 3]"))
+ (should (equal (clj-edn-print-str t) "true")))
+
+(ert-deftest clj-edn-read-test ()
+ (should (equal (clj-edn-read-str "true") t)))
(defmacro define-clj-edn-read-tests ()
`(progn
diff --git a/test/clj-parse-test-data.el b/test/clj-parse-test-data.el
index 4049514caf..d6f5645d9d 100644
--- a/test/clj-parse-test-data.el
+++ b/test/clj-parse-test-data.el
@@ -288,6 +288,11 @@
(:children . (((:node-type . :number)
(:position . 11)
(:form . "1")
- (:value .
1))))))))))))))
+ (:value . 1))))))))))))
+
+ "booleans"
+ (a-list
+ :source "[nil true false]"
+ :edn '([nil t nil]))))
;;; clj-parse-test-data.el ends here
