emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/compat 7aee4b40ef 02/13: Remove duplicate ert-set-test


From: ELPA Syncer
Subject: [elpa] externals/compat 7aee4b40ef 02/13: Remove duplicate ert-set-test in compat--expect
Date: Sun, 13 Mar 2022 19:57:31 -0400 (EDT)

branch: externals/compat
commit 7aee4b40ef4379787bea3f1ae76fadfeda6765c5
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Remove duplicate ert-set-test in compat--expect
---
 compat-tests.el | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index d6105a54d3..f6d9681e3c 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -80,18 +80,16 @@ being compared against."
        (list (and (fboundp name)
                   `(ert-set-test
                     ',real-test
-                    (ert-set-test
-                     ',real-test
-                     (make-ert-test
-                      :name ',real-test
-                      :tags '(,name)
-                      :body (lambda ()
-                              (should
-                               (let ((res (should-error (,name ,@args) :type 
',error-type)))
-                                 (should
-                                  ,(if (consp error-spec)
-                                       `(equal res ',error-spec)
-                                     `(eq (car res) ',error-spec))))))))))
+                    (make-ert-test
+                     :name ',real-test
+                     :tags '(,name)
+                     :body (lambda ()
+                             (should
+                              (let ((res (should-error (,name ,@args) :type 
',error-type)))
+                                (should
+                                 ,(if (consp error-spec)
+                                      `(equal res ',error-spec)
+                                    `(eq (car res) ',error-spec)))))))))
              (and (fboundp compat)
                   `(ert-set-test
                     ',comp-test



reply via email to

[Prev in Thread] Current Thread [Next in Thread]