forked from mirrors/org-mode
test: updated babel tangling test to reflect body-parsing change
This commit is contained in:
parent
8834bde39f
commit
def5a2f567
|
@ -227,17 +227,17 @@ an = sign.
|
||||||
|
|
||||||
** query all mounted disks
|
** query all mounted disks
|
||||||
#+begin_src sh :noweb-ref fullest-disk
|
#+begin_src sh :noweb-ref fullest-disk
|
||||||
df \
|
df
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
** strip the header row
|
** strip the header row
|
||||||
#+begin_src sh :noweb-ref fullest-disk
|
#+begin_src sh :noweb-ref fullest-disk
|
||||||
|sed '1d' \
|
|sed '1d'
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
** sort by the percent full
|
** sort by the percent full
|
||||||
#+begin_src sh :noweb-ref fullest-disk
|
#+begin_src sh :noweb-ref fullest-disk
|
||||||
|awk '{print $5 " " $6}'|sort -n |tail -1 \
|
|awk '{print $5 " " $6}'|sort -n |tail -1
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
** extract the mount point
|
** extract the mount point
|
||||||
|
|
|
@ -56,11 +56,8 @@
|
||||||
(ert-deftest ob-tangle/continued-code-blocks-w-noweb-ref ()
|
(ert-deftest ob-tangle/continued-code-blocks-w-noweb-ref ()
|
||||||
"Test that the :noweb-ref header argument is used correctly."
|
"Test that the :noweb-ref header argument is used correctly."
|
||||||
(org-test-at-id "54d68d4b-1544-4745-85ab-4f03b3cbd8a0"
|
(org-test-at-id "54d68d4b-1544-4745-85ab-4f03b3cbd8a0"
|
||||||
(let ((tangled "df \\
|
(let ((tangled
|
||||||
|sed '1d' \\
|
"df|sed '1d'|awk '{print $5 \" \" $6}'|sort -n |tail -1|awk '{print $2}'"))
|
||||||
|awk '{print $5 \" \" $6}'|sort -n |tail -1 \\
|
|
||||||
|awk '{print $2}'
|
|
||||||
"))
|
|
||||||
(org-narrow-to-subtree)
|
(org-narrow-to-subtree)
|
||||||
(org-babel-tangle)
|
(org-babel-tangle)
|
||||||
(with-temp-buffer
|
(with-temp-buffer
|
||||||
|
|
Loading…
Reference in New Issue