diff options
author | Bastien Guerry <bzg@altern.org> | 2012-09-29 09:38:19 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-09-29 09:38:19 +0200 |
commit | 22c308083098f98a46bf2e752e005a9c36618b54 (patch) | |
tree | a3d969bf50e0e6d25e3ace833f7ae514b3531df6 | |
parent | 7a06ed790a6f387e96b722e1142173fb839ba25b (diff) | |
download | org-mode-22c308083098f98a46bf2e752e005a9c36618b54.tar.gz |
test-ob.el: Fix test. Delete trailing whitespaces
* test-ob.el (test-ob/org-babel-remove-result--results-org):
Fix test. Delete trailing whitespaces.
-rw-r--r-- | testing/lisp/test-ob.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el index 127e1d2..865b495 100644 --- a/testing/lisp/test-ob.el +++ b/testing/lisp/test-ob.el @@ -692,7 +692,7 @@ on two lines (forward-line) (should (string= - "" + "" (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))) (org-test-with-temp-text-in-file " #+begin_src emacs-lisp @@ -706,7 +706,7 @@ on two lines (forward-line) (should (string= - ": some text" + ": some text" (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))) (ert-deftest test-ob/commented-last-block-line-with-var () @@ -720,7 +720,7 @@ on two lines (re-search-forward "\\#\\+results:" nil t) (forward-line) (should (string= - "" + "" (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))) (org-test-with-temp-text-in-file " #+begin_src emacs-lisp :var a=2 @@ -732,7 +732,7 @@ on two lines (re-search-forward "\\#\\+results:" nil t) (forward-line) (should (string= - ": 2" + ": 2" (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))) (defun test-ob-verify-result-and-removed-result (result buffer-text) @@ -748,7 +748,7 @@ replacement happens correctly." (org-babel-next-src-block) (org-ctrl-c-ctrl-c) (org-ctrl-c-ctrl-c) (should (re-search-forward "\\#\\+results:" nil t)) (forward-line) - (should (string= result + (should (string= result (buffer-substring-no-properties (point-at-bol) (- (point-max) 16)))) @@ -846,7 +846,7 @@ trying to find the :END: marker." (re-search-forward "\\#\\+results:" nil t) (forward-line) (should (string= - "" + "" (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))) (org-test-with-temp-text-in-file " #+begin_src emacs-lisp :var a=2 @@ -858,7 +858,7 @@ trying to find the :END: marker." (re-search-forward "\\#\\+results:" nil t) (forward-line) (should (string= - ": 2" + ": 2" (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))) (defun test-ob-verify-result-and-removed-result (result buffer-text) @@ -874,7 +874,7 @@ replacement happens correctly." (org-babel-next-src-block) (org-ctrl-c-ctrl-c) (org-ctrl-c-ctrl-c) (should (re-search-forward "\\#\\+results:" nil t)) (forward-line) - (should (string= result + (should (string= result (buffer-substring-no-properties (point-at-bol) (- (point-max) 16)))) @@ -930,9 +930,9 @@ hello there "Test `org-babel-remove-result' with :results org." (test-ob-verify-result-and-removed-result "#+BEGIN_SRC org -* heading -** subheading -content +,* heading +,** subheading +,content #+END_SRC" "* org-babel-remove-result @@ -1007,11 +1007,11 @@ Line 3\" (org-test-with-temp-text "Block two has a space after the name. #+name: foo - #+begin_src emacs-lisp + #+begin_src emacs-lisp 1 #+end_src emacs-lisp -#+name: foo +#+name: foo #+begin_src emacs-lisp 2 #+end_src |