test-ob.el 57 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835
  1. ;;; test-ob.el --- tests for ob.el
  2. ;; Copyright (c) 2010-2015 Eric Schulte
  3. ;; Authors: Eric Schulte, Martyn Jago
  4. ;; This file is not part of GNU Emacs.
  5. ;; This program is free software; you can redistribute it and/or modify
  6. ;; it under the terms of the GNU General Public License as published by
  7. ;; the Free Software Foundation, either version 3 of the License, or
  8. ;; (at your option) any later version.
  9. ;; This program is distributed in the hope that it will be useful,
  10. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12. ;; GNU General Public License for more details.
  13. ;; You should have received a copy of the GNU General Public License
  14. ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
  15. ;;; Code:
  16. (ert-deftest test-ob/indented-cached-org-bracket-link ()
  17. "When the result of a source block is a cached indented link it
  18. should still return the link."
  19. (should
  20. (let ((default-directory temporary-file-directory))
  21. (org-test-with-temp-text
  22. "
  23. * Test
  24. #+<point>BEGIN_SRC emacs-lisp :file test.txt :cache yes
  25. (message \"test\")
  26. #+END_SRC"
  27. ;; Execute twice as the first time creates the cache.
  28. (org-babel-execute-src-block)
  29. (string= (expand-file-name "test.txt")
  30. (org-babel-execute-src-block))))))
  31. (ert-deftest test-ob/multi-line-header-regexp ()
  32. (should(equal "^[ \t]*#\\+headers?:[ \t]*\\([^\n]*\\)$"
  33. org-babel-multi-line-header-regexp))
  34. ;;TODO can be optimised - and what about blah4 blah5 blah6?
  35. (should (string-match
  36. org-babel-multi-line-header-regexp
  37. " \t #+headers: blah1 blah2 blah3 \t\n\t\n blah4 blah5 blah6 \n"))
  38. (should
  39. (equal
  40. "blah1 blah2 blah3 \t"
  41. (match-string
  42. 1
  43. " \t #+headers: blah1 blah2 blah3 \t\n\t\n blah4 blah5 blah6 \n")))
  44. ;;TODO Check - should this fail?
  45. (should
  46. (not (org-test-string-exact-match
  47. org-babel-multi-line-header-regexp
  48. " \t #+headers : blah1 blah2 blah3 \t\n\t\n blah4 blah5 blah6 \n"))))
  49. (ert-deftest test-ob/src-block-regexp ()
  50. (let ((test-block
  51. (concat
  52. "#+begin_src language -n-r-a-b -c :argument-1 yes :argument-2 no\n"
  53. "echo this is a test\n"
  54. "echo Currently in ' $PWD\n"
  55. "#+end_src"))
  56. (language "language")
  57. (flags "-n-r-a-b -c ")
  58. (arguments ":argument-1 yes :argument-2 no")
  59. (body "echo this is a test\necho Currently in ' $PWD\n"))
  60. (should (string-match org-babel-src-block-regexp test-block))
  61. (should (string-match org-babel-src-block-regexp (upcase test-block)))
  62. (should (equal language (match-string 2 test-block)))
  63. ;;TODO Consider refactoring
  64. (should (equal flags (match-string 3 test-block)))
  65. (should (equal arguments (match-string 4 test-block)))
  66. (should (equal body (match-string 5 test-block)))
  67. ;;no switches
  68. (should (org-test-string-exact-match
  69. org-babel-src-block-regexp
  70. (replace-regexp-in-string flags "" test-block)))
  71. ;;no header arguments
  72. (should (org-test-string-exact-match
  73. org-babel-src-block-regexp
  74. (replace-regexp-in-string arguments "" test-block)))
  75. ;; should be valid with no body
  76. (should (org-test-string-exact-match
  77. org-babel-src-block-regexp
  78. (replace-regexp-in-string body "" test-block)))))
  79. (ert-deftest test-ob/default-inline-header-args ()
  80. (should(equal
  81. '((:session . "none")
  82. (:results . "replace")
  83. (:exports . "results")
  84. (:hlines . "yes"))
  85. org-babel-default-inline-header-args)))
  86. (ert-deftest ob-test/org-babel-combine-header-arg-lists ()
  87. (let ((results (org-babel-combine-header-arg-lists
  88. '((foo . :any)
  89. (bar)
  90. (baz . ((foo bar) (baz)))
  91. (qux . ((foo bar baz qux)))
  92. (quux . ((foo bar))))
  93. '((bar)
  94. (baz . ((baz)))
  95. (quux . :any)))))
  96. (dolist (pair '((foo . :any)
  97. (bar)
  98. (baz . ((baz)))
  99. (quux . :any)
  100. (qux . ((foo bar baz qux)))))
  101. (should (equal (cdr pair)
  102. (cdr (assoc (car pair) results)))))))
  103. ;;; ob-get-src-block-info
  104. (ert-deftest test-ob/get-src-block-info-language ()
  105. (org-test-at-marker nil org-test-file-ob-anchor
  106. (let ((info (org-babel-get-src-block-info)))
  107. (should (string= "emacs-lisp" (nth 0 info))))))
  108. (ert-deftest test-ob/get-src-block-info-body ()
  109. (org-test-at-marker nil org-test-file-ob-anchor
  110. (let ((info (org-babel-get-src-block-info)))
  111. (should (string-match (regexp-quote org-test-file-ob-anchor)
  112. (nth 1 info))))))
  113. (ert-deftest test-ob/get-src-block-info-tangle ()
  114. (org-test-at-marker nil org-test-file-ob-anchor
  115. (let ((info (org-babel-get-src-block-info)))
  116. (should (string= "no" (cdr (assq :tangle (nth 2 info))))))))
  117. (ert-deftest test-ob/elisp-in-header-arguments ()
  118. "Test execution of elisp forms in header arguments."
  119. (org-test-with-temp-text-in-file "
  120. * elisp forms in header arguments
  121. :PROPERTIES:
  122. :header-args: :var prop = (* 7 6)
  123. :END:
  124. #+begin_src emacs-lisp
  125. prop
  126. #+end_src"
  127. (goto-char (point-min))
  128. (org-babel-next-src-block)
  129. (should (= 42 (org-babel-execute-src-block)))))
  130. (ert-deftest test-ob/simple-named-code-block ()
  131. "Test that simple named code blocks can be evaluated."
  132. (org-test-with-temp-text-in-file "
  133. #+name: i-have-a-name
  134. #+begin_src emacs-lisp
  135. 42
  136. #+end_src"
  137. (org-babel-next-src-block 1)
  138. (should (= 42 (org-babel-execute-src-block)))))
  139. (ert-deftest test-ob/simple-variable-resolution ()
  140. "Test that simple variable resolution is working."
  141. (org-test-with-temp-text-in-file "
  142. #+name: four
  143. #+begin_src emacs-lisp
  144. (list 1 2 3 4)
  145. #+end_src
  146. #+begin_src emacs-lisp :var four=four
  147. (length four)
  148. #+end_src"
  149. (org-babel-next-src-block 2)
  150. (should (= 4 (org-babel-execute-src-block)))
  151. (forward-line 5)
  152. (should (string= ": 4" (buffer-substring
  153. (point-at-bol)
  154. (point-at-eol))))))
  155. (ert-deftest test-ob/multi-line-header-arguments ()
  156. "Test that multi-line header arguments and can be read."
  157. (org-test-with-temp-text-in-file "
  158. #+headers: :var letters='(a b c d e f g)
  159. #+begin_src emacs-lisp :var numbers='(1 2 3 4 5 6 7)
  160. (require 'cl-lib)
  161. (cl-map 'list #'list numbers letters)
  162. #+end_src"
  163. (org-babel-next-src-block)
  164. (let ((results (org-babel-execute-src-block)))
  165. (should (eq 'a (cadr (assoc 1 results))))
  166. (should (eq 'd (cadr (assoc 4 results)))))))
  167. (ert-deftest test-ob/parse-header-args ()
  168. (org-test-with-temp-text-in-file "
  169. #+begin_src example-lang :session :results output :var num=9
  170. the body
  171. #+end_src"
  172. (org-babel-next-src-block)
  173. (let* ((info (org-babel-get-src-block-info))
  174. (params (nth 2 info)))
  175. (message "%S" params)
  176. (should (equal "example-lang" (nth 0 info)))
  177. (should (string= "the body" (org-trim (nth 1 info))))
  178. (should-not (member '(:session\ \ \ \ ) params))
  179. (should (equal '(:session) (assq :session params)))
  180. (should (equal '(:result-type . output) (assq :result-type params)))
  181. (should (equal '(num . 9) (cdr (assq :var params)))))))
  182. (ert-deftest test-ob/parse-header-args2 ()
  183. (org-test-with-temp-text-in-file "
  184. * resolving sub-trees as references
  185. #+begin_src emacs-lisp :var text=d4faa7b3-072b-4dcf-813c-dd7141c633f3
  186. (length text)
  187. #+end_src
  188. #+begin_src org :noweb yes
  189. <<simple-subtree>>
  190. <<d4faa7b3-072b-4dcf-813c-dd7141c633f3>>
  191. #+end_src
  192. ** simple subtree with custom ID
  193. :PROPERTIES:
  194. :CUSTOM_ID: simple-subtree
  195. :END:
  196. this is simple"
  197. (should (string-match (regexp-quote "this is simple")
  198. (org-babel-ref-resolve "simple-subtree")))
  199. (org-babel-next-src-block)
  200. (should (= 14 (org-babel-execute-src-block)))))
  201. (ert-deftest test-ob/inline-src-blocks ()
  202. (should
  203. (= 1
  204. (org-test-with-temp-text
  205. "In the middle <point>src_emacs-lisp{(+ 0 1)} of a line"
  206. (org-babel-execute-src-block))))
  207. (should
  208. (= 2
  209. (org-test-with-temp-text
  210. "One at the end of a line: <point>src_emacs-lisp{(+ 1 1)}"
  211. (org-babel-execute-src-block))))
  212. (should
  213. (= 3
  214. (org-test-with-temp-text
  215. "src_emacs-lisp{(+ 2 1)} at the beginning of a line."
  216. (org-babel-execute-src-block))))
  217. (should
  218. (= 4
  219. (org-test-with-temp-text
  220. "In the middle <point>src_emacs-lisp[:results silent\
  221. :exports code]{(+ 3 1)} of a line"
  222. (org-babel-execute-src-block))))
  223. (should
  224. (= 5
  225. (org-test-with-temp-text
  226. "One at the end of a line: <point>src_emacs-lisp[:results silent\
  227. :exports code]{(+ 4 1)}"
  228. (org-babel-execute-src-block))))
  229. (should
  230. (= 6
  231. (org-test-with-temp-text
  232. "src_emacs-lisp[:results silent :exports code]{(+ 5 1)}\
  233. at the beginning of a line."
  234. (org-babel-execute-src-block))))
  235. (should
  236. (= 7
  237. (org-test-with-temp-text
  238. "One also evaluated: <point>src_emacs-lisp[:exports both\
  239. :results silent]{(+ 6 1)}"
  240. (org-babel-execute-src-block)))))
  241. (ert-deftest test-ob/inline-src_blk-default-results-replace-line-1 ()
  242. (let ((test-line "src_sh{echo 1}")
  243. (org-babel-inline-result-wrap "=%s="))
  244. ;; src_ at bol line 1...
  245. (org-test-with-temp-text
  246. test-line
  247. (goto-char (point-min)) (org-babel-execute-maybe)
  248. (should (string=
  249. (concat test-line " {{{results(=1=)}}}")
  250. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))
  251. (forward-char) (org-babel-execute-maybe)
  252. (should (string=
  253. (concat test-line " {{{results(=1=)}}}")
  254. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))
  255. (re-search-forward "{{{")
  256. ;;(should-error (org-ctrl-c-ctrl-c))
  257. (backward-char 4) ;; last char of block body
  258. (org-babel-execute-maybe)
  259. (should (string=
  260. (concat test-line " {{{results(=1=)}}}")
  261. (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))
  262. ;; src_ follows space line 1...
  263. (let ((test-line " src_emacs-lisp{ 1 }"))
  264. (org-test-with-temp-text
  265. test-line
  266. (should-error (org-ctrl-c-ctrl-c))
  267. (forward-char) (org-babel-execute-maybe)
  268. (should (string=
  269. (concat test-line " {{{results(=1=)}}}")
  270. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))
  271. (re-search-forward "{ 1 ") (org-babel-execute-maybe)
  272. (should (string=
  273. (concat test-line " {{{results(=1=)}}}")
  274. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))
  275. (forward-char 6)
  276. (should-error (org-ctrl-c-ctrl-c))))
  277. ;; Results on a subsequent line are replaced.
  278. (should
  279. (equal
  280. "src_emacs-lisp{(+ 1 2)}\n {{{results(=3=)}}}"
  281. (org-test-with-temp-text "src_emacs-lisp{(+ 1 2)}\n {{{results(=2=)}}}"
  282. (let ((org-babel-inline-result-wrap "=%s=")) (org-babel-execute-maybe))
  283. (buffer-string))))
  284. ;; Also handle results at the beginning of a line.
  285. (should
  286. (equal
  287. "src_emacs-lisp{(+ 1 2)}\n{{{results(=3=)}}}"
  288. (org-test-with-temp-text "src_emacs-lisp{(+ 1 2)}\n{{{results(=2=)}}}"
  289. (let ((org-babel-inline-result-wrap "=%s=")) (org-babel-execute-maybe))
  290. (buffer-string))))))
  291. (ert-deftest test-ob/inline-src_blk-default-results-replace-line-2 ()
  292. ;; src_ at bol line 2...
  293. (let ((test-line " src_emacs-lisp{ \"x\" }")
  294. (org-babel-inline-result-wrap "=%s="))
  295. (org-test-with-temp-text
  296. (concat "\n" test-line)
  297. (should-error (org-ctrl-c-ctrl-c))
  298. (goto-char (point-min))
  299. (should-error (org-ctrl-c-ctrl-c))
  300. (forward-line)
  301. (should-error (org-ctrl-c-ctrl-c))
  302. (forward-char) (org-babel-execute-maybe)
  303. (should (string=
  304. (concat test-line " {{{results(=x=)}}}")
  305. (buffer-substring-no-properties
  306. (point-at-bol) (point-at-eol))))))
  307. (let ((test-line "Some text prior to block src_emacs-lisp{ \"y\" }")
  308. (org-babel-inline-result-wrap "=%s="))
  309. (org-test-with-temp-text
  310. test-line
  311. (goto-char (point-max))
  312. (insert (concat "\n" test-line " end"))
  313. (re-search-backward "src") (org-babel-execute-maybe)
  314. (should (string=
  315. (concat test-line " {{{results(=y=)}}} end")
  316. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))
  317. (re-search-forward "\" ") (org-babel-execute-maybe)
  318. (should (string=
  319. (concat test-line " {{{results(=y=)}}} end")
  320. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))
  321. (forward-char 3)
  322. (should-error (org-ctrl-c-ctrl-c)))))
  323. (ert-deftest test-ob/inline-src_blk-manual-results-replace ()
  324. (let ((test-line " src_emacs-lisp[:results replace]{ \"x\" }")
  325. (org-babel-inline-result-wrap "=%s="))
  326. (org-test-with-temp-text
  327. (concat "\n" test-line)
  328. (should-error (org-ctrl-c-ctrl-c))
  329. (goto-char (point-max))
  330. (org-babel-execute-maybe)
  331. (beginning-of-line)
  332. (should-error (org-ctrl-c-ctrl-c))
  333. (forward-char) (org-babel-execute-maybe)
  334. (should (string=
  335. (concat test-line " {{{results(=x=)}}}")
  336. (buffer-substring-no-properties
  337. (point-at-bol) (point-at-eol))))))
  338. (let ((test-line (concat " Some text prior to block "
  339. "src_emacs-lisp[:results replace]{ \"y\" }"))
  340. (org-babel-inline-result-wrap "=%s="))
  341. (org-test-with-temp-text test-line
  342. (goto-char (point-max))
  343. (insert (concat "\n" test-line " end"))
  344. (re-search-backward "src") (org-babel-execute-maybe)
  345. (should (string=
  346. (concat test-line " {{{results(=y=)}}} end")
  347. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))
  348. (re-search-forward "\" ") (org-babel-execute-maybe)
  349. (should (string=
  350. (concat test-line " {{{results(=y=)}}} end")
  351. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))
  352. (forward-char 3)
  353. (should-error (org-ctrl-c-ctrl-c)))))
  354. (ert-deftest test-ob/inline-src_blk-results-silent ()
  355. (let ((test-line "src_emacs-lisp[ :results silent ]{ \"x\" }"))
  356. (org-test-with-temp-text test-line
  357. (org-babel-execute-maybe)
  358. (should (string= test-line
  359. (buffer-substring-no-properties
  360. (point-at-bol) (point-at-eol))))))
  361. (let ((test-line (concat " Some text prior to block src_emacs-lisp"
  362. "[ :results silent ]{ \"y\" }")))
  363. (org-test-with-temp-text
  364. test-line
  365. (goto-char (point-max))
  366. (insert (concat "\n" test-line " end"))
  367. (re-search-backward "src_") (org-babel-execute-maybe)
  368. (should (string= (concat test-line " end")
  369. (buffer-substring-no-properties
  370. (point-at-bol) (point-at-eol))))
  371. (re-search-forward "\" ") (org-babel-execute-maybe)
  372. (should (string= (concat test-line " end")
  373. (buffer-substring-no-properties
  374. (point-at-bol) (point-at-eol))))
  375. (forward-char 2)
  376. (should-error (org-ctrl-c-ctrl-c)))))
  377. (ert-deftest test-ob/inline-src_blk-results-raw ()
  378. (let ((test-line "src_emacs-lisp[ :results raw ]{ \"x\" }"))
  379. (org-test-with-temp-text test-line
  380. (org-babel-execute-maybe)
  381. (should (string= (concat test-line " x")
  382. (buffer-string)))))
  383. (let ((test-line (concat " Some text prior to block "
  384. "src_emacs-lisp[ :results raw ]{ \"the\" }")))
  385. (org-test-with-temp-text (concat test-line " end")
  386. (re-search-forward "src_") (org-babel-execute-maybe)
  387. (should (string= (concat test-line " the end")
  388. (buffer-substring-no-properties
  389. (point-at-bol) (point-at-eol))))
  390. (re-search-forward "\" ") (org-babel-execute-maybe)
  391. (should (string= (concat test-line " the the end")
  392. (buffer-substring-no-properties
  393. (point-at-bol) (point-at-eol))))
  394. (forward-char 2)
  395. (should-error (org-ctrl-c-ctrl-c)))))
  396. (ert-deftest test-ob/inline-src_blk-results-file ()
  397. (let ((test-line "src_emacs-lisp[ :results file ]{ \"~/test-file\" }"))
  398. (org-test-with-temp-text
  399. test-line
  400. (org-babel-execute-maybe)
  401. (should (string= (concat test-line " {{{results([[file:~/test-file]])}}}")
  402. (buffer-substring-no-properties
  403. (point-min) (point-max)))))))
  404. (ert-deftest test-ob/inline-src_blk-results-scalar ()
  405. (let ((test-line "src_emacs-lisp[ :results scalar ]{ \"x\" }")
  406. (org-babel-inline-result-wrap "=%s="))
  407. (org-test-with-temp-text
  408. test-line
  409. (org-babel-execute-maybe)
  410. (should (string= (concat test-line " {{{results(=\"x\"=)}}}")
  411. (buffer-substring-no-properties
  412. (point-min) (point-max)))))))
  413. (ert-deftest test-ob/inline-src_blk-results-verbatim ()
  414. (let ((test-line "src_emacs-lisp[ :results verbatim ]{ \"x\" }")
  415. (org-babel-inline-result-wrap "=%s="))
  416. (org-test-with-temp-text
  417. test-line
  418. (org-babel-execute-maybe)
  419. (should (string= (concat test-line " {{{results(=\"x\"=)}}}")
  420. (buffer-substring-no-properties
  421. (point-min) (point-max)))))))
  422. (ert-deftest test-ob/combining-scalar-and-raw-result-types ()
  423. (org-test-with-temp-text-in-file "
  424. #+begin_src sh :results scalar
  425. echo \"[[file:./cv.cls]]\"
  426. #+end_src
  427. #+name:
  428. : [[file:./cv.cls]]
  429. #+begin_src sh :results raw scalar
  430. echo \"[[file:./cv.cls]]\"
  431. #+end_src
  432. "
  433. (cl-flet ((next-result ()
  434. (org-babel-next-src-block)
  435. (org-babel-execute-src-block)
  436. (goto-char (org-babel-where-is-src-block-result))
  437. (forward-line 1)))
  438. (goto-char (point-min))
  439. (next-result)
  440. (should (eq (org-element-type (org-element-at-point)) 'fixed-width))
  441. (next-result)
  442. (should-not
  443. (eq (org-element-type (org-element-at-point)) 'fixed-width)))))
  444. (ert-deftest test-ob/no-defaut-value-for-var ()
  445. "Test that the absence of a default value for a variable DOES THROW
  446. a proper error."
  447. (org-test-at-id "f2df5ba6-75fa-4e6b-8441-65ed84963627"
  448. (org-babel-next-src-block)
  449. (let ((err
  450. (should-error (org-babel-execute-src-block) :type 'error)))
  451. (should
  452. (equal
  453. '(error
  454. "Variable \"x\" must be assigned a default value")
  455. err)))))
  456. (ert-deftest test-ob/just-one-results-block ()
  457. "Test that evaluating two times the same code block does not result in a
  458. duplicate results block."
  459. (org-test-with-temp-text "#+begin_src sh\necho Hello\n#+end_src\n"
  460. (org-babel-execute-src-block)
  461. (org-babel-execute-src-block) ; second code block execution
  462. (should (search-forward "Hello")) ; the string inside the source code block
  463. (should (search-forward "Hello")) ; the same string in the results block
  464. (should-error (search-forward "Hello"))))
  465. (ert-deftest test-ob/nested-code-block ()
  466. "Test nested code blocks inside code blocks don't cause problems."
  467. (should
  468. (string= "#+begin_src emacs-lisp\n 'foo\n#+end_src"
  469. (org-test-with-temp-text "#+begin_src org :results silent
  470. ,#+begin_src emacs-lisp
  471. 'foo
  472. ,#+end_src
  473. #+end_src"
  474. (let ((org-edit-src-content-indentation 2)
  475. (org-src-preserve-indentation nil))
  476. (org-babel-execute-src-block))))))
  477. (ert-deftest test-ob/partial-nested-code-block ()
  478. "Test nested code blocks inside code blocks don't cause problems."
  479. (org-test-with-temp-text "#+begin_src org :results silent
  480. ,#+begin_src emacs-lisp
  481. #+end_src"
  482. (should (string= "#+begin_src emacs-lisp" (org-babel-execute-src-block)))))
  483. (ert-deftest test-ob/does-not-replace-a-block-with-the-results ()
  484. (org-test-with-temp-text "#+NAME: foo
  485. #+BEGIN_SRC emacs-lisp
  486. 'foo
  487. #+END_SRC\n"
  488. (org-babel-next-src-block 1)
  489. (should (eq 'foo (org-babel-execute-src-block)))
  490. (goto-char (point-min))
  491. (org-babel-next-src-block 1)
  492. (should (looking-at org-babel-src-block-regexp))))
  493. (ert-deftest test-ob/catches-all-references ()
  494. (org-test-with-temp-text "
  495. #+NAME: literal-example
  496. #+BEGIN_EXAMPLE
  497. A literal example
  498. on two lines
  499. #+END_EXAMPLE
  500. #+NAME: read-literal-example
  501. #+BEGIN_SRC emacs-lisp :var x=literal-example
  502. (concatenate 'string x \" for me.\")
  503. #+END_SRC"
  504. (org-babel-next-src-block 1)
  505. (should (string= (org-babel-execute-src-block)
  506. "A literal example\non two lines\n for me."))))
  507. (ert-deftest test-ob/ignore-reference-in-commented-headings ()
  508. (should
  509. (= 2
  510. (org-test-with-temp-text
  511. "
  512. * COMMENT H1
  513. #+NAME: n
  514. : 1
  515. * H2
  516. #+NAME: n
  517. : 2
  518. * Code
  519. <point>#+BEGIN_SRC emacs-lisp :var x=n
  520. x
  521. #+END_SRC"
  522. (org-babel-execute-src-block)))))
  523. (ert-deftest test-ob/do-not-resolve-to-partial-names-data ()
  524. (org-test-with-temp-text "
  525. #+name: base_plus
  526. | 1 |
  527. | 2 |
  528. #+name: base
  529. | 3 |
  530. | 4 |
  531. #+begin_src emacs-lisp :var x=base
  532. x
  533. #+end_src"
  534. (org-babel-next-src-block 1)
  535. (should (equal (org-babel-execute-src-block) '((3) (4))))))
  536. (ert-deftest test-ob/do-not-resolve-to-partial-names-code ()
  537. (org-test-with-temp-text "
  538. #+name: base_plus
  539. #+begin_src emacs-lisp
  540. 'bar
  541. #+end_src
  542. #+name: base
  543. #+begin_src emacs-lisp
  544. 'foo
  545. #+end_src
  546. #+begin_src emacs-lisp :var x=base
  547. x
  548. #+end_src"
  549. (org-babel-next-src-block 3)
  550. (should (equal (org-babel-execute-src-block) "foo"))))
  551. (ert-deftest test-ob/allow-spaces-around-=-in-var-specs ()
  552. (org-test-with-temp-text "#+begin_src emacs-lisp :var a = 1 b = 2 c= 3 d =4
  553. (+ a b c d)
  554. #+end_src
  555. "
  556. (should (= 10 (org-babel-execute-src-block)))))
  557. (ert-deftest test-ob/org-babel-update-intermediate ()
  558. (org-test-with-temp-text "#+name: foo
  559. #+begin_src emacs-lisp
  560. 2
  561. #+end_src
  562. #+results: foo
  563. : 4
  564. #+begin_src emacs-lisp :var it=foo
  565. (+ it 1)
  566. #+end_src"
  567. (let ((org-babel-update-intermediate nil))
  568. (goto-char (point-min))
  569. (org-babel-next-src-block 2)
  570. (should (= 3 (org-babel-execute-src-block)))
  571. (goto-char (point-min))
  572. (forward-line 6)
  573. (should (looking-at ": 4")))
  574. (let ((org-babel-update-intermediate t))
  575. (goto-char (point-min))
  576. (org-babel-next-src-block 2)
  577. (should (= 3 (org-babel-execute-src-block)))
  578. (goto-char (point-min))
  579. (forward-line 6)
  580. (should (looking-at ": 2")))))
  581. (ert-deftest test-ob/eval-header-argument ()
  582. (cl-flet ((check-eval (eval runp)
  583. (org-test-with-temp-text (format "#+begin_src emacs-lisp :eval %s
  584. (setq foo :evald)
  585. #+end_src" eval)
  586. (let ((foo :not-run))
  587. (if runp
  588. (progn (should (org-babel-execute-src-block))
  589. (should (eq foo :evald)))
  590. (progn (should-not (org-babel-execute-src-block))
  591. (should-not (eq foo :evald))))))))
  592. (check-eval "never" nil)
  593. (check-eval "no" nil)
  594. (check-eval "never-export" t)
  595. (check-eval "no-export" t)
  596. (let ((org-babel-exp-reference-buffer (current-buffer)))
  597. (check-eval "never" nil)
  598. (check-eval "no" nil)
  599. (check-eval "never-export" nil)
  600. (check-eval "no-export" nil))))
  601. (ert-deftest test-ob/noweb-expansion-1 ()
  602. (org-test-with-temp-text "#+begin_src sh :results output :tangle yes
  603. <<foo>>
  604. #+end_src
  605. #+name: foo
  606. #+begin_src sh
  607. bar
  608. #+end_src"
  609. (should (string= (org-babel-expand-noweb-references) "bar"))))
  610. (ert-deftest test-ob/noweb-expansion-2 ()
  611. (org-test-with-temp-text "#+begin_src sh :results output :tangle yes
  612. <<foo>>
  613. #+end_src
  614. #+name: foo
  615. #+begin_src sh :noweb-sep \"\"
  616. bar
  617. #+end_src
  618. #+begin_src sh :noweb-ref foo :noweb-sep \"\"
  619. baz
  620. #+end_src"
  621. (should (string= (org-babel-expand-noweb-references) "barbaz"))))
  622. (ert-deftest test-ob/splitting-variable-lists-in-references ()
  623. (org-test-with-temp-text ""
  624. (should (= 1 (length (org-babel-ref-split-args
  625. "a=\"this, no work\""))))
  626. (should (= 2 (length (org-babel-ref-split-args
  627. "a=\"this, no work\", b=1"))))))
  628. (ert-deftest test-ob/org-babel-balanced-split ()
  629. (should (equal
  630. '(":a 1" "b [2 3]" "c (4 :d (5 6))")
  631. (org-babel-balanced-split ":a 1 :b [2 3] :c (4 :d (5 6))"
  632. '((32 9) . 58)))))
  633. (ert-deftest test-ob/commented-last-block-line-no-var ()
  634. (org-test-with-temp-text-in-file "
  635. #+begin_src emacs-lisp
  636. ;;
  637. #+end_src"
  638. (org-babel-next-src-block)
  639. (org-babel-execute-maybe)
  640. (should (re-search-forward "\\#\\+results:" nil t))
  641. (forward-line)
  642. (should
  643. (string=
  644. ""
  645. (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))
  646. (org-test-with-temp-text-in-file "
  647. #+begin_src emacs-lisp
  648. \"some text\";;
  649. #+end_src"
  650. (org-babel-next-src-block)
  651. (org-babel-execute-maybe)
  652. (should (re-search-forward "\\#\\+results:" nil t))
  653. (forward-line)
  654. (should
  655. (string=
  656. ": some text"
  657. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))
  658. (ert-deftest test-ob/commented-last-block-line-with-var ()
  659. (org-test-with-temp-text-in-file "
  660. #+begin_src emacs-lisp :var a=1
  661. ;;
  662. #+end_src"
  663. (org-babel-next-src-block)
  664. (org-babel-execute-maybe)
  665. (re-search-forward "\\#\\+results:" nil t)
  666. (forward-line)
  667. (should (string=
  668. ""
  669. (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))
  670. (org-test-with-temp-text-in-file "
  671. #+begin_src emacs-lisp :var a=2
  672. 2;;
  673. #+end_src"
  674. (org-babel-next-src-block)
  675. (org-babel-execute-maybe)
  676. (re-search-forward "\\#\\+results:" nil t)
  677. (forward-line)
  678. (should (string=
  679. ": 2"
  680. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))
  681. (ert-deftest test-ob/org-babel-insert-result--improper-lists ()
  682. "Test `org-babel-insert-result' with improper lists."
  683. ;; Do not error when output is an improper list.
  684. (should
  685. (org-test-with-temp-text
  686. "
  687. <point>#+BEGIN_SRC emacs-lisp
  688. '((1 . nil) (2 . 3))
  689. #+END_SRC
  690. "
  691. (org-babel-execute-maybe) t)))
  692. (ert-deftest test-ob/remove-inline-result ()
  693. "Test `org-babel-remove-inline-result' honors whitespace."
  694. (let*
  695. ((inline-sb "src_emacs-lisp{(+ 1 2)}")
  696. (inline-res " {{{results(=3=)}}}")
  697. (inline-sb-dot (concat inline-sb "."))
  698. (inline-sb-res-dot (concat inline-sb inline-res ".")))
  699. (org-test-with-temp-text
  700. ;; Insert inline_src_block followed by dot.
  701. inline-sb-dot
  702. ;; Insert result before dot.
  703. (org-babel-execute-maybe)
  704. (should (string= inline-sb-res-dot
  705. (buffer-substring-no-properties
  706. (point-at-bol) (point-at-eol))))
  707. ;; Delete whitespace and result.
  708. (org-babel-remove-inline-result)
  709. (should (string= inline-sb-dot
  710. (buffer-substring-no-properties
  711. (point-at-bol) (point-at-eol))))
  712. ;; Add whitespace and result before dot.
  713. (search-forward inline-sb)
  714. (insert " " inline-res)
  715. (goto-char (point-at-bol))
  716. ;; Remove whitespace and result.
  717. (org-babel-remove-inline-result)
  718. (should (string= inline-sb-dot
  719. (buffer-substring-no-properties
  720. (point-at-bol) (point-at-eol))))
  721. ;; Add whitespace before dot.
  722. (search-forward inline-sb)
  723. (insert " ")
  724. (goto-char (point-at-bol))
  725. ;; Add result before whitespace.
  726. (org-babel-execute-maybe)
  727. ;; Remove result - leave trailing whitespace and dot.
  728. (org-babel-remove-inline-result)
  729. (should (string= (concat inline-sb " .")
  730. (buffer-substring-no-properties
  731. (point-at-bol) (point-at-eol)))))))
  732. (defun test-ob-verify-result-and-removed-result (result buffer-text)
  733. "Test helper function to test `org-babel-remove-result'.
  734. A temp buffer is populated with BUFFER-TEXT, the first block is executed,
  735. and the result of execution is verified against RESULT.
  736. The block is actually executed /twice/ to ensure result
  737. replacement happens correctly."
  738. (org-test-with-temp-text
  739. buffer-text
  740. (org-babel-next-src-block) (org-babel-execute-maybe) (org-babel-execute-maybe)
  741. (should (re-search-forward "\\#\\+results:" nil t))
  742. (forward-line)
  743. (should (string= result
  744. (buffer-substring-no-properties
  745. (point-at-bol)
  746. (- (point-max) 16))))
  747. (org-babel-previous-src-block) (org-babel-remove-result)
  748. (should (string= buffer-text
  749. (buffer-substring-no-properties
  750. (point-min) (point-max))))))
  751. (ert-deftest test-ob/org-babel-remove-result--results-default ()
  752. "Test `org-babel-remove-result' with default :results."
  753. (mapcar (lambda (language)
  754. (test-ob-verify-result-and-removed-result
  755. "\n"
  756. (concat
  757. "* org-babel-remove-result
  758. #+begin_src " language "
  759. #+end_src
  760. * next heading")))
  761. '("sh" "emacs-lisp")))
  762. (ert-deftest test-ob/org-babel-remove-result--results-list ()
  763. "Test `org-babel-remove-result' with :results list."
  764. (test-ob-verify-result-and-removed-result
  765. "- 1
  766. - 2
  767. - 3
  768. - (quote (4 5))"
  769. "* org-babel-remove-result
  770. #+begin_src emacs-lisp :results list
  771. '(1 2 3 '(4 5))
  772. #+end_src
  773. * next heading"))
  774. (ert-deftest test-ob/org-babel-results-indented-wrap ()
  775. "Ensure that wrapped results are inserted correction when indented.
  776. If not inserted correctly then the second evaluation will fail
  777. trying to find the :END: marker."
  778. (org-test-with-temp-text
  779. "- indented
  780. #+begin_src sh :results file wrap
  781. echo test.txt
  782. #+end_src"
  783. (org-babel-next-src-block 1)
  784. (org-babel-execute-src-block)
  785. (org-babel-execute-src-block)))
  786. (ert-deftest test-ob/file-desc-header-argument ()
  787. "Test that the :file-desc header argument is used."
  788. (org-test-with-temp-text "#+begin_src emacs-lisp :results file :file-desc bar
  789. \"foo\"
  790. #+end_src
  791. #+begin_src emacs-lisp :results file :file-desc
  792. \"foo\"
  793. #+end_src"
  794. (org-babel-execute-src-block)
  795. (org-babel-next-src-block 1)
  796. (org-babel-execute-src-block)
  797. (goto-char (point-min))
  798. (should (search-forward "[[file:foo][bar]]" nil t))
  799. (should (search-forward "[[file:foo][foo]]" nil t))))
  800. (ert-deftest test-ob/org-babel-remove-result--results-pp ()
  801. "Test `org-babel-remove-result' with :results pp."
  802. (test-ob-verify-result-and-removed-result
  803. ": \"I /am/ working!\""
  804. "* org-babel-remove-result
  805. #+begin_src emacs-lisp :results pp
  806. \"I /am/ working!\")
  807. #+end_src
  808. * next heading"))
  809. (ert-deftest test-ob/inline-src_blk-preceded-punct-preceded-by-point ()
  810. (let ((test-line ".src_emacs-lisp[ :results verbatim ]{ \"x\" }")
  811. (org-babel-inline-result-wrap "=%s="))
  812. (org-test-with-temp-text
  813. test-line
  814. (forward-char 1)
  815. (org-babel-execute-maybe)
  816. (should (re-search-forward "=\"x\"=" nil t))
  817. (forward-line))))
  818. (ert-deftest test-ob/commented-last-block-line-with-var ()
  819. (org-test-with-temp-text-in-file "
  820. #+begin_src emacs-lisp :var a=1
  821. ;;
  822. #+end_src"
  823. (org-babel-next-src-block)
  824. (org-babel-execute-maybe)
  825. (re-search-forward "\\#\\+results:" nil t)
  826. (forward-line)
  827. (should (string=
  828. ""
  829. (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))
  830. (org-test-with-temp-text-in-file "
  831. #+begin_src emacs-lisp :var a=2
  832. 2;;
  833. #+end_src"
  834. (org-babel-next-src-block)
  835. (org-babel-execute-maybe)
  836. (re-search-forward "\\#\\+results:" nil t)
  837. (forward-line)
  838. (should (string=
  839. ": 2"
  840. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))
  841. (defun test-ob-verify-result-and-removed-result (result buffer-text)
  842. "Test helper function to test `org-babel-remove-result'.
  843. A temp buffer is populated with BUFFER-TEXT, the first block is executed,
  844. and the result of execution is verified against RESULT.
  845. The block is actually executed /twice/ to ensure result
  846. replacement happens correctly."
  847. (org-test-with-temp-text
  848. buffer-text
  849. (org-babel-next-src-block) (org-babel-execute-maybe) (org-babel-execute-maybe)
  850. (should (re-search-forward "\\#\\+results:" nil t))
  851. (forward-line)
  852. (should (string= result
  853. (buffer-substring-no-properties
  854. (point-at-bol)
  855. (- (point-max) 16))))
  856. (org-babel-previous-src-block) (org-babel-remove-result)
  857. (should (string= buffer-text
  858. (buffer-substring-no-properties
  859. (point-min) (point-max))))))
  860. (ert-deftest test-ob/org-babel-remove-result--results-default ()
  861. "Test `org-babel-remove-result' with default :results."
  862. (mapcar (lambda (language)
  863. (test-ob-verify-result-and-removed-result
  864. "\n"
  865. (concat
  866. "* org-babel-remove-result
  867. #+begin_src " language "
  868. #+end_src
  869. * next heading")))
  870. '("sh" "emacs-lisp")))
  871. (ert-deftest test-ob/org-babel-remove-result--results-list ()
  872. "Test `org-babel-remove-result' with :results list."
  873. (test-ob-verify-result-and-removed-result
  874. "- 1
  875. - 2
  876. - 3
  877. - (quote (4 5))"
  878. "* org-babel-remove-result
  879. #+begin_src emacs-lisp :results list
  880. '(1 2 3 '(4 5))
  881. #+end_src
  882. * next heading"))
  883. (ert-deftest test-ob/org-babel-remove-result--results-wrap ()
  884. "Test `org-babel-remove-result' with :results wrap."
  885. (test-ob-verify-result-and-removed-result
  886. ":RESULTS:
  887. hello there
  888. :END:"
  889. "* org-babel-remove-result
  890. #+begin_src emacs-lisp :results wrap
  891. \"hello there\"
  892. #+end_src
  893. * next heading"))
  894. (ert-deftest test-ob/org-babel-remove-result--results-org ()
  895. "Test `org-babel-remove-result' with :results org."
  896. (test-ob-verify-result-and-removed-result
  897. "#+BEGIN_SRC org
  898. ,* heading
  899. ,** subheading
  900. content
  901. #+END_SRC"
  902. "* org-babel-remove-result
  903. #+begin_src emacs-lisp :results org
  904. \"* heading
  905. ,** subheading
  906. content\"
  907. #+end_src
  908. * next heading"))
  909. (ert-deftest test-ob/org-babel-remove-result--results-html ()
  910. "Test `org-babel-remove-result' with :results html."
  911. (test-ob-verify-result-and-removed-result
  912. "#+BEGIN_EXPORT html
  913. <head><body></body></head>
  914. #+END_EXPORT"
  915. "* org-babel-remove-result
  916. #+begin_src emacs-lisp :results html
  917. \"<head><body></body></head>\"
  918. #+end_src
  919. * next heading"))
  920. (ert-deftest test-ob/org-babel-remove-result--results-latex ()
  921. "Test `org-babel-remove-result' with :results latex."
  922. (test-ob-verify-result-and-removed-result
  923. "#+BEGIN_EXPORT latex
  924. Line 1
  925. Line 2
  926. Line 3
  927. #+END_EXPORT"
  928. "* org-babel-remove-result
  929. #+begin_src emacs-lisp :results latex
  930. \"Line 1
  931. Line 2
  932. Line 3\"
  933. #+end_src
  934. * next heading"))
  935. (ert-deftest test-ob/org-babel-remove-result--results-code ()
  936. "Test `org-babel-remove-result' with :results code."
  937. (test-ob-verify-result-and-removed-result
  938. "#+BEGIN_SRC emacs-lisp
  939. \"I am working!\"
  940. #+END_SRC"
  941. "* org-babel-remove-result
  942. #+begin_src emacs-lisp :results code
  943. (message \"I am working!\")
  944. #+end_src
  945. * next heading"))
  946. (ert-deftest test-ob/org-babel-remove-result--results-pp ()
  947. "Test `org-babel-remove-result' with :results pp."
  948. (test-ob-verify-result-and-removed-result
  949. ": \"I /am/ working!\""
  950. "* org-babel-remove-result
  951. #+begin_src emacs-lisp :results pp
  952. \"I /am/ working!\")
  953. #+end_src
  954. * next heading"))
  955. (ert-deftest test-ob/results-do-not-replace-code-blocks ()
  956. (org-test-with-temp-text "Block two has a space after the name.
  957. #+name: foo
  958. #+begin_src emacs-lisp
  959. 1
  960. #+end_src
  961. #+name: foo
  962. #+begin_src emacs-lisp
  963. 2
  964. #+end_src
  965. #+name: foo
  966. #+begin_src emacs-lisp
  967. 3
  968. #+end_src
  969. #+RESULTS: foo
  970. : foo
  971. "
  972. (dolist (num '(1 2 3))
  973. ;; execute the block
  974. (goto-char (point-min))
  975. (org-babel-next-src-block num) (org-babel-execute-src-block)
  976. ;; check the results
  977. (goto-char (point-max))
  978. (move-beginning-of-line 0)
  979. (should (looking-at (format ": %d" num))))))
  980. (ert-deftest test-ob/blocks-with-spaces ()
  981. "Test expansion of blocks followed by blank lines."
  982. ;; Preserve number of blank lines after block.
  983. (should
  984. (equal "#+BEGIN_SRC emacs-lisp
  985. \(+ 1 2)
  986. #+END_SRC
  987. #+RESULTS:
  988. : 3\n\n\n"
  989. (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp
  990. \(+ 1 2)
  991. #+END_SRC\n\n\n"
  992. (let ((org-babel-next-src-block "RESULTS"))
  993. (org-babel-execute-src-block))
  994. (buffer-string))))
  995. ;; Do not add spurious blank lines after results.
  996. (should
  997. (equal
  998. "
  999. - item 1
  1000. #+begin_src emacs-lisp
  1001. 0
  1002. #+end_src
  1003. #+RESULTS:
  1004. : 0
  1005. - item 2"
  1006. (org-test-with-temp-text "
  1007. - item 1
  1008. #+begin_src emacs-lisp<point>
  1009. 0
  1010. #+end_src
  1011. - item 2"
  1012. (org-babel-execute-src-block)
  1013. (buffer-string))))
  1014. (should
  1015. (equal
  1016. "
  1017. - item 1
  1018. #+begin_src emacs-lisp
  1019. 1
  1020. #+end_src
  1021. #+RESULTS:
  1022. : 1
  1023. - item 2"
  1024. (org-test-with-temp-text "
  1025. - item 1
  1026. #+begin_src emacs-lisp<point>
  1027. 1
  1028. #+end_src
  1029. #+RESULTS:
  1030. : 1
  1031. - item 2"
  1032. (org-babel-execute-src-block)
  1033. (buffer-string)))))
  1034. (ert-deftest test-ob/results-in-narrowed-buffer ()
  1035. "Test block execution in a narrowed buffer."
  1036. ;; If results don't exist, they should be inserted in visible part
  1037. ;; of the buffer.
  1038. (should
  1039. (equal
  1040. "#+BEGIN_SRC emacs-lisp\n(+ 1 2)\n#+END_SRC\n\n#+RESULTS:\n: 3"
  1041. (org-test-with-temp-text
  1042. "#+BEGIN_SRC emacs-lisp\n(+ 1 2)\n#+END_SRC\n\nParagraph"
  1043. (narrow-to-region (point) (save-excursion (forward-line 3) (point)))
  1044. (let ((org-babel-results-keyword "RESULTS"))
  1045. (org-babel-execute-src-block))
  1046. (org-trim (buffer-string)))))
  1047. (should
  1048. (equal
  1049. "#+NAME: test\n#+BEGIN_SRC emacs-lisp\n(+ 1 2)\n#+END_SRC\n\n#+RESULTS: test\n: 3"
  1050. (org-test-with-temp-text
  1051. "#+NAME: test\n#+BEGIN_SRC emacs-lisp\n(+ 1 2)\n#+END_SRC\n\nParagraph"
  1052. (narrow-to-region (point) (save-excursion (forward-line 4) (point)))
  1053. (let ((org-babel-results-keyword "RESULTS"))
  1054. (org-babel-execute-src-block))
  1055. (org-trim (buffer-string)))))
  1056. ;; Results in visible part of buffer, should be updated here.
  1057. (should
  1058. (equal
  1059. "#+NAME: test
  1060. #+BEGIN_SRC emacs-lisp
  1061. \(+ 1 2)
  1062. #+END_SRC
  1063. #+RESULTS: test
  1064. : 3"
  1065. (org-test-with-temp-text
  1066. "#+NAME: test
  1067. #+BEGIN_SRC emacs-lisp
  1068. \(+ 1 2)
  1069. #+END_SRC
  1070. #+RESULTS: test
  1071. : 4
  1072. Paragraph"
  1073. (narrow-to-region (point) (save-excursion (forward-line 7) (point)))
  1074. (let ((org-babel-results-keyword "RESULTS"))
  1075. (org-babel-execute-src-block))
  1076. (org-trim (buffer-string)))))
  1077. ;; Results in invisible part of buffer, should be updated there.
  1078. (org-test-with-temp-text
  1079. "#+NAME: test
  1080. #+BEGIN_SRC emacs-lisp
  1081. \(+ 1 2)
  1082. #+END_SRC
  1083. #+RESULTS: test
  1084. : 4
  1085. Paragraph"
  1086. (narrow-to-region (point) (save-excursion (forward-line 4) (point)))
  1087. (let ((org-babel-results-keyword "RESULTS"))
  1088. (org-babel-execute-src-block))
  1089. (should-not (re-search-forward "^#\\+RESULTS:" nil t))
  1090. (widen)
  1091. (should (re-search-forward "^: 3" nil t))))
  1092. (ert-deftest test-ob/specific-colnames ()
  1093. "Test passing specific column names."
  1094. (should
  1095. (equal "#+name: input-table
  1096. | id | var1 |
  1097. |----+------|
  1098. | 1 | bar |
  1099. | 2 | baz |
  1100. #+begin_src sh :var data=input-table :exports results :colnames '(Rev Author)
  1101. echo \"$data\"
  1102. #+end_src
  1103. #+RESULTS:
  1104. | Rev | Author |
  1105. |-----+--------|
  1106. | 1 | bar |
  1107. | 2 | baz |
  1108. "
  1109. (org-test-with-temp-text
  1110. "#+name: input-table
  1111. | id | var1 |
  1112. |----+------|
  1113. | 1 | bar |
  1114. | 2 | baz |
  1115. #+begin_src sh :var data=input-table :exports results :colnames '(Rev Author)
  1116. echo \"$data\"
  1117. #+end_src
  1118. "
  1119. ;; we should find a code block
  1120. (should (re-search-forward org-babel-src-block-regexp nil t))
  1121. (goto-char (match-beginning 0))
  1122. ;; now that we've located the code block, it may be evaluated
  1123. (let ((org-babel-execute-src-block "RESULTS"))
  1124. (org-babel-execute-src-block))
  1125. (buffer-string)))))
  1126. (ert-deftest test-ob/location-of-header-arg-eval ()
  1127. "Test location of header argument evaluation."
  1128. (org-test-with-temp-text "
  1129. #+name: top-block
  1130. #+begin_src emacs-lisp :var pt=(point)
  1131. pt
  1132. #+end_src
  1133. #+name: bottom-block
  1134. #+begin_src emacs-lisp :var pt=top-block()
  1135. pt
  1136. #+end_src
  1137. "
  1138. ;; the value of the second block should be greater than the first
  1139. (should
  1140. (< (progn (re-search-forward org-babel-src-block-regexp nil t)
  1141. (goto-char (match-beginning 0))
  1142. (prog1 (save-match-data (org-babel-execute-src-block))
  1143. (goto-char (match-end 0))))
  1144. (progn (re-search-forward org-babel-src-block-regexp nil t)
  1145. (goto-char (match-beginning 0))
  1146. (org-babel-execute-src-block))))))
  1147. (ert-deftest test-ob/preserve-results-indentation ()
  1148. "Preserve indentation when executing a src block."
  1149. (should
  1150. (equal
  1151. '(2 2)
  1152. (org-test-with-temp-text " #+begin_src emacs-lisp\n(+ 1 1)\n #+end_src"
  1153. (org-babel-execute-src-block)
  1154. (let ((case-fold-search t)) (search-forward "RESULTS"))
  1155. (list (org-get-indentation)
  1156. (progn (forward-line) (org-get-indentation))))))
  1157. (should
  1158. (equal
  1159. '(2 2)
  1160. (org-test-with-temp-text
  1161. " #+name: block\n #+begin_src emacs-lisp\n(+ 1 1)\n #+end_src"
  1162. (org-babel-execute-src-block)
  1163. (let ((case-fold-search t)) (search-forward "RESULTS"))
  1164. (list (org-get-indentation)
  1165. (progn (forward-line) (org-get-indentation))))))
  1166. ;; Don't get fooled by TAB-based indentation.
  1167. (should
  1168. (equal
  1169. '(6 6)
  1170. (org-test-with-temp-text
  1171. "\t #+begin_src emacs-lisp\n\t (+ 1 1)\n\t #+end_src"
  1172. (setq tab-width 4)
  1173. (org-babel-execute-src-block)
  1174. (let ((case-fold-search t)) (search-forward "RESULTS"))
  1175. (list (org-get-indentation)
  1176. (progn (forward-line) (org-get-indentation)))))))
  1177. (ert-deftest test-ob/safe-header-args ()
  1178. "Detect safe and unsafe header args."
  1179. (let ((safe-args '((:cache . "foo")
  1180. (:results . "output")
  1181. (:eval . "never")
  1182. (:eval . "query")))
  1183. (unsafe-args '((:eval . "yes")
  1184. (:results . "output file")
  1185. (:foo . "bar")))
  1186. (malformed-args '((bar . "foo")
  1187. ("foo" . "bar")
  1188. :foo))
  1189. (safe-p (org-babel-header-args-safe-fn org-babel-safe-header-args)))
  1190. (dolist (arg safe-args)
  1191. (should (org-babel-one-header-arg-safe-p arg org-babel-safe-header-args)))
  1192. (dolist (arg unsafe-args)
  1193. (should (not (org-babel-one-header-arg-safe-p arg org-babel-safe-header-args))))
  1194. (dolist (arg malformed-args)
  1195. (should (not (org-babel-one-header-arg-safe-p arg org-babel-safe-header-args))))
  1196. (should (not (funcall safe-p (append safe-args unsafe-args))))))
  1197. (ert-deftest test-ob/noweb-expansions-in-cache ()
  1198. "Ensure that noweb expansions are expanded before caching."
  1199. (let ((noweb-expansions-in-cache-var 0))
  1200. (org-test-with-temp-text "
  1201. #+name: foo
  1202. #+begin_src emacs-lisp
  1203. \"I said\"
  1204. #+end_src
  1205. #+name: bar
  1206. #+begin_src emacs-lisp :noweb yes :cache yes
  1207. (setq noweb-expansions-in-cache-var
  1208. (+ 1 noweb-expansions-in-cache-var))
  1209. (concat <<foo>> \" check noweb expansions\")
  1210. #+end_src
  1211. "
  1212. ;; run the second block to create the cache
  1213. (goto-char (point-min))
  1214. (re-search-forward (regexp-quote "#+name: bar"))
  1215. (should (string= "I said check noweb expansions"
  1216. (org-babel-execute-src-block)))
  1217. (should (= noweb-expansions-in-cache-var 1))
  1218. ;; change the value of the first block
  1219. (goto-char (point-min))
  1220. (re-search-forward (regexp-quote "said"))
  1221. (goto-char (match-beginning 0))
  1222. (insert "haven't ")
  1223. (re-search-forward (regexp-quote "#+name: bar"))
  1224. (should (string= "I haven't said check noweb expansions"
  1225. (org-babel-execute-src-block)))
  1226. (should (= noweb-expansions-in-cache-var 2)))))
  1227. (ert-deftest test-ob/file-ext-and-output-dir ()
  1228. (org-test-at-id "93573e1d-6486-442e-b6d0-3fedbdc37c9b"
  1229. (org-babel-next-src-block)
  1230. (should (equal "file-ext-basic.txt"
  1231. (cdr (assq :file (nth 2 (org-babel-get-src-block-info t))))))
  1232. (org-babel-next-src-block)
  1233. (should (equal "foo/file-ext-dir-relative.txt"
  1234. (cdr (assq :file (nth 2 (org-babel-get-src-block-info t))))))
  1235. (org-babel-next-src-block)
  1236. (should (equal "foo/file-ext-dir-relative-slash.txt"
  1237. (cdr (assq :file (nth 2 (org-babel-get-src-block-info t))))))
  1238. (org-babel-next-src-block)
  1239. (should (equal "/tmp/file-ext-dir-absolute.txt"
  1240. (cdr (assq :file (nth 2 (org-babel-get-src-block-info t))))))
  1241. (org-babel-next-src-block)
  1242. (should (equal "foo.bar"
  1243. (cdr (assq :file (nth 2 (org-babel-get-src-block-info t))))))
  1244. (org-babel-next-src-block)
  1245. (should (equal "xxx/foo.bar"
  1246. (cdr (assq :file (nth 2 (org-babel-get-src-block-info t))))))
  1247. ))
  1248. (ert-deftest test-ob/script-escape ()
  1249. ;; Delimited lists of numbers
  1250. (should (equal '(1 2 3)
  1251. (org-babel-script-escape "[1 2 3]")))
  1252. (should (equal '(1 2 3)
  1253. (org-babel-script-escape "{1 2 3}")))
  1254. (should (equal '(1 2 3)
  1255. (org-babel-script-escape "(1 2 3)")))
  1256. ;; Delimited lists of double-quoted strings
  1257. (should (equal '("foo" "bar")
  1258. (org-babel-script-escape "(\"foo\" \"bar\")")))
  1259. (should (equal '("foo" "bar")
  1260. (org-babel-script-escape "[\"foo\" \"bar\"]")))
  1261. (should (equal '("foo" "bar")
  1262. (org-babel-script-escape "{\"foo\" \"bar\"}")))
  1263. ;; ... with commas
  1264. (should (equal '("foo" "bar")
  1265. (org-babel-script-escape "(\"foo\", \"bar\")")))
  1266. (should (equal '("foo" "bar")
  1267. (org-babel-script-escape "[\"foo\", \"bar\"]")))
  1268. (should (equal '("foo" "bar")
  1269. (org-babel-script-escape "{\"foo\", \"bar\"}")))
  1270. ;; Delimited lists of single-quoted strings
  1271. (should (equal '("foo" "bar")
  1272. (org-babel-script-escape "('foo' 'bar')")))
  1273. (should (equal '("foo" "bar")
  1274. (org-babel-script-escape "['foo' 'bar']")))
  1275. (should (equal '("foo" "bar")
  1276. (org-babel-script-escape "{'foo' 'bar'}")))
  1277. ;; ... with commas
  1278. (should (equal '("foo" "bar")
  1279. (org-babel-script-escape "('foo', 'bar')")))
  1280. (should (equal '("foo" "bar")
  1281. (org-babel-script-escape "['foo', 'bar']")))
  1282. (should (equal '("foo" "bar")
  1283. (org-babel-script-escape "{'foo', 'bar'}")))
  1284. ;; Single quoted strings
  1285. (should (equal "foo"
  1286. (org-babel-script-escape "'foo'")))
  1287. ;; ... with internal double quote
  1288. (should (equal "foo\"bar"
  1289. (org-babel-script-escape "'foo\"bar'")))
  1290. ;; ... with internal backslash
  1291. (should (equal "foo\\bar"
  1292. (org-babel-script-escape "'foo\\bar'")))
  1293. ;; ... with internal escaped backslash
  1294. (should (equal "foo\\bar"
  1295. (org-babel-script-escape "'foo\\\\bar'")))
  1296. ;; ... with internal backslash-double quote
  1297. (should (equal "foo\\\"bar"
  1298. (org-babel-script-escape "'foo\\\"bar'")))
  1299. ;; ... with internal escaped backslash-double quote
  1300. (should (equal "foo\\\"bar"
  1301. (org-babel-script-escape "'foo\\\\\"bar'")))
  1302. ;; ... with internal escaped single quote
  1303. (should (equal "foo'bar"
  1304. (org-babel-script-escape "'foo\\'bar'")))
  1305. ;; ... with internal escaped backslash-escaped single quote
  1306. (should (equal "foo\\'bar"
  1307. (org-babel-script-escape "'foo\\\\\\'bar'")))
  1308. ;; Double quoted strings
  1309. (should (equal "foo"
  1310. (org-babel-script-escape "\"foo\"")))
  1311. ;; ... with internal single quote
  1312. (should (equal "foo'bar"
  1313. (org-babel-script-escape "\"foo'bar\"")))
  1314. ;; ... with internal backslash
  1315. (should (equal "foo\\bar"
  1316. (org-babel-script-escape "\"foo\\bar\"")))
  1317. ;; ... with internal escaped backslash
  1318. (should (equal "foo\\bar"
  1319. (org-babel-script-escape "\"foo\\\\bar\"")))
  1320. ;; ... with internal backslash-single quote
  1321. (should (equal "foo\\'bar"
  1322. (org-babel-script-escape "\"foo\\'bar\"")))
  1323. ;; ... with internal escaped backslash-single quote
  1324. (should (equal "foo\\'bar"
  1325. (org-babel-script-escape "\"foo\\\\'bar\"")))
  1326. ;; ... with internal escaped double quote
  1327. (should (equal "foo\"bar"
  1328. (org-babel-script-escape "\"foo\\\"bar\"")))
  1329. ;; ... with internal escaped backslash-escaped double quote
  1330. (should (equal "foo\\\"bar"
  1331. (org-babel-script-escape "\"foo\\\\\\\"bar\""))))
  1332. (ert-deftest test-ob/process-params-no-duplicates ()
  1333. (should
  1334. (equal (org-babel-process-params '((:colname-names)
  1335. (:rowname-names)
  1336. (:result-params)
  1337. (:result-type)
  1338. (:var . "\"foo\"")))
  1339. '((:var)
  1340. (:colname-names)
  1341. (:rowname-names)
  1342. (:result-params)
  1343. (:result-type . value)))))
  1344. (defun org-test-babel-confirm-evaluate (eval-value)
  1345. (org-test-with-temp-text (format "#+begin_src emacs-lisp :eval %s
  1346. nil
  1347. #+end_src" eval-value)
  1348. (goto-char (point-min))
  1349. (let ((info (org-babel-get-src-block-info)))
  1350. (org-babel-check-confirm-evaluate info))))
  1351. (ert-deftest test-ob/check-eval ()
  1352. (let ((org-confirm-babel-evaluate t))
  1353. ;; Non-export tests
  1354. (dolist (pair '(("no" . nil)
  1355. ("never" . nil)
  1356. ("query" . query)
  1357. ("yes" . query)))
  1358. (should (eq (org-test-babel-confirm-evaluate (car pair)) (cdr pair))))
  1359. ;; Export tests
  1360. (let ((org-babel-exp-reference-buffer t))
  1361. (dolist (pair '(("no" . nil)
  1362. ("never" . nil)
  1363. ("query" . query)
  1364. ("yes" . query)
  1365. ("never-export" . nil)
  1366. ("no-export" . nil)
  1367. ("query-export" . query)))
  1368. (message (car pair))
  1369. (should (eq (org-test-babel-confirm-evaluate (car pair)) (cdr pair))))))
  1370. (let ((org-confirm-babel-evaluate nil))
  1371. ;; Non-export tests
  1372. (dolist (pair '(("no" . nil)
  1373. ("never" . nil)
  1374. ("query" . query)
  1375. ("yes" . t)))
  1376. (should (eq (org-test-babel-confirm-evaluate (car pair)) (cdr pair))))
  1377. ;; Export tests
  1378. (let ((org-babel-exp-reference-buffer t))
  1379. (dolist (pair '(("no" . nil)
  1380. ("never" . nil)
  1381. ("query" . query)
  1382. ("yes" . t)
  1383. ("never-export" . nil)
  1384. ("no-export" . nil)
  1385. ("query-export" . query)))
  1386. (message (car pair))
  1387. (should (eq (org-test-babel-confirm-evaluate (car pair)) (cdr pair)))))))
  1388. (defun org-test-ob/update-block-body ()
  1389. "Test `org-babel-update-block-body' specifications."
  1390. (should
  1391. (equal "#+begin_src elisp\n 2\n#+end_src"
  1392. (let ((org-edit-src-content-indentation 2))
  1393. (org-test-with-temp-text "#+begin_src elisp\n(+ 1 1)\n#+end_src"
  1394. (org-babel-update-block-body "2")
  1395. (buffer-string)))))
  1396. ;; Preserve block indentation.
  1397. (should
  1398. (equal " #+begin_src elisp\n 2\n #+end_src"
  1399. (let ((org-edit-src-content-indentation 1))
  1400. (org-test-with-temp-text
  1401. " #+begin_src elisp\n (+ 1 1)\n #+end_src"
  1402. (org-babel-update-block-body "2")
  1403. (buffer-string)))))
  1404. ;; Ignore NEW-BODY global indentation.
  1405. (should
  1406. (equal "#+begin_src elisp\n 2\n#+end_src"
  1407. (let ((org-edit-src-content-indentation 2))
  1408. (org-test-with-temp-text "#+begin_src elisp\n(+ 1 1)\n#+end_src"
  1409. (org-babel-update-block-body " 2")
  1410. (buffer-string)))))
  1411. ;; When indentation should be preserved ignore the two rules above.
  1412. (should
  1413. (equal " #+begin_src elisp\n2\n #+end_src"
  1414. (let ((org-edit-src-content-indentation 1)
  1415. (org-src-preserve-indentation t))
  1416. (org-test-with-temp-text
  1417. " #+begin_src elisp\n (+ 1 1)\n #+end_src"
  1418. (org-babel-update-block-body "2")
  1419. (buffer-string)))))
  1420. (should
  1421. (equal " #+begin_src elisp -i\n2\n #+end_src"
  1422. (let ((org-edit-src-content-indentation 1))
  1423. (org-test-with-temp-text
  1424. " #+begin_src elisp -i\n (+ 1 1)\n #+end_src"
  1425. (org-babel-update-block-body "2")
  1426. (buffer-string)))))
  1427. (should
  1428. (equal "#+begin_src elisp\n 2\n#+end_src"
  1429. (let ((org-edit-src-content-indentation 2)
  1430. (org-src-preserve-indentation t))
  1431. (org-test-with-temp-text "#+begin_src elisp\n(+ 1 1)\n#+end_src"
  1432. (org-babel-update-block-body " 2")
  1433. (buffer-string)))))
  1434. (should
  1435. (equal "#+begin_src elisp -i\n 2\n#+end_src"
  1436. (let ((org-edit-src-content-indentation 2)
  1437. (org-src-preserve-indentation t))
  1438. (org-test-with-temp-text "#+begin_src elisp -i\n(+ 1 1)\n#+end_src"
  1439. (org-babel-update-block-body " 2")
  1440. (buffer-string))))))
  1441. (ert-deftest test-ob/find-named-result ()
  1442. "Test `org-babel-find-named-result' specifications."
  1443. (should
  1444. (= 1
  1445. (org-test-with-temp-text "#+results: foo\n: result"
  1446. (org-babel-find-named-result "foo"))))
  1447. (should-not
  1448. (org-test-with-temp-text "#+results: foo\n: result"
  1449. (org-babel-find-named-result "bar")))
  1450. (should-not
  1451. (org-test-with-temp-text "#+results: foobar\n: result"
  1452. (org-babel-find-named-result "foo")))
  1453. ;; Search is case insensitive.
  1454. (should
  1455. (org-test-with-temp-text "#+RESULTS: FOO\n: result"
  1456. (org-babel-find-named-result "foo")))
  1457. ;; Handle hash in results keyword.
  1458. (should
  1459. (org-test-with-temp-text "#+results[hash]: FOO\n: result"
  1460. (org-babel-find-named-result "foo")))
  1461. ;; Accept orphaned affiliated keywords.
  1462. (should
  1463. (org-test-with-temp-text "#+results: foo"
  1464. (org-babel-find-named-result "foo"))))
  1465. (ert-deftest test-ob/where-is-src-block-result ()
  1466. "Test `org-babel-where-is-src-block-result' specifications."
  1467. ;; Find anonymous results.
  1468. (should
  1469. (equal "#+RESULTS:"
  1470. (org-test-with-temp-text
  1471. "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC\n\n#+RESULTS:\n: 2"
  1472. (goto-char (org-babel-where-is-src-block-result))
  1473. (buffer-substring-no-properties (point) (line-end-position)))))
  1474. ;; Find named results. Those have priority over anonymous ones.
  1475. (should
  1476. (equal "#+RESULTS: example"
  1477. (org-test-with-temp-text
  1478. "
  1479. <point>#+NAME: example
  1480. #+BEGIN_SRC emacs-lisp
  1481. \(+ 1 1)
  1482. #+END_SRC
  1483. #+RESULTS: example
  1484. : 2"
  1485. (goto-char (org-babel-where-is-src-block-result))
  1486. (buffer-substring-no-properties (point) (line-end-position)))))
  1487. (should
  1488. (equal "#+RESULTS: example"
  1489. (org-test-with-temp-text
  1490. "
  1491. <point>#+NAME: example
  1492. #+BEGIN_SRC emacs-lisp
  1493. \(+ 1 1)
  1494. #+END_SRC
  1495. #+RESULTS:
  1496. : fake
  1497. #+RESULTS: example
  1498. : 2"
  1499. (goto-char (org-babel-where-is-src-block-result))
  1500. (buffer-substring-no-properties (point) (line-end-position)))))
  1501. ;; Return nil when no result is found.
  1502. (should-not
  1503. (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
  1504. (org-babel-where-is-src-block-result)))
  1505. (should-not
  1506. (org-test-with-temp-text
  1507. "- item\n #+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC\n\n"
  1508. (org-babel-where-is-src-block-result)))
  1509. ;; When optional argument INSERT is non-nil, add RESULTS keyword
  1510. ;; whenever no RESULTS can be found.
  1511. (should
  1512. (equal
  1513. "#+RESULTS:"
  1514. (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
  1515. (let ((org-babel-results-keyword "RESULTS"))
  1516. (goto-char (org-babel-where-is-src-block-result t)))
  1517. (buffer-substring-no-properties (point) (line-end-position)))))
  1518. ;; Insert a named RESULTS keyword if possible.
  1519. (should
  1520. (equal
  1521. "#+RESULTS: e"
  1522. (org-test-with-temp-text
  1523. "#+NAME: e\n#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
  1524. (let ((org-babel-results-keyword "RESULTS"))
  1525. (goto-char (org-babel-where-is-src-block-result t)))
  1526. (buffer-substring-no-properties (point) (line-end-position)))))
  1527. ;; When optional argument HASH is provided, clear RESULTS keyword
  1528. ;; and related contents if they do not match it.
  1529. (should
  1530. (equal
  1531. "#+RESULTS[bbbb]:"
  1532. (org-test-with-temp-text
  1533. "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC\n\n#+RESULTS[aaaa]:\n: 3"
  1534. (let ((org-babel-results-keyword "RESULTS"))
  1535. (goto-char (org-babel-where-is-src-block-result nil nil "bbbb")))
  1536. (org-trim (buffer-substring-no-properties (point) (point-max))))))
  1537. (should
  1538. (equal
  1539. "#+RESULTS[bbbb]:"
  1540. (org-test-with-temp-text
  1541. "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC\n\n#+RESULTS[aaaa]:"
  1542. (let ((org-babel-results-keyword "RESULTS"))
  1543. (goto-char (org-babel-where-is-src-block-result nil nil "bbbb")))
  1544. (org-trim (buffer-substring-no-properties (point) (point-max))))))
  1545. ;; Handle hashes with times.
  1546. (should
  1547. (equal
  1548. "#+RESULTS[<2014-03-04 00:41:10> bbbb]:"
  1549. (org-test-with-temp-text
  1550. "
  1551. <point>#+BEGIN_SRC emacs-lisp
  1552. \(+ 1 1)
  1553. #+END_SRC
  1554. #+RESULTS[<2012-03-29 16:40:12> aaaa]:"
  1555. (let ((org-babel-results-keyword "RESULTS")
  1556. (org-babel-hash-show-time t))
  1557. (cl-letf (((symbol-function 'format-time-string)
  1558. (lambda (&rest _) "<2014-03-04 00:41:10>")))
  1559. (goto-char (org-babel-where-is-src-block-result nil nil "bbbb"))
  1560. (org-trim (buffer-substring-no-properties (point) (point-max))))))))
  1561. (should
  1562. (equal
  1563. "#+RESULTS[<2012-03-29 16:40:12> aaaa]:"
  1564. (org-test-with-temp-text
  1565. "
  1566. <point>#+BEGIN_SRC emacs-lisp
  1567. \(+ 1 1)
  1568. #+END_SRC
  1569. #+RESULTS[<2012-03-29 16:40:12> aaaa]:"
  1570. (let ((org-babel-results-keyword "RESULTS")
  1571. (org-babel-hash-show-time t))
  1572. (cl-letf (((symbol-function 'format-time-string)
  1573. (lambda (&rest _) "<2014-03-04 00:41:10>")))
  1574. (goto-char (org-babel-where-is-src-block-result nil nil "aaaa"))
  1575. (org-trim (buffer-substring-no-properties (point) (point-max))))))))
  1576. ;; RESULTS keyword may not be the last affiliated keyword.
  1577. (should
  1578. (equal
  1579. "#+RESULTS[bbbb]:"
  1580. (org-test-with-temp-text
  1581. "
  1582. <point>#+BEGIN_SRC emacs-lisp
  1583. \(+ 1 1)
  1584. #+END_SRC
  1585. #+RESULTS[aaaa]:
  1586. #+NAME: e
  1587. : 3"
  1588. (let ((org-babel-results-keyword "RESULTS"))
  1589. (goto-char (org-babel-where-is-src-block-result nil nil "bbbb")))
  1590. (org-trim (buffer-substring-no-properties (point) (point-max))))))
  1591. ;; HASH does nothing if no RESULTS can be found. However, if INSERT
  1592. ;; is also non-nil, RESULTS keyword is inserted along with the
  1593. ;; expected hash.
  1594. (should
  1595. (equal
  1596. "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
  1597. (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
  1598. (org-babel-where-is-src-block-result nil nil "bbbb")
  1599. (buffer-string))))
  1600. (should
  1601. (equal
  1602. "#+RESULTS[bbbb]:"
  1603. (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
  1604. (let ((org-babel-results-keyword "RESULTS"))
  1605. (goto-char (org-babel-where-is-src-block-result t nil "bbbb")))
  1606. (org-trim (buffer-substring-no-properties (point) (point-max)))))))
  1607. (ert-deftest test-ob/goto-named-src-block ()
  1608. "Test interactive use of `org-babel-goto-named-src-block'."
  1609. (org-test-with-temp-text-in-file
  1610. "
  1611. #+NAME: abc
  1612. #+BEGIN_SRC emacs-lisp :results value
  1613. (1+ 1)
  1614. #+END_SRC
  1615. #+CALL: abc( lorem() ) :results raw :wrap EXAMPLE
  1616. #+BEGIN_SRC emacs-lisp
  1617. <<abc>>
  1618. #+END_SRC
  1619. abc
  1620. #+RESULTS: abc
  1621. : 2
  1622. "
  1623. ;; non-existent name
  1624. (should-not
  1625. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\nno-name\n"))
  1626. ;; correct name
  1627. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\nabc\n")
  1628. (should (= 14 (point)))
  1629. ;; call line - autocompletion
  1630. (forward-line 3)
  1631. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\n\n")
  1632. (should (= 14 (point)))
  1633. ;; noweb reference - autocompletion
  1634. (forward-line 5)
  1635. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\n\n")
  1636. (should (= 14 (point)))
  1637. ;; at symbol - autocompletion
  1638. (forward-line 7)
  1639. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\n\n")
  1640. (should (= 14 (point)))
  1641. ;; in results - autocompletion
  1642. (forward-line 8)
  1643. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\n\n")
  1644. (should (= 14 (point)))
  1645. (forward-line 9)
  1646. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\n\n")
  1647. (should (= 14 (point)))))
  1648. (ert-deftest test-ob/evaluate-body-with-coderefs ()
  1649. (should
  1650. (= 2
  1651. (org-test-with-temp-text
  1652. "#+begin_src emacs-lisp -l \"#(ref:%s)\"\n2 #(ref:foo)\n#+end_src"
  1653. (org-babel-execute-src-block))))
  1654. (should
  1655. (= 3
  1656. (org-test-with-temp-text
  1657. "#+begin_src emacs-lisp\n3 #(ref:foo)\n#+end_src"
  1658. (let ((org-coderef-label-format "#(ref:%s)"))
  1659. (org-babel-execute-src-block))))))
  1660. (provide 'test-ob)
  1661. ;;; test-ob ends here