[nongnu] elpa/parseclj 496c965edc 074/185: Make t print as true - thanks @martinklepsch

[ELPA Syncer]

branch: elpa/parseclj
commit 496c965edc49d622560dc2f7ead464c6ab91bd58
Author: Arne Brasseur <arne@arnebrasseur.net>
Commit: Arne Brasseur <arne@arnebrasseur.net>

    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