summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-09-29 09:38:19 +0200
committerBastien Guerry <bzg@altern.org>2012-09-29 09:38:19 +0200
commit22c308083098f98a46bf2e752e005a9c36618b54 (patch)
treea3d969bf50e0e6d25e3ace833f7ae514b3531df6
parent7a06ed790a6f387e96b722e1142173fb839ba25b (diff)
downloadorg-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.el26
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