branch: externals/compat
commit a5b497e297a847cd9c3f365136fbee45f88426ab
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Remove obsolete code
---
compat-tests.el | 48 ------------------------------------------------
1 file changed, 48 deletions(-)
diff --git a/compat-tests.el b/compat-tests.el
index 8469f00b91..c229ee68b7 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -233,32 +233,6 @@
(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
-;; being compared against."
-;; (lambda (result &rest args)
-;; (let ((real-test (intern (format "%s-%04d-actual/ought" compat
compat-test-counter)))
-;; (comp-test (intern (format "%s-%04d-compat/ought" compat
compat-test-counter))))
-;; (setq compat-test-counter (1+ compat-test-counter))
-;; (macroexp-progn
-;; (list (and (fboundp name)
-;; (or (not (get compat 'compat-version))
-;; (version<= emacs-version (get compat
'compat-version)))
-;; `(ert-set-test
-;; ',real-test
-;; (make-ert-test
-;; :name ',real-test
-;; :tags '(,name)
-;; :body (lambda () (should (equal ,result (,name
,@args)))))))
-;; (and (fboundp compat)
-;; `(ert-set-test
-;; ',comp-test
-;; (make-ert-test
-;; :name ',comp-test
-;; :tags '(,name)
-;; :body (lambda () (should (equal ,result (,compat
,@args))))))))))))
-
;; (defun compat--expect (name compat)
;; "Implementation for the `expect' macro for NAME.
;; COMPAT is the name of the compatibility function the behaviour is
@@ -298,28 +272,6 @@
;; `(equal res ',error-spec)
;; `(eq (car res)
',error-spec))))))))))))))
-;; (defmacro compat-deftests (name &rest body)
-;; "Test NAME in BODY."
-;; (declare (debug (sexp &rest body))
-;; (indent 1))
-;; (let* ((compat-test-counter 0)
-;; (real-name (if (consp name) (car name) name))
-;; (compat-name (if (consp name)
-;; (cadr name)
-;; (intern (format "compat--t-%s" real-name))))
-;; (env (list
-;; (cons 'ought (compat--ought real-name compat-name))
-;; (cons 'expect (compat--expect real-name compat-name)))))
-;; (and (or (not (get compat-name 'compat-min-version))
-;; (version< (get compat-name 'compat-min-version) emacs-version))
-;; (or (not (get compat-name 'compat-max-version))
-;; (version< emacs-version (get compat-name 'compat-max-version)))
-;; (macroexpand-all
-;; (macroexp-progn body)
-;; (append env macroexpand-all-environment)))))
-
-;;
-
;; (compat-deftests string-search
;; ;; Find needle at the beginning of a haystack:
;; (ought 0 "a" "abb")
