diff options
| -rw-r--r-- | evil-tests.el | 23 |
1 files changed, 10 insertions, 13 deletions
diff --git a/evil-tests.el b/evil-tests.el index b7c4f84..d6da77c 100644 --- a/evil-tests.el +++ b/evil-tests.el @@ -8135,20 +8135,17 @@ maybe we need one line more with some text\n") "This region is a keepe[r]"))) (ert-deftest evil-test-pasteable-macros () - "Test if we can yank and paste macros containing - <escape>" + "Test if we can paste macros containing unprintables and restore them" :tags '(evil) - (ert-info ("Execute yanked macro") - (evil-test-buffer - "[i]foo\e" - ("\"qd$@q\"qp" - "fooifoo\e"))) - (ert-info ("Paste recorded marco") - (evil-test-buffer - "" - (evil-set-register ?q (vconcat "ifoo" [escape])) - ("@q\"qp") - "fooifoo\e"))) + (ert-info ("Record, paste and restore macro") + (evil-test-buffer + "[f]oobar\n\n" + ([?q ?d right right ?x ?q ?j ?\" ?d ?p]) + (let ((macro [right right ?x]) + (representation (buffer-substring (line-beginning-position) + (line-end-position)))) + (should (equal (edmacro-parse-keys representation) macro)) + (should (equal (edmacro-format-keys macro) representation)))))) (ert-deftest evil-test-forward-symbol () :tags '(evil) |