tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix testing/lisp/test-ob-emacs-lisp.el 

* testing/lisp/test-ob-emacs-lisp.el: Move stray test inside ert-deftest
This commit is contained in:
Aaron Ecay 2013-04-01 01:42:22 -04:00 committed by Eric Schulte
parent cd9d3d948e
commit 252238a60d
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
testing/lisp/test-ob-emacs-lisp.el
View File

@ -62,17 +62,20 @@
(should (string= (should (string=
"" ""
(buffer-substring-no-properties (point-at-bol) (point-at-eol)))))) (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 #+begin_src emacs-lisp :var a=2
2;; 2;;
#+end_src" #+end_src"
(org-babel-next-src-block) (org-babel-next-src-block)
(org-ctrl-c-ctrl-c) (org-ctrl-c-ctrl-c)
(re-search-forward "results" nil t) (re-search-forward "results" nil t)
(forward-line) (forward-line)
(should (string= (should (string=
": 2" ": 2"
(buffer-substring-no-properties (point-at-bol) (point-at-eol))))) (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))
(provide 'test-ob-emacs-lisp) (provide 'test-ob-emacs-lisp)
;;; test-ob-emacs-lisp.el ends here ;;; test-ob-emacs-lisp.el ends here