ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove test for `org-babel-get-header' function. 

The function was removed in 0d000f5.
This commit is contained in:
Aaron Ecay 2015-11-05 17:04:15 +00:00
parent 07e16c2fc5
commit 4c9b24b4d5
1 changed files with 0 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
testing/lisp/test-ob.el
View File

@ -87,32 +87,6 @@ should still return the link."
org-babel-src-block-regexp org-babel-src-block-regexp
(replace-regexp-in-string body "" test-block))))) (replace-regexp-in-string body "" test-block)))))
(ert-deftest test-org-babel/get-header ()
(should (not (org-babel-get-header
org-babel-default-header-args :doesnt-exist)))
(should(equal '((:session . "none"))
(org-babel-get-header
org-babel-default-header-args :session)))
(should(equal '((:session . "none"))
(org-babel-get-header
org-babel-default-header-args :session nil)))
(should (not (org-babel-get-header
org-babel-default-header-args :SESSION)))
(should (equal '((:tangle . "no"))
(org-babel-get-header
org-babel-default-header-args :tangle)))
;; with OTHERS option
(should (equal org-babel-default-header-args
(org-babel-get-header
org-babel-default-header-args :doesnt-exist 'others)))
(should (equal org-babel-default-header-args
(org-babel-get-header
org-babel-default-header-args nil 'others)))
(should (null
(assoc :noweb
(org-babel-get-header
org-babel-default-header-args :noweb 'others)))))
(ert-deftest test-org-babel/default-inline-header-args () (ert-deftest test-org-babel/default-inline-header-args ()
(should(equal (should(equal
'((:session . "none") '((:session . "none")