; Fix tabulated-list-mode tests after revert

* test/lisp/emacs-lisp/tabulated-list-tests.el
(tabulated-list-print, tabulated-list-sort): Fix tests.

diff --git a/test/lisp/emacs-lisp/tabulated-list-tests.el b/test/lisp/emacs-lisp/tabulated-list-tests.el
index 0074b10170f7fcd933134702b81eecd53040ee68..3ce4a63f4f06d25a2bd65dabb8ed23f172b544d9 100644 (file)
--- a/test/lisp/emacs-lisp/tabulated-list-tests.el
+++ b/test/lisp/emacs-lisp/tabulated-list-tests.el
@@ -55,28 +55,37 @@
 (ert-deftest tabulated-list-print ()
   (tabulated-list--test-with-buffer
    ;; Basic printing.
-   (should (string= (buffer-substring-no-properties (point-min) (point-max))
-                  "       zzzz-game          zzzz-game          2113         installed           play zzzz in Emacs
-       4clojure          4clojure          1507         obsolete           Open and evaluate 4clojure.com questions
-       abc-mode          abc-mode          944         available           Major mode for editing abc music files
-       mode          mode          1128         installed           A simple mode for editing Actionscript 3 files\n"))
+   (should (string-equal
+            (buffer-substring-no-properties (point-min) (point-max))
+            "\
+       zzzz-game  zzzz-game  2113      installed   play zzzz in Emacs
+       4clojure   4clojure   1507      obsolete    Open and evaluate 4clojure.com questions
+       abc-mode   abc-mode   944       available   Major mode for editing abc music files
+       mode       mode       1128      installed   A simple mode for editing Actionscript 3 files
+"))
    ;; Preserve position.
    (forward-line 3)
    (let ((pos (thing-at-point 'line)))
      (pop tabulated-list-entries)
      (tabulated-list-print t)
      (should (equal (thing-at-point 'line) pos))
-     (should (string= (buffer-substring-no-properties (point-min) (point-max))
-                      "       4clojure          4clojure          1507         obsolete           Open and evaluate 4clojure.com questions
-       abc-mode          abc-mode          944         available           Major mode for editing abc music files
-       mode          mode          1128         installed           A simple mode for editing Actionscript 3 files\n"))
+     (should (string-equal
+              (buffer-substring-no-properties (point-min) (point-max))
+              "\
+       4clojure   4clojure   1507      obsolete    Open and evaluate 4clojure.com questions
+       abc-mode   abc-mode   944       available   Major mode for editing abc music files
+       mode       mode       1128      installed   A simple mode for editing Actionscript 3 files
+"))
      ;; Check the UPDATE argument
      (pop tabulated-list-entries)
      (setf (cdr (car tabulated-list-entries)) (list ["x" "x" "944" "available" " XX"]))
      (tabulated-list-print t t)
-     (should (string= (buffer-substring-no-properties (point-min) (point-max))
-                      "       x          x          944         available           XX
-       mode          mode          1128         installed           A simple mode for editing Actionscript 3 files\n"))
+     (should (string-equal
+              (buffer-substring-no-properties (point-min) (point-max))
+              "\
+       x          x          944       available   XX
+       mode       mode       1128      installed   A simple mode for editing Actionscript 3 files
+"))
      (should (equal (thing-at-point 'line) pos)))))
 
 (ert-deftest tabulated-list-sort ()
@@ -86,11 +95,14 @@
    (skip-chars-forward "[:blank:]")
    (tabulated-list-sort)
    (let ((text (buffer-substring-no-properties (point-min) (point-max))))
-     (should (string= text
-                      "       4clojure          4clojure          1507         obsolete           Open and evaluate 4clojure.com questions
-       abc-mode          abc-mode          944         available           Major mode for editing abc music files
-       mode          mode          1128         installed           A simple mode for editing Actionscript 3 files
-       zzzz-game          zzzz-game          2113         installed           play zzzz in Emacs\n"))
+     (should (string-equal
+              text
+              "\
+       4clojure   4clojure   1507      obsolete    Open and evaluate 4clojure.com questions
+       abc-mode   abc-mode   944       available   Major mode for editing abc music files
+       mode       mode       1128      installed   A simple mode for editing Actionscript 3 files
+       zzzz-game  zzzz-game  2113      installed   play zzzz in Emacs
+"))
 
      (skip-chars-forward "^[:blank:]")
      (skip-chars-forward "[:blank:]")
@@ -101,11 +113,14 @@
      (should (string= text (buffer-substring-no-properties (point-min) (point-max))))
      ;; Invert.
      (tabulated-list-sort 1)
-     (should (string= (buffer-substring-no-properties (point-min) (point-max))
-                      "       zzzz-game          zzzz-game          2113         installed           play zzzz in Emacs
-       mode          mode          1128         installed           A simple mode for editing Actionscript 3 files
-       abc-mode          abc-mode          944         available           Major mode for editing abc music files
-       4clojure          4clojure          1507         obsolete           Open and evaluate 4clojure.com questions\n"))
+     (should (string-equal
+              (buffer-substring-no-properties (point-min) (point-max))
+              "\
+       zzzz-game  zzzz-game  2113      installed   play zzzz in Emacs
+       mode       mode       1128      installed   A simple mode for editing Actionscript 3 files
+       abc-mode   abc-mode   944       available   Major mode for editing abc music files
+       4clojure   4clojure   1507      obsolete    Open and evaluate 4clojure.com questions
+"))
      ;; Again
      (tabulated-list-sort 1)
      (should (string= text (buffer-substring-no-properties (point-min) (point-max)))))