[elpa] externals/compat 2ceb91656d 09/14: Restore test

[ELPA Syncer]

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

    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