From 19d4689bb86ade87c0f6ef9338c33dee43a66cbe Mon Sep 17 00:00:00 2001 From: Mehmet Tekman Date: Sun, 5 May 2024 17:32:59 +0200 Subject: [PATCH 3/3] Floating commit, implementing tangle-params into tests. Needs work --- testing/lisp/test-ob.el | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el index 604f5ac92..4ccb74d64 100644 --- a/testing/lisp/test-ob.el +++ b/testing/lisp/test-ob.el @@ -334,24 +334,29 @@ either as a symbol or a list in the `idtest-alist' variable. Multiple header parameters must be separated by a newline and exactly two spaces in the block contents." (should ;; 1. inherit-document-header-args - (equal '(:tangle "/tmp/default_tangle.txt") + (equal (cons '(:tangle "/tmp/default_tangle.txt") + ;;'(:tangle-params ("/tmp/default_tangle.txt" "export") ;; -- desired + '(:tangle-params ("" "export"))) (org-test-with-temp-text "\ #+PROPERTY: header-args :tangle /tmp/default_tangle.txt * One -#+begin_src conf +#+begin_src conf :tangle export #+end_src" - (test-ob/get-src-block-property :tangle)))) - (should-not ;; 2. inherit-document-header-with-local-sync-action + (cons (test-ob/get-src-block-property :tangle) + (test-ob/get-src-block-property :tangle-params))))) + (should ;; 2. inherit-document-header-with-local-sync-action ;; This should pass with newer merge function with multiple tangle parameters - (equal '(:tangle "/tmp/default_tangle.txt skip") + (equal (cons '(:tangle "no") + '(:tangle-params ("no" nil))) (org-test-with-temp-text "\ #+PROPERTY: header-args :tangle /tmp/default_tangle.txt * Two -#+begin_src conf :tangle skip +#+begin_src conf :tangle no #+end_src" - (test-ob/get-src-block-property :tangle)))) + (cons (test-ob/get-src-block-property :tangle) + (test-ob/get-src-block-property :tangle-params))))) (should ;; 3. override-document-header-with-local-tfile (equal '(:tangle "randomfile sync") (org-test-with-temp-text -- 2.41.0