org-mode/testing/examples/babel.org

a collection of examples for Babel tests

• :noweb header argument expansion
• elisp forms in header arguments
• excessive id links on tangling
  • no, don't give me an ID
  • yes, I'd love an ID
• simple variable resolution
• multi-line header arguments
• simple named code block
• Pascal's Triangle – export test
• calling code blocks from inside table
• executing an lob call line
• parsing header arguments
• conflicting blocks on export
• using the :noweb-ref header argument
  • query all mounted disks
  • strip the header row
  • sort by the percent full
  • extract the mount point

:noweb header argument expansion

  (message "expanded")

  ;; noweb-yes-start
  <<noweb-example>>
  ;; noweb-yes-end

  ;; noweb-no-start
  <<noweb-example>>
  ;; noweb-no-end

  ;; noweb-tangle-start
  <<noweb-example>>
  ;; noweb-tangle-end

elisp forms in header arguments

  prop

4

excessive id links on tangling

no, don't give me an ID

  (message "not to be tangled")

yes, I'd love an ID

  (message "for tangling")

simple variable resolution

  (list 1 2 3 4)

  (length four)

4

multi-line header arguments

  (map 'list #'list numbers letters)

1	a
2	b
3	c
4	d
5	e
6	f
7	g

simple named code block

  42

42

42

Pascal's Triangle – export test

  (defun pascals-triangle (n)
    (if (= n 0)
        (list (list 1))
      (let* ((prev-triangle (pascals-triangle (- n 1)))
             (prev-row (car (reverse prev-triangle))))
        (append prev-triangle
                (list (map 'list #'+
                           (append prev-row '(0))
                           (append '(0) prev-row)))))))

  (pascals-triangle n)

calling code blocks from inside table

  (sqrt n)

executing an lob call line

This is an inline call call_echo(input="testing") embedded in prose. This is an inline call call_echo(input="testing")[:results vector] embedded in prose.

call_echo("testing")

parsing header arguments

  the body

conflicting blocks on export

• a
• b
• c

    "code block results"

  (reverse lst)

using the :noweb-ref header argument

  <<fullest-disk>>

query all mounted disks

  df \

strip the header row

  |sed '1d' \

sort by the percent full

  |awk '{print $5 " " $6}'|sort -n |tail -1 \

extract the mount point

  |awk '{print $2}'