tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases 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
"
(let ((org-edit-src-content-indentation 2)
(org-src-preserve-indentation nil))
(org-src-preserve-indentation nil))
(org-edit-special)
(insert "blah")
(org-edit-src-exit)
@ -66,7 +66,7 @@
#+end_src
"
(let ((org-edit-src-content-indentation 0)
(org-src-preserve-indentation nil))
(org-src-preserve-indentation nil))
(org-edit-special)
(insert "blah")
(org-edit-src-exit)
@ -87,7 +87,7 @@ blah
#+end_src
"
(let ((org-edit-src-content-indentation 2)
(org-src-preserve-indentation nil))
(org-src-preserve-indentation nil))
(goto-line 2)
(org-edit-special)
(insert "blah")
@ -104,34 +104,34 @@ blah
(should
(equal "
#+begin_src emacs-lisp
This is a tab: .
This is a tab:\t.
#+end_src"
(org-test-with-temp-text
"
(org-test-with-temp-text
"
#+begin_src emacs-lisp
<point>This is a tab: .
<point>This is a tab:\t.
#+end_src"
(let ((org-edit-src-content-indentation 2)
(org-src-preserve-indentation nil))
(org-edit-special)
(org-edit-src-exit)
(buffer-string)))))
(let ((org-edit-src-content-indentation 2)
(org-src-preserve-indentation nil))
(org-edit-special)
(org-edit-src-exit)
(buffer-string)))))
;; With `org-src-preserve-indentation' set to t.
(should
(equal "
#+begin_src emacs-lisp
This is a tab: .
This is a tab:\t.
#+end_src"
(org-test-with-temp-text
"
(org-test-with-temp-text
"
#+begin_src emacs-lisp
<point>This is a tab: .
<point>This is a tab:\t.
#+end_src"
(let ((org-edit-src-content-indentation 2)
(org-src-preserve-indentation t))
(org-edit-special)
(org-edit-src-exit)
(buffer-string))))))
(let ((org-edit-src-content-indentation 2)
(org-src-preserve-indentation t))
(org-edit-special)
(org-edit-src-exit)
(buffer-string))))))
(provide 'test-org-src)
;;; test-org-src.el ends here