emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH 08/10] Fix testing/lisp/test-ob-emacs-lisp.el


From: Aaron Ecay
Subject: [O] [PATCH 08/10] Fix testing/lisp/test-ob-emacs-lisp.el
Date: Mon, 1 Apr 2013 01:42:22 -0400

* testing/lisp/test-ob-emacs-lisp.el: Move stray test inside ert-deftest
---
 testing/lisp/test-ob-emacs-lisp.el | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/testing/lisp/test-ob-emacs-lisp.el 
b/testing/lisp/test-ob-emacs-lisp.el
index 94092e4..d03f048 100644
--- a/testing/lisp/test-ob-emacs-lisp.el
+++ b/testing/lisp/test-ob-emacs-lisp.el
@@ -62,17 +62,20 @@
     (should (string=
             ""
             (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))
-(org-test-with-temp-text-in-file "
+
+(ert-deftest ob-emacs-lisp/commented-last-block-line ()
+  (org-test-with-temp-text-in-file "
 #+begin_src emacs-lisp :var a=2
 2;;
 #+end_src"
-  (org-babel-next-src-block)
-  (org-ctrl-c-ctrl-c)
-  (re-search-forward "results" nil t)
-  (forward-line)
-  (should (string=
-          ": 2"
-          (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))
+    (org-babel-next-src-block)
+    (org-ctrl-c-ctrl-c)
+    (re-search-forward "results" nil t)
+    (forward-line)
+    (should (string=
+            ": 2"
+            (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))
+
 (provide 'test-ob-emacs-lisp)
 
  ;;; test-ob-emacs-lisp.el ends here
-- 
1.8.2




reply via email to

[Prev in Thread] Current Thread [Next in Thread]