diff options
| author | Somelauw <Somelauw> | 2017-10-07 22:58:52 +0200 |
|---|---|---|
| committer | Somelauw <Somelauw> | 2017-10-07 22:58:52 +0200 |
| commit | 4e9943680c9dbedfff2f325d79b723f76d3da42f (patch) | |
| tree | 895bc3ca8cbf9220f7946af896eaa9d752790e45 /evil-org-test.el | |
| parent | 52bbb105a6a7fa9ead68c56746740b4343ecd6e9 (diff) | |
Implement https://github.com/Somelauw/evil-org-mode/issues/22
Diffstat (limited to 'evil-org-test.el')
| -rw-r--r-- | evil-org-test.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/evil-org-test.el b/evil-org-test.el index 2c5fd55..9c5c963 100644 --- a/evil-org-test.el +++ b/evil-org-test.el @@ -2,6 +2,7 @@ (require 'ert) (defmacro evil-org-with (in &rest body) + ;; TODO use evil-test-buffer instead `(with-temp-buffer ;; "hello" (evil-mode) @@ -102,5 +103,24 @@ #+END_SRC" (call-interactively 'evil-org-open-below))))) +(ert-deftest evil-org-test-delete-list-item () + (should (equal " + 1. emacs +| 2. evil_org" + (evil-org-with " + 4. emacs + 5. |evil + 6. evil_org" + (evil-org-delete (line-beginning-position) + (line-beginning-position 2) + 'line))))) + +(ert-deftest evil-org-test-delete-tags () + (should (equal "* |heading with some text :testcase:" + (evil-org-with + "* |Funny heading with some text :testcase:" + (let ((w (evil-a-word))) + (evil-org-delete (first w) (second w))))))) + ;; TODO test x and X ;; TODO test < and > |