|
@@ -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
|