123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103 |
- (require 'org-test)
- (ert-deftest test-org-src/basic ()
- "Editing regular block works, with point on source block."
- (org-test-with-temp-text
- "
- #+begin_src emacs-lisp
- (message hello)
- #+end_src
- "
- (let ((org-edit-src-content-indentation 2)
- (org-src-preserve-indentation nil))
- (goto-line 2)
- (org-edit-special)
- (insert "blah")
- (org-edit-src-exit)
- (should (equal (buffer-string) "
- #+begin_src emacs-lisp
- blah(message hello)
- #+end_src
- "))
- (should (equal (word-at-point) "blah")))))
- (ert-deftest test-org-src/point-outside-block ()
- "Editing with point before/after block signals expected error."
- (org-test-with-temp-text
- "
- #+begin_src emacs-lisp
- (message hello)
- #+end_src
- "
- (goto-line 1)
- (should-error (org-edit-special))
- (goto-char (point-max))
- (should-error (org-edit-special))))
- (ert-deftest test-org-src/empty-block ()
- "Editing empty block."
- (org-test-with-temp-text
- "
- #+begin_src emacs-lisp
- #+end_src
- "
- (let ((org-edit-src-content-indentation 2)
- (org-src-preserve-indentation nil))
- (goto-line 2)
- (org-edit-special)
- (insert "blah")
- (org-edit-src-exit)
- (should (equal (buffer-string) "
- #+begin_src emacs-lisp
- blah
- #+end_src
- "))
- (should (equal (word-at-point) "blah")))))
- (ert-deftest test-org-src/blank-line-block ()
- "Editing block with just a blank line."
- (org-test-with-temp-text-in-file
- "
- #+begin_src emacs-lisp
- #+end_src
- "
- (let ((org-edit-src-content-indentation 2)
- (org-src-preserve-indentation nil))
- (goto-line 2)
- (org-edit-special)
- (insert "blah")
- (org-edit-src-exit)
- (should (equal (buffer-string) "
- #+begin_src emacs-lisp
- blah
- #+end_src
- ")))))
- (provide 'test-org-src)
|