diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-04-04 09:55:03 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-04-04 09:55:03 -0400 |
| commit | e7cd4bae44585b4fc0d57fbb98f49930b945a817 (patch) | |
| tree | 9d7c363f63fd08ba43fc89e1964940dc6ac03c22 /test/lisp/edmacro-tests.el | |
| parent | 877893303bfc7ce447f4acc33f2f9c8caf809489 (diff) | |
| download | emacs-e7cd4bae44585b4fc0d57fbb98f49930b945a817.tar.gz emacs-e7cd4bae44585b4fc0d57fbb98f49930b945a817.tar.bz2 emacs-e7cd4bae44585b4fc0d57fbb98f49930b945a817.zip | |
test/lisp/edmacro-tests.el: Adjust to recent changes
Diffstat (limited to 'test/lisp/edmacro-tests.el')
| -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 @@ (require 'edmacro) (ert-deftest edmacro-test-edmacro-parse-keys () - (should (equal (edmacro-parse-keys "") "")) - (should (equal (edmacro-parse-keys "x") "x")) - (should (equal (edmacro-parse-keys "C-a") "\C-a")) + (should (equal (edmacro-parse-keys "") [])) + (should (equal (edmacro-parse-keys "x") [?x])) + (should (equal (edmacro-parse-keys "C-a") [?\C-a])) ;; comments - (should (equal (edmacro-parse-keys ";; foobar") "")) - (should (equal (edmacro-parse-keys ";;;") "")) - (should (equal (edmacro-parse-keys "; ; ;") ";;;")) - (should (equal (edmacro-parse-keys "REM foobar") "")) - (should (equal (edmacro-parse-keys "x ;; foobar") "x")) - (should (equal (edmacro-parse-keys "x REM foobar") "x")) + (should (equal (edmacro-parse-keys ";; foobar") [])) + (should (equal (edmacro-parse-keys ";;;") [])) + (should (equal (edmacro-parse-keys "; ; ;") [?\; ?\; ?\;])) + (should (equal (edmacro-parse-keys "REM foobar") [])) + (should (equal (edmacro-parse-keys "x ;; foobar") [?x])) + (should (equal (edmacro-parse-keys "x REM foobar") [?x])) (should (equal (edmacro-parse-keys "<<goto-line>>") - [134217848 103 111 116 111 45 108 105 110 101 13])) + [?\M-x ?g ?o ?t ?o ?- ?l ?i ?n ?e ?\r])) ;; repetitions - (should (equal (edmacro-parse-keys "3*x") "xxx")) - (should (equal (edmacro-parse-keys "3*C-m") "\C-m\C-m\C-m")) - (should (equal (edmacro-parse-keys "10*foo") "foofoofoofoofoofoofoofoofoofoo"))) + (should (equal (edmacro-parse-keys "3*x") [?x ?x ?x])) + (should (equal (edmacro-parse-keys "3*C-m") [?\C-m ?\C-m ?\C-m])) + (should (equal (edmacro-parse-keys "10*foo") + (apply #'vconcat (make-list 10 [?f ?o ?o]))))) ;;; edmacro-tests.el ends here |