diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-07-15 09:31:36 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-07-15 09:31:36 -0600 |
commit | def5a2f567c30fcebc63c3b3abb10a1e78e93283 (patch) | |
tree | 67b6f1bc6dc20e1f0545cdccaaf95f98fe296ecd | |
parent | 8834bde39f90e0fa54d998f107af07e545d1165e (diff) | |
download | org-mode-def5a2f567c30fcebc63c3b3abb10a1e78e93283.tar.gz |
test: updated babel tangling test to reflect body-parsing change
-rw-r--r-- | testing/examples/babel.org | 6 | ||||
-rw-r--r-- | testing/lisp/test-ob-tangle.el | 7 |
2 files changed, 5 insertions, 8 deletions
diff --git a/testing/examples/babel.org b/testing/examples/babel.org index f36dc31..d06ea46 100644 --- a/testing/examples/babel.org +++ b/testing/examples/babel.org @@ -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 diff --git a/testing/lisp/test-ob-tangle.el b/testing/lisp/test-ob-tangle.el index 78737a0..5f0385e 100644 --- a/testing/lisp/test-ob-tangle.el +++ b/testing/lisp/test-ob-tangle.el @@ -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 |