From mboxrd@z Thu Jan 1 00:00:00 1970 From: Aaron Ecay Subject: [PATCH 08/10] Fix testing/lisp/test-ob-emacs-lisp.el Date: Mon, 1 Apr 2013 01:42:22 -0400 Message-ID: <1364794944-13826-9-git-send-email-aaronecay@gmail.com> References: <1364794944-13826-1-git-send-email-aaronecay@gmail.com> Return-path: Received: from eggs.gnu.org ([208.118.235.92]:37739) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UMXVu-0002m8-Pg for emacs-orgmode@gnu.org; Mon, 01 Apr 2013 01:42:40 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UMXVt-0000wk-61 for emacs-orgmode@gnu.org; Mon, 01 Apr 2013 01:42:38 -0400 Received: from mail-qc0-x232.google.com ([2607:f8b0:400d:c01::232]:61633) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UMXVt-0000wf-2N for emacs-orgmode@gnu.org; Mon, 01 Apr 2013 01:42:37 -0400 Received: by mail-qc0-f178.google.com with SMTP id d10so920180qca.37 for ; Sun, 31 Mar 2013 22:42:36 -0700 (PDT) In-Reply-To: <1364794944-13826-1-git-send-email-aaronecay@gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * 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