branch: externals/compat
commit 2ceb91656d3e6d4dc6ad0f153ab4baf1878c374e
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Restore test
---
compat-tests.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/compat-tests.el b/compat-tests.el
index cdec96cf9d..ff8c62d47c 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -48,6 +48,11 @@
(should (equal '(1 2 3) (ensure-list '(1 2 3)))) ;; multiple element list
(should (equal '(1) (ensure-list 1)))) ;; atom
+(ert-deftest compat-always ()
+ (should (equal t (always))) ;; no arguments
+ (should (equal t (always 1))) ;; single argument
+ (should (equal t (always 1 2 3 4)))) ;; multiple arguments
+
(ert-deftest compat-hash-table-keys ()
(let ((ht (make-hash-table)))
(should (null (hash-table-keys ht)))
@@ -496,11 +501,6 @@
;; (ought nil [1 2 3] 4) ;more than
;; (expect wrong-type-argument 3 nil))
-;; (compat-deftests always
-;; (ought t) ;no arguments
-;; (ought t 1) ;single argument
-;; (ought t 1 2 3 4)) ;multiple arguments
-
;; (ert-deftest compat-insert-into-buffer ()
;; "Check if `insert-into-buffer' was implemented correctly."
;; ;; Without optional compat--arguments
