diff options
| author | Stefan Monnier | 2022-04-04 09:55:03 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2022-04-04 09:55:03 -0400 |
| commit | e7cd4bae44585b4fc0d57fbb98f49930b945a817 (patch) | |
| tree | 9d7c363f63fd08ba43fc89e1964940dc6ac03c22 | |
| parent | 877893303bfc7ce447f4acc33f2f9c8caf809489 (diff) | |
| download | emacs-e7cd4bae44585b4fc0d57fbb98f49930b945a817.tar.gz emacs-e7cd4bae44585b4fc0d57fbb98f49930b945a817.zip | |
test/lisp/edmacro-tests.el: Adjust to recent changes
| -rw-r--r-- | test/lisp/edmacro-tests.el | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/test/lisp/edmacro-tests.el b/test/lisp/edmacro-tests.el index b5809ad0b77..e386342f6ee 100644 --- a/test/lisp/edmacro-tests.el +++ b/test/lisp/edmacro-tests.el | |||
| @@ -25,23 +25,24 @@ | |||
| 25 | (require 'edmacro) | 25 | (require 'edmacro) |
| 26 | 26 | ||
| 27 | (ert-deftest edmacro-test-edmacro-parse-keys () | 27 | (ert-deftest edmacro-test-edmacro-parse-keys () |
| 28 | (should (equal (edmacro-parse-keys "") "")) | 28 | (should (equal (edmacro-parse-keys "") [])) |
| 29 | (should (equal (edmacro-parse-keys "x") "x")) | 29 | (should (equal (edmacro-parse-keys "x") [?x])) |
| 30 | (should (equal (edmacro-parse-keys "C-a") "\C-a")) | 30 | (should (equal (edmacro-parse-keys "C-a") [?\C-a])) |
| 31 | 31 | ||
| 32 | ;; comments | 32 | ;; comments |
| 33 | (should (equal (edmacro-parse-keys ";; foobar") "")) | 33 | (should (equal (edmacro-parse-keys ";; foobar") [])) |
| 34 | (should (equal (edmacro-parse-keys ";;;") "")) | 34 | (should (equal (edmacro-parse-keys ";;;") [])) |
| 35 | (should (equal (edmacro-parse-keys "; ; ;") ";;;")) | 35 | (should (equal (edmacro-parse-keys "; ; ;") [?\; ?\; ?\;])) |
| 36 | (should (equal (edmacro-parse-keys "REM foobar") "")) | 36 | (should (equal (edmacro-parse-keys "REM foobar") [])) |
| 37 | (should (equal (edmacro-parse-keys "x ;; foobar") "x")) | 37 | (should (equal (edmacro-parse-keys "x ;; foobar") [?x])) |
| 38 | (should (equal (edmacro-parse-keys "x REM foobar") "x")) | 38 | (should (equal (edmacro-parse-keys "x REM foobar") [?x])) |
| 39 | (should (equal (edmacro-parse-keys "<<goto-line>>") | 39 | (should (equal (edmacro-parse-keys "<<goto-line>>") |
| 40 | [134217848 103 111 116 111 45 108 105 110 101 13])) | 40 | [?\M-x ?g ?o ?t ?o ?- ?l ?i ?n ?e ?\r])) |
| 41 | 41 | ||
| 42 | ;; repetitions | 42 | ;; repetitions |
| 43 | (should (equal (edmacro-parse-keys "3*x") "xxx")) | 43 | (should (equal (edmacro-parse-keys "3*x") [?x ?x ?x])) |
| 44 | (should (equal (edmacro-parse-keys "3*C-m") "\C-m\C-m\C-m")) | 44 | (should (equal (edmacro-parse-keys "3*C-m") [?\C-m ?\C-m ?\C-m])) |
| 45 | (should (equal (edmacro-parse-keys "10*foo") "foofoofoofoofoofoofoofoofoofoo"))) | 45 | (should (equal (edmacro-parse-keys "10*foo") |
| 46 | (apply #'vconcat (make-list 10 [?f ?o ?o]))))) | ||
| 46 | 47 | ||
| 47 | ;;; edmacro-tests.el ends here | 48 | ;;; edmacro-tests.el ends here |