summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Brand <michael.ch.brand@gmail.com>2013-06-19 09:36:36 (GMT)
committer Eric Schulte <schulte.eric@gmail.com>2013-06-26 17:09:21 (GMT)
commitb01871f23e241d4392d46d7e106d1df8958fccac (patch)
tree218d4da5422432b581b855a1692c33f3e6a01504
parentb7710ddcbde78e20508ee1aa3b5f2fc954bddacb (diff)
downloadorg-mode-b01871f23e241d4392d46d7e106d1df8958fccac.zip
org-mode-b01871f23e241d4392d46d7e106d1df8958fccac.tar.gz
Babel: use case of reading entry properties as an ERT
* testing/examples/babel.org: Add test entry for ERT. * testing/lisp/test-ob-exp.el(ob-exp/use-case-of-reading-entry-properties): Add expected source block results for ERT.
-rw-r--r--testing/examples/babel.org77
-rw-r--r--testing/lisp/test-ob-exp.el42
2 files changed, 119 insertions, 0 deletions
diff --git a/testing/examples/babel.org b/testing/examples/babel.org
index 15f9717..de1980e 100644
--- a/testing/examples/babel.org
+++ b/testing/examples/babel.org
@@ -359,3 +359,80 @@ Here is a call line with more than just the results exported.
<<strip-export-1>>
echo "1$i"
#+END_SRC
+
+* use case of reading entry properties
+ :PROPERTIES:
+ :ID: cc5fbc20-bca5-437a-a7b8-2b4d7a03f820
+ :END:
+
+If overriden by caller then use :var from header else use entry property.
+
+** section
+ :PROPERTIES:
+ :a: 1
+ :c: 3
+ :END:
+
+Note: Just export of a property can be done with a macro: {{{property(a)}}}.
+
+#+CALL: src_block_location_shell(dummy_name="sect call")
+#+CALL: src_block_location_elisp[:session sect call]()
+- sect inline call_src_block_location_shell(dummy_name="sect inline")
+- sect inline call_src_block_location_elisp[:session sect inline]()
+
+*** subsection
+ :PROPERTIES:
+ :b: 2
+ :c: 4
+ :END:
+
+#+CALL: src_block_location_shell(dummy_name="sub0 call")
+#+CALL: src_block_location_elisp[:session sub0 call]()
+- sub0 inline call_src_block_location_shell(dummy_name="sub0 inline")
+- sub0 inline call_src_block_location_elisp[:session sub0 inline]()
+
+#+CALL: src_block_location_shell(dummy_name="sub1 call", c=5, e=6)
+#+CALL: src_block_location_elisp[:session sub1 call](c=5, e=6)
+- sub1 inline call_src_block_location_shell(dummy_name="sub1 inline", c=5, e=6)
+- sub1 inline call_src_block_location_elisp[:session sub1 inline](c=5, e=6)
+
+**** function definition
+
+#+NAME: src_block_location_shell
+#+HEADER: :var dummy_name="workaround to get different result blocks"
+#+HEADER: :var a=(or (org-entry-get org-babel-current-src-block-location "a" t) "0")
+#+HEADER: :var b=(or (org-entry-get org-babel-current-src-block-location "b" t) "0")
+#+HEADER: :var c=(or (org-entry-get org-babel-current-src-block-location "c" t) "0")
+#+HEADER: :var d=(or (org-entry-get org-babel-current-src-block-location "d" t) "0")
+#+HEADER: :var e=(or (org-entry-get org-babel-current-src-block-location "e" t) "0")
+#+BEGIN_SRC sh :shebang #!/bin/sh :exports results :results verbatim
+ printf "shell a:$a, b:$b, c:$c, d:$d, e:$e"
+#+END_SRC
+
+#+RESULTS: src_block_location_shell
+
+#+NAME: src_block_location_elisp
+#+HEADER: :var a='nil
+#+HEADER: :var b='nil
+#+HEADER: :var c='nil
+#+HEADER: :var d='nil
+#+HEADER: :var e='nil
+#+BEGIN_SRC emacs-lisp :exports results
+ (setq
+ a (or a (string-to-number
+ (or (org-entry-get org-babel-current-src-block-location "a" t)
+ "0")))
+ b (or b (string-to-number
+ (or (org-entry-get org-babel-current-src-block-location "b" t)
+ "0")))
+ c (or c (string-to-number
+ (or (org-entry-get org-babel-current-src-block-location "c" t)
+ "0")))
+ d (or d (string-to-number
+ (or (org-entry-get org-babel-current-src-block-location "e" t)
+ "0")))
+ e (or e (string-to-number
+ (or (org-entry-get org-babel-current-src-block-location "d" t)
+ "0"))))
+ (format "elisp a:%d, b:%d, c:%d, d:%d, e:%d" a b c d e)
+#+END_SRC
diff --git a/testing/lisp/test-ob-exp.el b/testing/lisp/test-ob-exp.el
index abfe230..a930c99 100644
--- a/testing/lisp/test-ob-exp.el
+++ b/testing/lisp/test-ob-exp.el
@@ -216,6 +216,48 @@ Here is one at the end of a line. =2=
(should-not (string-match (regexp-quote "<<strip-export-1>>") result))
(should-not (string-match (regexp-quote "i=\"10\"") result)))))
+(ert-deftest ob-exp/use-case-of-reading-entry-properties ()
+ (org-test-at-id "cc5fbc20-bca5-437a-a7b8-2b4d7a03f820"
+ (org-narrow-to-subtree)
+ (let* ((case-fold-search nil)
+ (result (org-test-with-expanded-babel-code (buffer-string)))
+ (sect "a:1, b:0, c:3, d:0, e:0")
+ (sub0 "a:1, b:2, c:4, d:0, e:0")
+ (sub1 "a:1, b:2, c:5, d:0, e:6")
+ (func sub0))
+ ;; entry "section"
+ (should (string-match (concat "\"sect call\".*)\n: shell " sect "\n")
+ result))
+ (should (string-match (concat "sect call\\](.*)\n: elisp " sect "\n")
+ result))
+ (should (string-match (concat "\n- sect inline =shell " sect "=\n")
+ result))
+ (should (string-match (concat "\n- sect inline =elisp " sect "=\n")
+ result))
+ ;; entry "subsection", call without arguments
+ (should (string-match (concat "\"sub0 call\".*)\n: shell " sub0 "\n")
+ result))
+ (should (string-match (concat "sub0 call\\](.*)\n: elisp " sub0 "\n")
+ result))
+ (should (string-match (concat "\n- sub0 inline =shell " sub0 "=\n")
+ result))
+ (should (string-match (concat "\n- sub0 inline =elisp " sub0 "=\n")
+ result))
+ ;; entry "subsection", call with arguments
+ (should (string-match (concat "\"sub1 call\".*)\n: shell " sub1 "\n")
+ result))
+ (should (string-match (concat "sub1 call\\](.*)\n: elisp " sub1 "\n")
+ result))
+ (should (string-match (concat "\n- sub1 inline =shell " sub1 "=\n")
+ result))
+ (should (string-match (concat "\n- sub1 inline =elisp " sub1 "=\n")
+ result))
+ ;; entry "function definition"
+ (should (string-match (concat "_location_shell\n: shell " func "\n")
+ result))
+ (should (string-match (concat "_location_elisp\n: elisp " func "\n")
+ result)))))
+
(ert-deftest ob-exp/export-from-a-temp-buffer ()
:expected-result :failed
(org-test-with-temp-text