From: Gerd Möllmann <gerd@gnu.org>
Date: Tue, 13 Sep 2022 13:37:56 +0000 (+0200)
Subject: Fix whitespace-tests on macOS
X-Git-Tag: emacs-29.0.90~1856^2~560
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7df898d532f922ea2a7acce4446bc35eec1da38e;p=emacs.git

Fix whitespace-tests on macOS

* test/lisp/whitespace-tests.el (whitespace-tests--empty-bob):
(whitespace-tests--empty-eob): Use C-a/C-e instead of
<home>/<end> (bug#57763).
---

diff --git a/test/lisp/whitespace-tests.el b/test/lisp/whitespace-tests.el
index 792e157ec08..97c30c4d627 100644
--- a/test/lisp/whitespace-tests.el
+++ b/test/lisp/whitespace-tests.el
@@ -149,7 +149,7 @@ buffer's content."
                                       "»\t\n"
                                       "\n"
                                       " x"))
-    (execute-kbd-macro (kbd "<up> <home>"))
+    (execute-kbd-macro (kbd "<up> C-a"))
     (should (equal (point) 1))
     (should (whitespace-tests--faceup " \n"
                                       "\t\n"
@@ -187,7 +187,7 @@ buffer's content."
                                       "» x"))
 
     ;; Inserting content on line 2 should un-highlight lines 2 and 3.
-    (execute-kbd-macro (kbd "<up> <up> <end>"))
+    (execute-kbd-macro (kbd "<up> <up> C-e"))
     (should (equal (line-number-at-pos) 2))
     (should (equal (- (point) (line-beginning-position)) 1))
     (execute-kbd-macro (kbd "y <down> <down>"))
@@ -199,7 +199,7 @@ buffer's content."
 
     ;; Removing the content on line 2 should re-highlight lines 2 and
     ;; 3.
-    (execute-kbd-macro (kbd "<up> <up> <end>"))
+    (execute-kbd-macro (kbd "<up> <up> C-e"))
     (should (equal (line-number-at-pos) 2))
     (should (equal (- (point) (line-beginning-position)) 2))
     (execute-kbd-macro (kbd "DEL <down> <down>"))
@@ -288,7 +288,7 @@ buffer's content."
                                       " »"))
 
     ;; Inserting content on line 3 should un-highlight lines 2 and 3.
-    (execute-kbd-macro (kbd "<down> <down> <home>"))
+    (execute-kbd-macro (kbd "<down> <down> C-a"))
     (should (equal (line-number-at-pos) 3))
     (should (equal (- (point) (line-beginning-position)) 0))
     (execute-kbd-macro (kbd "y <up> <up>"))
@@ -300,7 +300,7 @@ buffer's content."
 
     ;; Removing the content on line 3 should re-highlight lines 2 and
     ;; 3.
-    (execute-kbd-macro (kbd "<down> <down> <home>"))
+    (execute-kbd-macro (kbd "<down> <down> C-a"))
     (should (equal (line-number-at-pos) 3))
     (should (equal (- (point) (line-beginning-position)) 0))
     (execute-kbd-macro (kbd "<deletechar> <up> <up>"))