From 4c9b24b4d5d1a19a8d60195db4fdbf43a98106ff Mon Sep 17 00:00:00 2001 From: Aaron Ecay Date: Thu, 5 Nov 2015 17:04:15 +0000 Subject: [PATCH] Remove test for `org-babel-get-header' function. The function was removed in 0d000f5. --- testing/lisp/test-ob.el | 26 -------------------------- 1 file changed, 26 deletions(-) diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el index 28a30438b..0f5263526 100644 --- a/testing/lisp/test-ob.el +++ b/testing/lisp/test-ob.el @@ -87,32 +87,6 @@ should still return the link." org-babel-src-block-regexp (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 () (should(equal '((:session . "none")