diff options
| author | Gerd Möllmann | 2022-09-13 15:37:56 +0200 |
|---|---|---|
| committer | Gerd Möllmann | 2022-09-13 15:40:41 +0200 |
| commit | 7df898d532f922ea2a7acce4446bc35eec1da38e (patch) | |
| tree | 09910070f866b51ad3b15c90af46f15f0902417c /test | |
| parent | b0b687150b059337e60a14bf062bff509fa83283 (diff) | |
| download | emacs-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).
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/whitespace-tests.el | 10 |
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>")) |