[elpa] externals/compat 1b01c413ca 05/14: Restore tests

[ELPA Syncer]

branch: externals/compat
commit 1b01c413cab827c325e6103c1ba6ba7934c99ba3
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Restore tests
---
 compat-tests.el | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 491fb09908..d86676f1ca 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -157,6 +157,24 @@
     (should (equal (compat-alist-get "one" alist-2 nil nil #'string=)
                    "eins"))))
 
+(ert-deftest compat-json-parse-string ()
+  "Check if `compat--t-json-parse-string' was implemented properly."
+  (let ((input "{\"key\":[\"abc\", 2], \"yek\": null}"))
+    (let ((obj (json-parse-string input :object-type 'alist)))
+      (should (equal (cdr (assq 'key obj)) ["abc" 2]))
+      (should (equal (cdr (assq 'yek obj)) :null)))
+    (let ((obj (json-parse-string input :object-type 'plist)))
+      (should (equal (plist-get obj :key) ["abc" 2]))
+      (should (equal (plist-get obj :yek) :null)))
+    (let ((obj (json-parse-string input)))
+      (should (equal (gethash "key" obj) ["abc" 2]))
+      (should (equal (gethash "yek" obj) :null)))))
+
+(ert-deftest compat-json-insert ()
+  (with-temp-buffer
+    (json-insert '((:key . ["abc" 2]) (yek . t)))
+    (should (equal (buffer-string) "{\":key\":[\"abc\",2],\"yek\":true}"))))
+
 ;; (defun compat--ought (name compat)
 ;;   "Implementation for the `ought' macro for NAME.
 ;; COMPAT is the name of the compatibility function the behaviour is
@@ -1236,24 +1254,6 @@
 ;;   (ought 'foo "null" :null-object 'foo)
 ;;   (ought ["false" t] "[false, true]" :false-object "false"))
 
-;; (ert-deftest compat-json-parse-string ()
-;;   "Check if `compat--t-json-parse-string' was implemented properly."
-;;   (let ((input "{\"key\":[\"abc\", 2], \"yek\": null}"))
-;;     (let ((obj (json-parse-string input :object-type 'alist)))
-;;       (should (equal (cdr (assq 'key obj)) ["abc" 2]))
-;;       (should (equal (cdr (assq 'yek obj)) :null)))
-;;     (let ((obj (json-parse-string input :object-type 'plist)))
-;;       (should (equal (plist-get obj :key) ["abc" 2]))
-;;       (should (equal (plist-get obj :yek) :null)))
-;;     (let ((obj (json-parse-string input)))
-;;       (should (equal (gethash "key" obj) ["abc" 2]))
-;;       (should (equal (gethash "yek" obj) :null)))))
-
-;; (ert-deftest compat-json-insert ()
-;;   (with-temp-buffer
-;;     (compat--t-json-insert '((:key . ["abc" 2]) (yek . t)))
-;;     (should (equal (buffer-string) "{\":key\":[\"abc\",2],\"yek\":true}"))))
-
 ;; (ert-deftest compat-json-serialize ()
 ;;   "Check if `json-serialize' was implemented properly."
 ;;   (let ((input-1 '((:key . ["abc" 2]) (yek . t)))