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

5.8 KiB
Raw Blame History

Tests for default header arguments to Babel source blocks

  (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
var property go1 go2 go3
header-args gh1 gh2 gh4
header-args:emacs-lisp ge1 ge4 ge5
Result ge1 gh2 go3 ge4 ge5 6 7 8 9
<<showvar>>

Tree property

Overwrite

Global t1 t2 t3 t4 t5 t6 t7 t8 t9
var property go1 go2 go3
header-args gh1 gh2 gh4
header-args:emacs-lisp ge1 ge4 ge5
Tree t1 t2 t3 t4 t5 t6 t7 t8 t9
var property to6
header-args th7
header-args:emacs-lisp te8
Result #+CALL go1 go2 go3 4 5 th7 te8 9
Result noweb 1 2 3 4 5 to6 th7 te8 9
<<showvar>>

Accumulate

Global t1 t2 t3 t4 t5 t6 t7 t8 t9
var property go1 go2 go3
header-args gh1 gh2 gh4
header-args:emacs-lisp ge1 ge4 ge5
Tree t1 t2 t3 t4 t5 t6 t7 t8 t9
var+ property to1 to6
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 to6 7 8 9
<<showvar>>

Complex

Global t1 t2 t3 t4 t5 t6 t7 t8 t9
var property go1 go2 go3
header-args gh1 gh2 gh4
header-args:emacs-lisp ge1 ge4 ge5
Tree t1 t2 t3 t4 t5 t6 t7 t8 t9
var property to1 to6
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 to6 7 8 9
<<showvar>>