aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Möllmann2022-09-13 15:37:56 +0200
committerGerd Möllmann2022-09-13 15:40:41 +0200
commit7df898d532f922ea2a7acce4446bc35eec1da38e (patch)
tree09910070f866b51ad3b15c90af46f15f0902417c
parentb0b687150b059337e60a14bf062bff509fa83283 (diff)
downloademacs-7df898d532f922ea2a7acce4446bc35eec1da38e.tar.gz
emacs-7df898d532f922ea2a7acce4446bc35eec1da38e.zip
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).
-rw-r--r--test/lisp/whitespace-tests.el10
1 files changed, 5 insertions, 5 deletions
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."
149 "»\t\n" 149 "»\t\n"
150 "\n" 150 "\n"
151 " x")) 151 " x"))
152 (execute-kbd-macro (kbd "<up> <home>")) 152 (execute-kbd-macro (kbd "<up> C-a"))
153 (should (equal (point) 1)) 153 (should (equal (point) 1))
154 (should (whitespace-tests--faceup " \n" 154 (should (whitespace-tests--faceup " \n"
155 "\t\n" 155 "\t\n"
@@ -187,7 +187,7 @@ buffer's content."
187 "» x")) 187 "» x"))
188 188
189 ;; Inserting content on line 2 should un-highlight lines 2 and 3. 189 ;; Inserting content on line 2 should un-highlight lines 2 and 3.
190 (execute-kbd-macro (kbd "<up> <up> <end>")) 190 (execute-kbd-macro (kbd "<up> <up> C-e"))
191 (should (equal (line-number-at-pos) 2)) 191 (should (equal (line-number-at-pos) 2))
192 (should (equal (- (point) (line-beginning-position)) 1)) 192 (should (equal (- (point) (line-beginning-position)) 1))
193 (execute-kbd-macro (kbd "y <down> <down>")) 193 (execute-kbd-macro (kbd "y <down> <down>"))
@@ -199,7 +199,7 @@ buffer's content."
199 199
200 ;; Removing the content on line 2 should re-highlight lines 2 and 200 ;; Removing the content on line 2 should re-highlight lines 2 and
201 ;; 3. 201 ;; 3.
202 (execute-kbd-macro (kbd "<up> <up> <end>")) 202 (execute-kbd-macro (kbd "<up> <up> C-e"))
203 (should (equal (line-number-at-pos) 2)) 203 (should (equal (line-number-at-pos) 2))
204 (should (equal (- (point) (line-beginning-position)) 2)) 204 (should (equal (- (point) (line-beginning-position)) 2))
205 (execute-kbd-macro (kbd "DEL <down> <down>")) 205 (execute-kbd-macro (kbd "DEL <down> <down>"))
@@ -288,7 +288,7 @@ buffer's content."
288 " »")) 288 " »"))
289 289
290 ;; Inserting content on line 3 should un-highlight lines 2 and 3. 290 ;; Inserting content on line 3 should un-highlight lines 2 and 3.
291 (execute-kbd-macro (kbd "<down> <down> <home>")) 291 (execute-kbd-macro (kbd "<down> <down> C-a"))
292 (should (equal (line-number-at-pos) 3)) 292 (should (equal (line-number-at-pos) 3))
293 (should (equal (- (point) (line-beginning-position)) 0)) 293 (should (equal (- (point) (line-beginning-position)) 0))
294 (execute-kbd-macro (kbd "y <up> <up>")) 294 (execute-kbd-macro (kbd "y <up> <up>"))
@@ -300,7 +300,7 @@ buffer's content."
300 300
301 ;; Removing the content on line 3 should re-highlight lines 2 and 301 ;; Removing the content on line 3 should re-highlight lines 2 and
302 ;; 3. 302 ;; 3.
303 (execute-kbd-macro (kbd "<down> <down> <home>")) 303 (execute-kbd-macro (kbd "<down> <down> C-a"))
304 (should (equal (line-number-at-pos) 3)) 304 (should (equal (line-number-at-pos) 3))
305 (should (equal (- (point) (line-beginning-position)) 0)) 305 (should (equal (- (point) (line-beginning-position)) 0))
306 (execute-kbd-macro (kbd "<deletechar> <up> <up>")) 306 (execute-kbd-macro (kbd "<deletechar> <up> <up>"))