org-mode/testing/examples/ob-header-arg-defaults.org

Tests for default header arguments to Babel source blocks

• Global property
• Tree property
  • Overwrite
  • Accumulate
  • Complex

  (mapconcat (lambda (n)
               (let* ((n (string (+ 48 n)))
                      (p (intern (concat "t" n))))
                 (if (boundp p) (eval p) (concat "--" n))))
             (number-sequence 1 end)
             "/")

Global property

Global	t1	t2	t3	t4	t5	t6	t7	t8	t9
header-args	gh1	gh2	—	gh4	—	—	—	—	—
header-args:emacs-lisp	ge1	—	—	ge4	ge5	—	—	—	—
Result	ge1	gh2	–3	ge4	ge5	–6	–7	–8	–9

<<showvar>>

Tree property

Overwrite

Global	t1	t2	t3	t4	t5	t6	t7	t8	t9
header-args	gh1	gh2	—	gh4	—	—	—	—	—
header-args:emacs-lisp	ge1	—	—	ge4	ge5	—	—	—	—
Tree	t1	t2	t3	t4	t5	t6	t7	t8	t9
header-args	—	—	—	—	—	—	th7	—	—
header-args:emacs-lisp	—	—	—	—	—	—	—	te8	—
Result #+CALL	ge1	gh2	–3	ge4	ge5	–6	th7	te8	–9
Result noweb	–1	–2	–3	–4	–5	–6	th7	te8	–9

<<showvar>>

Accumulate

Global	t1	t2	t3	t4	t5	t6	t7	t8	t9
header-args	gh1	gh2	—	gh4	—	—	—	—	—
header-args:emacs-lisp	ge1	—	—	ge4	ge5	—	—	—	—
Tree	t1	t2	t3	t4	t5	t6	t7	t8	t9
header-args+	—	th2	th3	—	—	—	—	—	—
header-args:emacs-lisp+	—	—	—	—	te5	—	—	—	—
Result #+CALL	ge1	th2	th3	ge4	te5	–6	–7	–8	–9
Result noweb	ge1	th2	th3	ge4	te5	–6	–7	–8	–9

<<showvar>>

Complex

Global	t1	t2	t3	t4	t5	t6	t7	t8	t9
header-args	gh1	gh2	—	gh4	—	—	—	—	—
header-args:emacs-lisp	ge1	—	—	ge4	ge5	—	—	—	—
Tree	t1	t2	t3	t4	t5	t6	t7	t8	t9
header-args+	—	th2	—	—	—	—	—	—	—
header-args:emacs-lisp	—	—	—	—	te5	—	—	—	—
Result #+CALL	gh1	th2	go3	gh4	te5	–6	–7	–8	–9
Result noweb	gh1	th2	–3	gh4	te5	–6	–7	–8	–9

<<showvar>>