ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix indentation in tests 

* testing/lisp/test-org-src.el (test-org-src/basic):
(test-org-src/empty-block):
(test-org-src/blank-line-block):
(test-org-src/preserve-tabs): Fix indentation and tab issues.
This commit is contained in:
Nicolas Goaziou 2016-08-17 23:36:32 +02:00
parent ab92c2b39c
commit 8e51a88bf0
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -34,7 +34,7 @@
#+end_src #+end_src
" "
(let ((org-edit-src-content-indentation 2) (let ((org-edit-src-content-indentation 2)
(org-src-preserve-indentation nil)) (org-src-preserve-indentation nil))
(org-edit-special) (org-edit-special)
(insert "blah") (insert "blah")
(org-edit-src-exit) (org-edit-src-exit)
@ -66,7 +66,7 @@
#+end_src #+end_src
" "
(let ((org-edit-src-content-indentation 0) (let ((org-edit-src-content-indentation 0)
(org-src-preserve-indentation nil)) (org-src-preserve-indentation nil))
(org-edit-special) (org-edit-special)
(insert "blah") (insert "blah")
(org-edit-src-exit) (org-edit-src-exit)
@ -87,7 +87,7 @@ blah
#+end_src #+end_src
" "
(let ((org-edit-src-content-indentation 2) (let ((org-edit-src-content-indentation 2)
(org-src-preserve-indentation nil)) (org-src-preserve-indentation nil))
(goto-line 2) (goto-line 2)
(org-edit-special) (org-edit-special)
(insert "blah") (insert "blah")
@ -104,34 +104,34 @@ blah
(should (should
(equal " (equal "
#+begin_src emacs-lisp #+begin_src emacs-lisp
This is a tab: . This is a tab:\t.
#+end_src" #+end_src"
(org-test-with-temp-text (org-test-with-temp-text
" "
#+begin_src emacs-lisp #+begin_src emacs-lisp
<point>This is a tab: . <point>This is a tab:\t.
#+end_src" #+end_src"
(let ((org-edit-src-content-indentation 2) (let ((org-edit-src-content-indentation 2)
(org-src-preserve-indentation nil)) (org-src-preserve-indentation nil))
(org-edit-special) (org-edit-special)
(org-edit-src-exit) (org-edit-src-exit)
(buffer-string))))) (buffer-string)))))
;; With `org-src-preserve-indentation' set to t. ;; With `org-src-preserve-indentation' set to t.
(should (should
(equal " (equal "
#+begin_src emacs-lisp #+begin_src emacs-lisp
This is a tab: . This is a tab:\t.
#+end_src" #+end_src"
(org-test-with-temp-text (org-test-with-temp-text
" "
#+begin_src emacs-lisp #+begin_src emacs-lisp
<point>This is a tab: . <point>This is a tab:\t.
#+end_src" #+end_src"
(let ((org-edit-src-content-indentation 2) (let ((org-edit-src-content-indentation 2)
(org-src-preserve-indentation t)) (org-src-preserve-indentation t))
(org-edit-special) (org-edit-special)
(org-edit-src-exit) (org-edit-src-exit)
(buffer-string)))))) (buffer-string))))))
(provide 'test-org-src) (provide 'test-org-src)
;;; test-org-src.el ends here ;;; test-org-src.el ends here