From 252238a60d28f1a77b2688001e11f7e9586ded5a Mon Sep 17 00:00:00 2001 From: Aaron Ecay Date: Mon, 1 Apr 2013 01:42:22 -0400 Subject: [PATCH] Fix testing/lisp/test-ob-emacs-lisp.el * 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 94092e409..d03f048aa 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