Make some recently added tests actually run

diff --git a/test/lisp/emacs-lisp/subr-x-tests.el b/test/lisp/emacs-lisp/subr-x-tests.el
index d38a8e2352bbefe2e27d937f43d9f83679b890c8..dca7df6309867a81100a84e012424bf71f687a40 100644 (file)
--- 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 5fcae308d6af7e460f2ebfe35e86e2fd92fe3411..7f49cc38d1b29ade5f697e63c00385b2d7d47d6b 100644 (file)
--- 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 a4f531ea4e63b84d82b40d09a3d92674f950bea2..3725f180f3ae73a3158f073f968e827555db36c6 100644 (file)
--- 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 )") "\ 4")))
+  (should (equal (kbd "C-x ( C-d C-x )") "\ 4"))
+  (should (equal (kbd "C-x ( C-x )") "")))
 
 (provide 'subr-tests)
 ;;; subr-tests.el ends here