[nongnu] elpa/parseedn 0ffab01927 12/32: Add test to cover the printing of hash-maps

[ELPA Syncer]

branch: elpa/parseedn
commit 0ffab0192795df96520ebacba266524b3dc012aa
Author: Ákos Kiss <ak@coram.pub>
Commit: Ákos Kiss <ak@coram.pub>

    Add test to cover the printing of hash-maps
---
 test/parseedn-test.el | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/test/parseedn-test.el b/test/parseedn-test.el
index d9c3ce79d3..9ddbdb4409 100644
--- a/test/parseedn-test.el
+++ b/test/parseedn-test.el
@@ -37,7 +37,19 @@
   (should (equal (parseedn-print-str 100) "100"))
   (should (equal (parseedn-print-str 1.2) "1.2"))
   (should (equal (parseedn-print-str [1 2 3]) "[1 2 3]"))
-  (should (equal (parseedn-print-str t) "true")))
+  (should (equal (parseedn-print-str t) "true"))
+  (should (listp (member (parseedn-print-str
+                          (let ((ht (make-hash-table)))
+                            (puthash :a 1 ht)
+                            (puthash :b 2 ht)
+                            (puthash :c 3 ht)
+                            ht))
+                         '("{:a 1, :b 2, :c 3}"
+                           "{:a 1, :c 3, :b 2}"
+                           "{:b 2, :a 1, :c 3}"
+                           "{:b 2, :c 3, :a 1}"
+                           "{:c 3, :a 1, :b 2}"
+                           "{:c 3, :b 2, :a 1}")))))
 
 (ert-deftest parseedn-read-test ()
   (should (equal (parseedn-read-str "true") t)))