master c761ded251: Make some recently added tests actually run

[Lars Ingebrigtsen]

branch: master
commit c761ded251f281236e835df2d23ba5669499abf6
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make some recently added tests actually run
---
 test/lisp/emacs-lisp/subr-x-tests.el | 34 ++++++++++++++++++++++++++++++++++
 test/lisp/sort-tests.el              | 33 ---------------------------------
 test/lisp/subr-tests.el              |  5 +++--
 3 files changed, 37 insertions(+), 35 deletions(-)

diff --git a/test/lisp/emacs-lisp/subr-x-tests.el 
b/test/lisp/emacs-lisp/subr-x-tests.el
index d38a8e2352..dca7df6309 100644
--- a/test/lisp/emacs-lisp/subr-x-tests.el
+++ b/test/lisp/emacs-lisp/subr-x-tests.el
@@ -712,5 +712,39 @@
           (loop (cdr rest) (+ sum (car rest))))))
     (should (equal (mapcar #'funcall funs) '(43 1 0)))))
 
+(ert-deftest test-with-buffer-unmodified-if-unchanged ()
+  (with-temp-buffer
+    (with-buffer-unmodified-if-unchanged
+      (insert "t"))
+    (should (buffer-modified-p)))
+
+  (with-temp-buffer
+    (with-buffer-unmodified-if-unchanged
+      (insert "t")
+      (delete-char -1))
+    (should (not (buffer-modified-p))))
+
+  ;; Shouldn't error.
+  (should
+   (with-temp-buffer
+     (let ((inner (current-buffer)))
+       (with-buffer-unmodified-if-unchanged
+         (insert "t")
+         (delete-char -1)
+         (kill-buffer (current-buffer))
+         t))))
+
+  (with-temp-buffer
+    (let ((outer (current-buffer)))
+      (with-temp-buffer
+        (let ((inner (current-buffer)))
+        (with-buffer-unmodified-if-unchanged
+          (insert "t")
+          (delete-char -1)
+          (set-buffer outer))
+        (with-current-buffer inner
+          (should (not (buffer-modified-p)))))))))
+
+
 (provide 'subr-x-tests)
 ;;; subr-x-tests.el ends here
diff --git a/test/lisp/sort-tests.el b/test/lisp/sort-tests.el
index 5fcae308d6..7f49cc38d1 100644
--- a/test/lisp/sort-tests.el
+++ b/test/lisp/sort-tests.el
@@ -106,38 +106,5 @@ reversing the sort."
                            :generator (lambda (n) (concat 
(sort-tests-random-word n) " " (sort-tests-random-word n)))
                            :less-pred (lambda (a b) (string< (field-n a 2) 
(field-n b 2))))))
 
-(defun test-with-buffer-unmodified-if-unchanged ()
-  (with-temp-buffer
-    (with-buffer-unmodified-if-unchanged
-      (insert "t"))
-    (should (buffer-modified-p)))
-
-  (with-temp-buffer
-    (with-buffer-unmodified-if-unchanged
-      (insert "t")
-      (delete-char -1))
-    (should (not (buffer-modified-p))))
-
-  ;; Shouldn't error.
-  (should
-   (with-temp-buffer
-     (let ((inner (current-buffer)))
-       (with-buffer-unmodified-if-unchanged
-         (insert "t")
-         (delete-char -1)
-         (kill-buffer (current-buffer))
-         t))))
-
-  (with-temp-buffer
-    (let ((outer (current-buffer)))
-      (with-temp-buffer
-        (let ((inner (current-buffer)))
-        (with-buffer-unmodified-if-unchanged
-          (insert "t")
-          (delete-char -1)
-          (set-buffer outer))
-        (with-current-buffer inner
-          (should (not (buffer-modified-p)))))))))
-
 (provide 'sort-tests)
 ;;; sort-tests.el ends here
diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index a4f531ea4e..3725f180f3 100644
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -1053,9 +1053,10 @@ final or penultimate step during initialization."))
   (should (equal (string-lines "foo\n\n\nbar" t t)
                  '("foo\n" "bar"))))
 
-(defun test-keymap-parse-macros ()
+(ert-deftest test-keymap-parse-macros ()
   (should (equal (key-parse "C-x ( C-d C-x )") [24 40 4 24 41]))
-  (should (equal (kbd "C-x ( C-d C-x )") "")))
+  (should (equal (kbd "C-x ( C-d C-x )") ""))
+  (should (equal (kbd "C-x ( C-x )") "")))
 
 (provide 'subr-tests)
 ;;; subr-tests.el ends here