[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e7cd4bae44: test/lisp/edmacro-tests.el: Adjust to recent changes
From: |
Stefan Monnier |
Subject: |
master e7cd4bae44: test/lisp/edmacro-tests.el: Adjust to recent changes |
Date: |
Mon, 4 Apr 2022 09:55:11 -0400 (EDT) |
branch: master
commit e7cd4bae44585b4fc0d57fbb98f49930b945a817
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
test/lisp/edmacro-tests.el: Adjust to recent changes
---
test/lisp/edmacro-tests.el | 27 ++++++++++++++-------------
1 file changed, 14 insertions(+), 13 deletions(-)
diff --git a/test/lisp/edmacro-tests.el b/test/lisp/edmacro-tests.el
index b5809ad0b7..e386342f6e 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e7cd4bae44: test/lisp/edmacro-tests.el: Adjust to recent changes,
Stefan Monnier <=