branch: externals/compat
commit 711037fa8db1003a2ce86e6553c938f6bedc4ea2
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Restore test
---
compat-tests.el | 57 +++++++++++++++++++++++++++++----------------------------
1 file changed, 29 insertions(+), 28 deletions(-)
diff --git a/compat-tests.el b/compat-tests.el
index e3d6b8d2bb..9767fe3d71 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -31,6 +31,7 @@
(require 'ert)
(require 'compat)
+(require 'subr-x)
(setq ert-quiet t)
(ert-deftest compat-call ()
@@ -41,6 +42,34 @@
(should (eq (compat-call plist-get list "first" #'string=) 10))
(should (eq (compat-call plist-get list "second" #'string=) 2))))
+(ert-deftest compat-hash-table-keys ()
+ (let ((ht (make-hash-table)))
+ (should (null (hash-table-keys ht)))
+ (puthash 1 'one ht)
+ (should (equal '(1) (hash-table-keys ht)))
+ (puthash 1 'one ht)
+ (should (equal '(1) (hash-table-keys ht)))
+ (puthash 2 'two ht)
+ (should (memq 1 (hash-table-keys ht)))
+ (should (memq 2 (hash-table-keys ht)))
+ (should (= 2 (length (hash-table-keys ht))))
+ (remhash 1 ht)
+ (should (equal '(2) (hash-table-keys ht)))))
+
+(ert-deftest compat-hash-table-values ()
+ (let ((ht (make-hash-table)))
+ (should (null (hash-table-values ht)))
+ (puthash 1 'one ht)
+ (should (equal '(one) (hash-table-values ht)))
+ (puthash 1 'one ht)
+ (should (equal '(one) (hash-table-values ht)))
+ (puthash 2 'two ht)
+ (should (memq 'one (hash-table-values ht)))
+ (should (memq 'two (hash-table-values ht)))
+ (should (= 2 (length (hash-table-values ht))))
+ (remhash 1 ht)
+ (should (equal '(two) (hash-table-values ht)))))
+
;; (defvar compat-test-counter)
;; (defun compat--ought (name compat)
@@ -1287,34 +1316,6 @@
;; (ought 'foo (list a-map b-map) "x")
;; (ought 'bar (list b-map a-map) "x")))
-;; (ert-deftest compat-hash-table-keys ()
-;; (let ((ht (make-hash-table)))
-;; (should (null (compat--t-hash-table-keys ht)))
-;; (puthash 1 'one ht)
-;; (should (equal '(1) (compat--t-hash-table-keys ht)))
-;; (puthash 1 'one ht)
-;; (should (equal '(1) (compat--t-hash-table-keys ht)))
-;; (puthash 2 'two ht)
-;; (should (memq 1 (compat--t-hash-table-keys ht)))
-;; (should (memq 2 (compat--t-hash-table-keys ht)))
-;; (should (= 2 (length (compat--t-hash-table-keys ht))))
-;; (remhash 1 ht)
-;; (should (equal '(2) (compat--t-hash-table-keys ht)))))
-
-;; (ert-deftest compat-hash-table-values ()
-;; (let ((ht (make-hash-table)))
-;; (should (null (compat--t-hash-table-values ht)))
-;; (puthash 1 'one ht)
-;; (should (equal '(one) (compat--t-hash-table-values ht)))
-;; (puthash 1 'one ht)
-;; (should (equal '(one) (compat--t-hash-table-values ht)))
-;; (puthash 2 'two ht)
-;; (should (memq 'one (compat--t-hash-table-values ht)))
-;; (should (memq 'two (compat--t-hash-table-values ht)))
-;; (should (= 2 (length (compat--t-hash-table-values ht))))
-;; (remhash 1 ht)
-;; (should (equal '(two) (compat--t-hash-table-values ht)))))
-
;; (compat-deftests string-empty-p
;; (ought t "")
;; (ought nil " ")
