From 08aafab897fe7f5b9bcc8e7c436752761da4d8ec Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 6 Aug 2024 18:20:46 +0200 Subject: [PATCH] ; Fix tests --- test/lisp/emacs-lisp/tabulated-list-tests.el | 41 -------------------- test/lisp/obsolete/cl-tests.el | 35 ----------------- 2 files changed, 76 deletions(-) delete mode 100644 test/lisp/obsolete/cl-tests.el diff --git a/test/lisp/emacs-lisp/tabulated-list-tests.el b/test/lisp/emacs-lisp/tabulated-list-tests.el index e53268b3f14..8be2be3139e 100644 --- a/test/lisp/emacs-lisp/tabulated-list-tests.el +++ b/test/lisp/emacs-lisp/tabulated-list-tests.el @@ -130,45 +130,4 @@ (should-error (tabulated-list-sort) :type 'user-error) (should-error (tabulated-list-sort 4) :type 'user-error))) -(ert-deftest tabulated-list-groups () - (with-temp-buffer - (tabulated-list-mode) - (setq tabulated-list-groups - (reverse - (seq-group-by (lambda (b) (concat "* " (aref (cadr b) 3))) - tabulated-list--test-entries))) - (setq tabulated-list-format tabulated-list--test-format) - (setq tabulated-list-padding 7) - (tabulated-list-init-header) - (tabulated-list-print) - ;; Basic printing. - (should (string-equal - (buffer-substring-no-properties (point-min) (point-max)) - "\ -* installed - zzzz-game zzzz-game 2113 installed play zzzz in Emacs - mode mode 1128 installed A simple mode for editing Actionscript 3 files -* available - abc-mode abc-mode 944 available Major mode for editing abc music files -* obsolete - 4clojure 4clojure 1507 obsolete Open and evaluate 4clojure.com questions -")) - ;; Sort and preserve position. - (forward-line 2) - (let ((pos (thing-at-point 'line))) - (tabulated-list-next-column 2) - (tabulated-list-sort) - (should (equal (thing-at-point 'line) pos)) - (should (string-equal - (buffer-substring-no-properties (point-min) (point-max)) - "\ -* installed - mode mode 1128 installed A simple mode for editing Actionscript 3 files - zzzz-game zzzz-game 2113 installed play zzzz in Emacs -* available - abc-mode abc-mode 944 available Major mode for editing abc music files -* obsolete - 4clojure 4clojure 1507 obsolete Open and evaluate 4clojure.com questions -"))))) - ;;; tabulated-list-tests.el ends here diff --git a/test/lisp/obsolete/cl-tests.el b/test/lisp/obsolete/cl-tests.el deleted file mode 100644 index 6a798f6792b..00000000000 --- a/test/lisp/obsolete/cl-tests.el +++ /dev/null @@ -1,35 +0,0 @@ -;;; cl-tests.el --- tests for emacs-lisp/cl.el -*- lexical-binding:t -*- - -;; Copyright (C) 2018-2024 Free Software Foundation, Inc. - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see . - -;;; Commentary: - -;;; Code: - -(with-no-warnings - (require 'cl)) -(require 'ert) - -(ert-deftest labels-function-quoting () - "Test that #'foo does the right thing in `labels'." ; Bug#31792. - (with-suppressed-warnings ((obsolete labels)) - (should (eq (funcall (labels ((foo () t)) - #'foo)) - t)))) - -;;; cl-tests.el ends here -- 2.39.2