|
@@ -1178,30 +1178,6 @@ echo \"test\"
|
|
|
(should (re-search-forward "=\"x\"=" nil t))
|
|
|
(forward-line))))
|
|
|
|
|
|
-(ert-deftest test-ob/commented-last-block-line-with-var ()
|
|
|
- (org-test-with-temp-text-in-file "
|
|
|
-#+begin_src emacs-lisp :var a=1
|
|
|
-;;
|
|
|
-#+end_src"
|
|
|
- (org-babel-next-src-block)
|
|
|
- (org-babel-execute-maybe)
|
|
|
- (re-search-forward "\\#\\+results:" nil t)
|
|
|
- (forward-line)
|
|
|
- (should (string=
|
|
|
- ""
|
|
|
- (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))
|
|
|
- (org-test-with-temp-text-in-file "
|
|
|
-#+begin_src emacs-lisp :var a=2
|
|
|
-2;;
|
|
|
-#+end_src"
|
|
|
- (org-babel-next-src-block)
|
|
|
- (org-babel-execute-maybe)
|
|
|
- (re-search-forward "\\#\\+results:" nil t)
|
|
|
- (forward-line)
|
|
|
- (should (string=
|
|
|
- ": 2"
|
|
|
- (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))
|
|
|
-
|
|
|
(defun test-ob-verify-result-and-removed-result (result buffer-text)
|
|
|
"Test helper function to test `org-babel-remove-result'.
|
|
|
A temp buffer is populated with BUFFER-TEXT, the first block is executed,
|