test: updated babel tangling test to reflect body-parsing change

This commit is contained in:
Eric Schulte 2011-07-15 09:31:36 -06:00
parent 8834bde39f
commit def5a2f567
2 changed files with 5 additions and 8 deletions

View File

@ -227,17 +227,17 @@ an = sign.
** query all mounted disks
#+begin_src sh :noweb-ref fullest-disk
df \
df
#+end_src
** strip the header row
#+begin_src sh :noweb-ref fullest-disk
|sed '1d' \
|sed '1d'
#+end_src
** sort by the percent full
#+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
** extract the mount point

View File

@ -56,11 +56,8 @@
(ert-deftest ob-tangle/continued-code-blocks-w-noweb-ref ()
"Test that the :noweb-ref header argument is used correctly."
(org-test-at-id "54d68d4b-1544-4745-85ab-4f03b3cbd8a0"
(let ((tangled "df \\
|sed '1d' \\
|awk '{print $5 \" \" $6}'|sort -n |tail -1 \\
|awk '{print $2}'
"))
(let ((tangled
"df|sed '1d'|awk '{print $5 \" \" $6}'|sort -n |tail -1|awk '{print $2}'"))
(org-narrow-to-subtree)
(org-babel-tangle)
(with-temp-buffer