mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

test-org-src.el: Fix a test. 

* lisp/test-org-src.el (test-org-src/blank-line-block): Use
`org-test-with-temp-text-in-file' because `org-in-src-block-p'
checks against an Org mode text property.  Don't check for the
word at point.

Thanks to Nick Dokos for reporting this failed test.
This commit is contained in:
Bastien Guerry 2012-12-15 08:04:43 +01:00
parent 8f3b8ee44c
commit c0675b478e
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
testing/lisp/test-org-src.el
View File

@ -80,22 +80,22 @@
(ert-deftest test-org-src/blank-line-block ()
"Editing block with just a blank line."
(org-test-with-temp-text
(org-test-with-temp-text-in-file
"
#+begin_src emacs-lisp
#+end_src
"
(goto-line 3)
(org-edit-special)
(insert "blah")
(org-edit-src-exit)
(should (equal (buffer-string) "
(progn
(goto-line 3)
(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"))))
")))))
(provide 'test-org-src)
;;; test-org-src.el ends here