test-ob.el 59 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991
  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 ()
  602. ;; Standard test.
  603. (should
  604. (string=
  605. "bar"
  606. (org-test-with-temp-text "#+begin_src sh :results output :tangle yes
  607. <<foo>>
  608. #+end_src
  609. #+name: foo
  610. #+begin_src sh
  611. bar
  612. #+end_src"
  613. (org-babel-expand-noweb-references))))
  614. ;; Handle :noweb-sep.
  615. (should
  616. (string=
  617. "barbaz"
  618. (org-test-with-temp-text "#+begin_src sh :results output :tangle yes
  619. <<foo>>
  620. #+end_src
  621. #+begin_src sh :noweb-ref foo :noweb-sep \"\"
  622. bar
  623. #+end_src
  624. #+begin_src sh :noweb-ref foo :noweb-sep \"\"
  625. baz
  626. #+end_src"
  627. (org-babel-expand-noweb-references))))
  628. ;; :noweb-ref is extracted from definition, not point of call.
  629. (should
  630. (string=
  631. "(+ 1 1)"
  632. (org-test-with-temp-text
  633. "
  634. * Call
  635. :PROPERTIES:
  636. :header-args: :noweb-ref bar
  637. :END:
  638. <point>#+begin_src emacs-lisp :results output :tangle yes
  639. <<foo>>
  640. #+end_src
  641. * Evaluation
  642. :PROPERTIES:
  643. :header-args: :noweb-ref foo
  644. :END:
  645. #+begin_src sh :noweb-sep \"\"
  646. (+ 1 1)
  647. #+end_src"
  648. (org-babel-expand-noweb-references))))
  649. ;; Handle recursive expansion.
  650. (should
  651. (equal "baz"
  652. (org-test-with-temp-text "
  653. #+begin_src emacs-lisp :noweb yes<point>
  654. <<foo>>
  655. #+end_src
  656. #+name: foo
  657. #+begin_src emacs-lisp :noweb yes
  658. <<bar>>
  659. #+end_src
  660. #+name: bar
  661. #+begin_src emacs-lisp
  662. baz
  663. #+end_src"
  664. (org-babel-expand-noweb-references))))
  665. ;; During recursive expansion, obey to `:noweb' property.
  666. (should
  667. (equal "<<bar>>"
  668. (org-test-with-temp-text "
  669. #+begin_src emacs-lisp :noweb yes<point>
  670. <<foo>>
  671. #+end_src
  672. #+name: foo
  673. #+begin_src emacs-lisp :noweb no
  674. <<bar>>
  675. #+end_src
  676. #+name: bar
  677. #+begin_src emacs-lisp
  678. baz
  679. #+end_src"
  680. (org-babel-expand-noweb-references)))))
  681. (ert-deftest test-ob/splitting-variable-lists-in-references ()
  682. (org-test-with-temp-text ""
  683. (should (= 1 (length (org-babel-ref-split-args
  684. "a=\"this, no work\""))))
  685. (should (= 2 (length (org-babel-ref-split-args
  686. "a=\"this, no work\", b=1"))))))
  687. (ert-deftest test-ob/balanced-split ()
  688. "Test `org-babel-balanced-split' specifications."
  689. (should (equal
  690. '(":a 1" "b [2 3]" "c (4 :d (5 6))")
  691. (org-babel-balanced-split ":a 1 :b [2 3] :c (4 :d (5 6))"
  692. '((32 9) . 58))))
  693. ;; Handle un-balanced parens.
  694. (should
  695. (equal '(":foo ((6)" "bar 1")
  696. (org-babel-balanced-split ":foo ((6) :bar 1" '((32 9) . 58))))
  697. (should
  698. (equal '(":foo \"(foo\"" "bar 2")
  699. (org-babel-balanced-split ":foo \"(foo\" :bar 2" '((32 9) . 58))))
  700. ;; Handle un-balanced quotes.
  701. (should
  702. (equal '(":foo \"1" "bar 3")
  703. (org-babel-balanced-split ":foo \"1 :bar 3" '((32 9) . 58))))
  704. ;; Handle empty string.
  705. (should
  706. (equal '(":foo \"\"")
  707. (org-babel-balanced-split ":foo \"\"" '((32 9) . 58))))
  708. ;; Handle control characters within double quotes.
  709. (should
  710. (equal '(":foo \"\\n\"")
  711. (org-babel-balanced-split ":foo \"\\n\"" '((32 9) . 58)))))
  712. (ert-deftest test-ob/commented-last-block-line-no-var ()
  713. (org-test-with-temp-text-in-file "
  714. #+begin_src emacs-lisp
  715. ;;
  716. #+end_src"
  717. (org-babel-next-src-block)
  718. (org-babel-execute-maybe)
  719. (should (re-search-forward "\\#\\+results:" nil t))
  720. (forward-line)
  721. (should
  722. (string=
  723. ""
  724. (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))
  725. (org-test-with-temp-text-in-file "
  726. #+begin_src emacs-lisp
  727. \"some text\";;
  728. #+end_src"
  729. (org-babel-next-src-block)
  730. (org-babel-execute-maybe)
  731. (should (re-search-forward "\\#\\+results:" nil t))
  732. (forward-line)
  733. (should
  734. (string=
  735. ": some text"
  736. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))
  737. (ert-deftest test-ob/commented-last-block-line-with-var ()
  738. (org-test-with-temp-text-in-file "
  739. #+begin_src emacs-lisp :var a=1
  740. ;;
  741. #+end_src"
  742. (org-babel-next-src-block)
  743. (org-babel-execute-maybe)
  744. (re-search-forward "\\#\\+results:" nil t)
  745. (forward-line)
  746. (should (string=
  747. ""
  748. (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))
  749. (org-test-with-temp-text-in-file "
  750. #+begin_src emacs-lisp :var a=2
  751. 2;;
  752. #+end_src"
  753. (org-babel-next-src-block)
  754. (org-babel-execute-maybe)
  755. (re-search-forward "\\#\\+results:" nil t)
  756. (forward-line)
  757. (should (string=
  758. ": 2"
  759. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))
  760. (ert-deftest test-ob/org-babel-insert-result ()
  761. "Test `org-babel-insert-result' specifications."
  762. ;; Do not error when output is an improper list.
  763. (should
  764. (org-test-with-temp-text
  765. "
  766. <point>#+BEGIN_SRC emacs-lisp
  767. '((1 . nil) (2 . 3))
  768. #+END_SRC
  769. "
  770. (org-babel-execute-maybe) t))
  771. ;; Escape headlines when producing an example block.
  772. (should
  773. (string-match-p
  774. ",\\* Not an headline"
  775. (org-test-with-temp-text
  776. "
  777. <point>#+BEGIN_SRC emacs-lisp
  778. \"* Not an headline\"
  779. #+END_SRC
  780. "
  781. (let ((org-babel-min-lines-for-block-output 1)) (org-babel-execute-maybe))
  782. (buffer-string))))
  783. ;; Escape special syntax in example blocks.
  784. (should
  785. (string-match-p
  786. ",#\\+END_SRC"
  787. (org-test-with-temp-text
  788. "
  789. <point>#+BEGIN_SRC emacs-lisp
  790. \"#+END_SRC\"
  791. #+END_SRC
  792. "
  793. (let ((org-babel-min-lines-for-block-output 1)) (org-babel-execute-maybe))
  794. (buffer-string))))
  795. ;; No escaping is done with other blocks or raw type.
  796. (should-not
  797. (string-match-p
  798. ",\\* Not an headline"
  799. (org-test-with-temp-text
  800. "
  801. <point>#+BEGIN_SRC emacs-lisp
  802. \"* Not an headline\"
  803. #+END_SRC
  804. "
  805. (let ((org-babel-min-lines-for-block-output 10))
  806. (org-babel-execute-maybe))
  807. (buffer-string))))
  808. (should-not
  809. (string-match-p
  810. ",\\* Not an headline"
  811. (org-test-with-temp-text
  812. "
  813. <point>#+BEGIN_SRC emacs-lisp :results raw
  814. \"* Not an headline\"
  815. #+END_SRC
  816. "
  817. (org-babel-execute-maybe)
  818. (buffer-string))))
  819. (should-not
  820. (string-match-p
  821. ",\\* Not an headline"
  822. (org-test-with-temp-text
  823. "
  824. <point>#+BEGIN_SRC emacs-lisp :results drawer
  825. \"* Not an headline\"
  826. #+END_SRC
  827. "
  828. (org-babel-execute-maybe)
  829. (buffer-string)))))
  830. (ert-deftest test-ob/remove-inline-result ()
  831. "Test `org-babel-remove-inline-result' honors whitespace."
  832. (let*
  833. ((inline-sb "src_emacs-lisp{(+ 1 2)}")
  834. (inline-res " {{{results(=3=)}}}")
  835. (inline-sb-dot (concat inline-sb "."))
  836. (inline-sb-res-dot (concat inline-sb inline-res ".")))
  837. (org-test-with-temp-text
  838. ;; Insert inline_src_block followed by dot.
  839. inline-sb-dot
  840. ;; Insert result before dot.
  841. (org-babel-execute-maybe)
  842. (should (string= inline-sb-res-dot
  843. (buffer-substring-no-properties
  844. (point-at-bol) (point-at-eol))))
  845. ;; Delete whitespace and result.
  846. (org-babel-remove-inline-result)
  847. (should (string= inline-sb-dot
  848. (buffer-substring-no-properties
  849. (point-at-bol) (point-at-eol))))
  850. ;; Add whitespace and result before dot.
  851. (search-forward inline-sb)
  852. (insert " " inline-res)
  853. (goto-char (point-at-bol))
  854. ;; Remove whitespace and result.
  855. (org-babel-remove-inline-result)
  856. (should (string= inline-sb-dot
  857. (buffer-substring-no-properties
  858. (point-at-bol) (point-at-eol))))
  859. ;; Add whitespace before dot.
  860. (search-forward inline-sb)
  861. (insert " ")
  862. (goto-char (point-at-bol))
  863. ;; Add result before whitespace.
  864. (org-babel-execute-maybe)
  865. ;; Remove result - leave trailing whitespace and dot.
  866. (org-babel-remove-inline-result)
  867. (should (string= (concat inline-sb " .")
  868. (buffer-substring-no-properties
  869. (point-at-bol) (point-at-eol)))))))
  870. (ert-deftest test-ob/org-babel-remove-result--results-default ()
  871. "Test `org-babel-remove-result' with default :results."
  872. (mapcar (lambda (language)
  873. (test-ob-verify-result-and-removed-result
  874. "\n"
  875. (concat
  876. "* org-babel-remove-result
  877. #+begin_src " language "
  878. #+end_src
  879. * next heading")))
  880. '("sh" "emacs-lisp")))
  881. (ert-deftest test-ob/org-babel-results-indented-wrap ()
  882. "Ensure that wrapped results are inserted correction when indented.
  883. If not inserted correctly then the second evaluation will fail
  884. trying to find the :END: marker."
  885. (org-test-with-temp-text
  886. "- indented
  887. #+begin_src sh :results file wrap
  888. echo test.txt
  889. #+end_src"
  890. (org-babel-next-src-block 1)
  891. (org-babel-execute-src-block)
  892. (org-babel-execute-src-block)))
  893. (ert-deftest test-ob/file-desc-header-argument ()
  894. "Test that the :file-desc header argument is used."
  895. (org-test-with-temp-text "#+begin_src emacs-lisp :results file :file-desc bar
  896. \"foo\"
  897. #+end_src
  898. #+begin_src emacs-lisp :results file :file-desc
  899. \"foo\"
  900. #+end_src"
  901. (org-babel-execute-src-block)
  902. (org-babel-next-src-block 1)
  903. (org-babel-execute-src-block)
  904. (goto-char (point-min))
  905. (should (search-forward "[[file:foo][bar]]" nil t))
  906. (should (search-forward "[[file:foo][foo]]" nil t))))
  907. (ert-deftest test-ob/inline-src_blk-preceded-punct-preceded-by-point ()
  908. (let ((test-line ".src_emacs-lisp[ :results verbatim ]{ \"x\" }")
  909. (org-babel-inline-result-wrap "=%s="))
  910. (org-test-with-temp-text
  911. test-line
  912. (forward-char 1)
  913. (org-babel-execute-maybe)
  914. (should (re-search-forward "=\"x\"=" nil t))
  915. (forward-line))))
  916. (ert-deftest test-ob/commented-last-block-line-with-var ()
  917. (org-test-with-temp-text-in-file "
  918. #+begin_src emacs-lisp :var a=1
  919. ;;
  920. #+end_src"
  921. (org-babel-next-src-block)
  922. (org-babel-execute-maybe)
  923. (re-search-forward "\\#\\+results:" nil t)
  924. (forward-line)
  925. (should (string=
  926. ""
  927. (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))
  928. (org-test-with-temp-text-in-file "
  929. #+begin_src emacs-lisp :var a=2
  930. 2;;
  931. #+end_src"
  932. (org-babel-next-src-block)
  933. (org-babel-execute-maybe)
  934. (re-search-forward "\\#\\+results:" nil t)
  935. (forward-line)
  936. (should (string=
  937. ": 2"
  938. (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))
  939. (defun test-ob-verify-result-and-removed-result (result buffer-text)
  940. "Test helper function to test `org-babel-remove-result'.
  941. A temp buffer is populated with BUFFER-TEXT, the first block is executed,
  942. and the result of execution is verified against RESULT.
  943. The block is actually executed /twice/ to ensure result
  944. replacement happens correctly."
  945. (org-test-with-temp-text
  946. buffer-text
  947. (org-babel-next-src-block) (org-babel-execute-maybe) (org-babel-execute-maybe)
  948. (should (re-search-forward "\\#\\+results:" nil t))
  949. (forward-line)
  950. (should (string= result
  951. (buffer-substring-no-properties
  952. (point-at-bol)
  953. (- (point-max) 16))))
  954. (org-babel-previous-src-block) (org-babel-remove-result)
  955. (should (string= buffer-text
  956. (buffer-substring-no-properties
  957. (point-min) (point-max))))))
  958. (ert-deftest test-ob/org-babel-remove-result--results-list ()
  959. "Test `org-babel-remove-result' with :results list."
  960. (test-ob-verify-result-and-removed-result
  961. "- 1
  962. - 2
  963. - 3
  964. - (quote (4 5))"
  965. "* org-babel-remove-result
  966. #+begin_src emacs-lisp :results list
  967. '(1 2 3 '(4 5))
  968. #+end_src
  969. * next heading"))
  970. (ert-deftest test-ob/org-babel-remove-result--results-wrap ()
  971. "Test `org-babel-remove-result' with :results wrap."
  972. (test-ob-verify-result-and-removed-result
  973. ":results:
  974. hello there
  975. :end:"
  976. "* org-babel-remove-result
  977. #+begin_src emacs-lisp :results wrap
  978. \"hello there\"
  979. #+end_src
  980. * next heading"))
  981. (ert-deftest test-ob/org-babel-remove-result--results-org ()
  982. "Test `org-babel-remove-result' with :results org."
  983. (test-ob-verify-result-and-removed-result
  984. "#+begin_src org
  985. ,* heading
  986. ,** subheading
  987. content
  988. #+end_src"
  989. "* org-babel-remove-result
  990. #+begin_src emacs-lisp :results org
  991. \"* heading
  992. ,** subheading
  993. content\"
  994. #+end_src
  995. * next heading"))
  996. (ert-deftest test-ob/org-babel-remove-result--results-html ()
  997. "Test `org-babel-remove-result' with :results html."
  998. (test-ob-verify-result-and-removed-result
  999. "#+begin_export html
  1000. <head><body></body></head>
  1001. #+end_export"
  1002. "* org-babel-remove-result
  1003. #+begin_src emacs-lisp :results html
  1004. \"<head><body></body></head>\"
  1005. #+end_src
  1006. * next heading"))
  1007. (ert-deftest test-ob/org-babel-remove-result--results-latex ()
  1008. "Test `org-babel-remove-result' with :results latex."
  1009. (test-ob-verify-result-and-removed-result
  1010. "#+begin_export latex
  1011. Line 1
  1012. Line 2
  1013. Line 3
  1014. #+end_export"
  1015. "* org-babel-remove-result
  1016. #+begin_src emacs-lisp :results latex
  1017. \"Line 1
  1018. Line 2
  1019. Line 3\"
  1020. #+end_src
  1021. * next heading"))
  1022. (ert-deftest test-ob/org-babel-remove-result--results-code ()
  1023. "Test `org-babel-remove-result' with :results code."
  1024. (test-ob-verify-result-and-removed-result
  1025. "#+begin_src emacs-lisp
  1026. \"I am working!\"
  1027. #+end_src"
  1028. "* org-babel-remove-result
  1029. #+begin_src emacs-lisp :results code
  1030. (message \"I am working!\")
  1031. #+end_src
  1032. * next heading"))
  1033. (ert-deftest test-ob/org-babel-remove-result--results-pp ()
  1034. "Test `org-babel-remove-result' with :results pp."
  1035. (test-ob-verify-result-and-removed-result
  1036. ": \"I /am/ working!\""
  1037. "* org-babel-remove-result
  1038. #+begin_src emacs-lisp :results pp
  1039. \"I /am/ working!\")
  1040. #+end_src
  1041. * next heading"))
  1042. (ert-deftest test-ob/org-babel-remove-result--no-blank-line ()
  1043. "Test `org-babel-remove-result' without blank line between code and results."
  1044. (should
  1045. (equal "
  1046. #+begin_src emacs-lisp
  1047. (+ 1 1)
  1048. #+end_src
  1049. #+results:
  1050. : 2
  1051. * next heading"
  1052. (org-test-with-temp-text
  1053. "
  1054. <point>#+begin_src emacs-lisp
  1055. (+ 1 1)
  1056. #+end_src
  1057. #+results:
  1058. : 2
  1059. * next heading"
  1060. (org-babel-execute-maybe)
  1061. (buffer-string)))))
  1062. (ert-deftest test-ob/results-do-not-replace-code-blocks ()
  1063. (org-test-with-temp-text "Block two has a space after the name.
  1064. #+name: foo
  1065. #+begin_src emacs-lisp
  1066. 1
  1067. #+end_src
  1068. #+name: foo
  1069. #+begin_src emacs-lisp
  1070. 2
  1071. #+end_src
  1072. #+name: foo
  1073. #+begin_src emacs-lisp
  1074. 3
  1075. #+end_src
  1076. #+RESULTS: foo
  1077. : foo
  1078. "
  1079. (dolist (num '(1 2 3))
  1080. ;; execute the block
  1081. (goto-char (point-min))
  1082. (org-babel-next-src-block num) (org-babel-execute-src-block)
  1083. ;; check the results
  1084. (goto-char (point-max))
  1085. (move-beginning-of-line 0)
  1086. (should (looking-at (format ": %d" num))))))
  1087. (ert-deftest test-ob/blocks-with-spaces ()
  1088. "Test expansion of blocks followed by blank lines."
  1089. ;; Preserve number of blank lines after block.
  1090. (should
  1091. (equal "#+BEGIN_SRC emacs-lisp
  1092. \(+ 1 2)
  1093. #+END_SRC
  1094. #+RESULTS:
  1095. : 3\n\n\n"
  1096. (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp
  1097. \(+ 1 2)
  1098. #+END_SRC\n\n\n"
  1099. (let ((org-babel-next-src-block "RESULTS"))
  1100. (org-babel-execute-src-block))
  1101. (buffer-string))))
  1102. ;; Do not add spurious blank lines after results.
  1103. (should
  1104. (equal
  1105. "
  1106. - item 1
  1107. #+begin_src emacs-lisp
  1108. 0
  1109. #+end_src
  1110. #+RESULTS:
  1111. : 0
  1112. - item 2"
  1113. (org-test-with-temp-text "
  1114. - item 1
  1115. #+begin_src emacs-lisp<point>
  1116. 0
  1117. #+end_src
  1118. - item 2"
  1119. (org-babel-execute-src-block)
  1120. (buffer-string))))
  1121. (should
  1122. (equal
  1123. "
  1124. - item 1
  1125. #+begin_src emacs-lisp
  1126. 1
  1127. #+end_src
  1128. #+RESULTS:
  1129. : 1
  1130. - item 2"
  1131. (org-test-with-temp-text "
  1132. - item 1
  1133. #+begin_src emacs-lisp<point>
  1134. 1
  1135. #+end_src
  1136. #+RESULTS:
  1137. : 1
  1138. - item 2"
  1139. (org-babel-execute-src-block)
  1140. (buffer-string)))))
  1141. (ert-deftest test-ob/results-in-narrowed-buffer ()
  1142. "Test block execution in a narrowed buffer."
  1143. ;; If results don't exist, they should be inserted in visible part
  1144. ;; of the buffer.
  1145. (should
  1146. (equal
  1147. "#+BEGIN_SRC emacs-lisp\n(+ 1 2)\n#+END_SRC\n\n#+RESULTS:\n: 3"
  1148. (org-test-with-temp-text
  1149. "#+BEGIN_SRC emacs-lisp\n(+ 1 2)\n#+END_SRC\n\nParagraph"
  1150. (narrow-to-region (point) (save-excursion (forward-line 3) (point)))
  1151. (let ((org-babel-results-keyword "RESULTS"))
  1152. (org-babel-execute-src-block))
  1153. (org-trim (buffer-string)))))
  1154. (should
  1155. (equal
  1156. "#+NAME: test\n#+BEGIN_SRC emacs-lisp\n(+ 1 2)\n#+END_SRC\n\n#+RESULTS: test\n: 3"
  1157. (org-test-with-temp-text
  1158. "#+NAME: test\n#+BEGIN_SRC emacs-lisp\n(+ 1 2)\n#+END_SRC\n\nParagraph"
  1159. (narrow-to-region (point) (save-excursion (forward-line 4) (point)))
  1160. (let ((org-babel-results-keyword "RESULTS"))
  1161. (org-babel-execute-src-block))
  1162. (org-trim (buffer-string)))))
  1163. ;; Results in visible part of buffer, should be updated here.
  1164. (should
  1165. (equal
  1166. "#+NAME: test
  1167. #+BEGIN_SRC emacs-lisp
  1168. \(+ 1 2)
  1169. #+END_SRC
  1170. #+RESULTS: test
  1171. : 3"
  1172. (org-test-with-temp-text
  1173. "#+NAME: test
  1174. #+BEGIN_SRC emacs-lisp
  1175. \(+ 1 2)
  1176. #+END_SRC
  1177. #+RESULTS: test
  1178. : 4
  1179. <point>
  1180. Paragraph"
  1181. (narrow-to-region (point-min) (point))
  1182. (goto-char (point-min))
  1183. (let ((org-babel-results-keyword "RESULTS"))
  1184. (org-babel-execute-src-block))
  1185. (org-trim (buffer-string)))))
  1186. ;; Results in invisible part of buffer, should be updated there.
  1187. (org-test-with-temp-text
  1188. "#+NAME: test
  1189. #+BEGIN_SRC emacs-lisp
  1190. \(+ 1 2)
  1191. #+END_SRC
  1192. #+RESULTS: test
  1193. : 4
  1194. Paragraph"
  1195. (narrow-to-region (point) (save-excursion (forward-line 4) (point)))
  1196. (let ((org-babel-results-keyword "RESULTS"))
  1197. (org-babel-execute-src-block))
  1198. (should-not (re-search-forward "^#\\+RESULTS:" nil t))
  1199. (widen)
  1200. (should (re-search-forward "^: 3" nil t))))
  1201. (ert-deftest test-ob/specific-colnames ()
  1202. "Test passing specific column names."
  1203. (should
  1204. (equal "#+name: input-table
  1205. | id | var1 |
  1206. |----+------|
  1207. | 1 | bar |
  1208. | 2 | baz |
  1209. #+begin_src sh :var data=input-table :exports results :colnames '(Rev Author)
  1210. echo \"$data\"
  1211. #+end_src
  1212. #+RESULTS:
  1213. | Rev | Author |
  1214. |-----+--------|
  1215. | 1 | bar |
  1216. | 2 | baz |
  1217. "
  1218. (org-test-with-temp-text
  1219. "#+name: input-table
  1220. | id | var1 |
  1221. |----+------|
  1222. | 1 | bar |
  1223. | 2 | baz |
  1224. #+begin_src sh :var data=input-table :exports results :colnames '(Rev Author)
  1225. echo \"$data\"
  1226. #+end_src
  1227. "
  1228. ;; we should find a code block
  1229. (should (re-search-forward org-babel-src-block-regexp nil t))
  1230. (goto-char (match-beginning 0))
  1231. ;; now that we've located the code block, it may be evaluated
  1232. (let ((org-babel-execute-src-block "RESULTS"))
  1233. (org-babel-execute-src-block))
  1234. (buffer-string)))))
  1235. (ert-deftest test-ob/location-of-header-arg-eval ()
  1236. "Test location of header argument evaluation."
  1237. (org-test-with-temp-text "
  1238. #+name: top-block
  1239. #+begin_src emacs-lisp :var pt=(point)
  1240. pt
  1241. #+end_src
  1242. #+name: bottom-block
  1243. #+begin_src emacs-lisp :var pt=top-block()
  1244. pt
  1245. #+end_src
  1246. "
  1247. ;; the value of the second block should be greater than the first
  1248. (should
  1249. (< (progn (re-search-forward org-babel-src-block-regexp nil t)
  1250. (goto-char (match-beginning 0))
  1251. (prog1 (save-match-data (org-babel-execute-src-block))
  1252. (goto-char (match-end 0))))
  1253. (progn (re-search-forward org-babel-src-block-regexp nil t)
  1254. (goto-char (match-beginning 0))
  1255. (org-babel-execute-src-block))))))
  1256. (ert-deftest test-ob/preserve-results-indentation ()
  1257. "Preserve indentation when executing a src block."
  1258. (should
  1259. (equal
  1260. '(2 2)
  1261. (org-test-with-temp-text " #+begin_src emacs-lisp\n(+ 1 1)\n #+end_src"
  1262. (org-babel-execute-src-block)
  1263. (let ((case-fold-search t)) (search-forward "RESULTS"))
  1264. (list (org-get-indentation)
  1265. (progn (forward-line) (org-get-indentation))))))
  1266. (should
  1267. (equal
  1268. '(2 2)
  1269. (org-test-with-temp-text
  1270. " #+name: block\n #+begin_src emacs-lisp\n(+ 1 1)\n #+end_src"
  1271. (org-babel-execute-src-block)
  1272. (let ((case-fold-search t)) (search-forward "RESULTS"))
  1273. (list (org-get-indentation)
  1274. (progn (forward-line) (org-get-indentation))))))
  1275. ;; Don't get fooled by TAB-based indentation.
  1276. (should
  1277. (equal
  1278. '(6 6)
  1279. (org-test-with-temp-text
  1280. "\t #+begin_src emacs-lisp\n\t (+ 1 1)\n\t #+end_src"
  1281. (setq tab-width 4)
  1282. (org-babel-execute-src-block)
  1283. (let ((case-fold-search t)) (search-forward "RESULTS"))
  1284. (list (org-get-indentation)
  1285. (progn (forward-line) (org-get-indentation))))))
  1286. ;; Properly indent examplified blocks.
  1287. (should
  1288. (equal
  1289. " #+begin_example
  1290. 0
  1291. 1
  1292. 2
  1293. 3
  1294. 4
  1295. 5
  1296. 6
  1297. 7
  1298. 8
  1299. 9
  1300. #+end_example
  1301. "
  1302. (org-test-with-temp-text
  1303. " #+begin_src emacs-lisp :results output
  1304. (dotimes (i 10) (princ i) (princ \"\\n\"))
  1305. #+end_src"
  1306. (org-babel-execute-src-block)
  1307. (search-forward "begin_example")
  1308. (downcase
  1309. (buffer-substring-no-properties (line-beginning-position)
  1310. (point-max))))))
  1311. ;; Properly indent "org" blocks.
  1312. (should
  1313. (equal
  1314. " #+begin_src org
  1315. 0
  1316. 1
  1317. 2
  1318. 3
  1319. 4
  1320. 5
  1321. 6
  1322. 7
  1323. 8
  1324. 9
  1325. #+end_src
  1326. "
  1327. (org-test-with-temp-text
  1328. " #+begin_src emacs-lisp :results output org
  1329. (dotimes (i 10) (princ i) (princ \"\\n\"))
  1330. #+end_src"
  1331. (org-babel-execute-src-block)
  1332. (search-forward "begin_src org")
  1333. (downcase
  1334. (buffer-substring-no-properties (line-beginning-position)
  1335. (point-max)))))))
  1336. (ert-deftest test-ob/safe-header-args ()
  1337. "Detect safe and unsafe header args."
  1338. (let ((safe-args '((:cache . "foo")
  1339. (:results . "output")
  1340. (:eval . "never")
  1341. (:eval . "query")))
  1342. (unsafe-args '((:eval . "yes")
  1343. (:results . "output file")
  1344. (:foo . "bar")))
  1345. (malformed-args '((bar . "foo")
  1346. ("foo" . "bar")
  1347. :foo))
  1348. (safe-p (org-babel-header-args-safe-fn org-babel-safe-header-args)))
  1349. (dolist (arg safe-args)
  1350. (should (org-babel-one-header-arg-safe-p arg org-babel-safe-header-args)))
  1351. (dolist (arg unsafe-args)
  1352. (should (not (org-babel-one-header-arg-safe-p arg org-babel-safe-header-args))))
  1353. (dolist (arg malformed-args)
  1354. (should (not (org-babel-one-header-arg-safe-p arg org-babel-safe-header-args))))
  1355. (should (not (funcall safe-p (append safe-args unsafe-args))))))
  1356. (ert-deftest test-ob/noweb-expansions-in-cache ()
  1357. "Ensure that noweb expansions are expanded before caching."
  1358. (let ((noweb-expansions-in-cache-var 0))
  1359. (org-test-with-temp-text "
  1360. #+name: foo
  1361. #+begin_src emacs-lisp
  1362. \"I said\"
  1363. #+end_src
  1364. #+name: bar
  1365. #+begin_src emacs-lisp :noweb yes :cache yes
  1366. (setq noweb-expansions-in-cache-var
  1367. (+ 1 noweb-expansions-in-cache-var))
  1368. (concat <<foo>> \" check noweb expansions\")
  1369. #+end_src
  1370. "
  1371. ;; run the second block to create the cache
  1372. (goto-char (point-min))
  1373. (re-search-forward (regexp-quote "#+name: bar"))
  1374. (should (string= "I said check noweb expansions"
  1375. (org-babel-execute-src-block)))
  1376. (should (= noweb-expansions-in-cache-var 1))
  1377. ;; change the value of the first block
  1378. (goto-char (point-min))
  1379. (re-search-forward (regexp-quote "said"))
  1380. (goto-char (match-beginning 0))
  1381. (insert "haven't ")
  1382. (re-search-forward (regexp-quote "#+name: bar"))
  1383. (should (string= "I haven't said check noweb expansions"
  1384. (org-babel-execute-src-block)))
  1385. (should (= noweb-expansions-in-cache-var 2)))))
  1386. (ert-deftest test-ob/file-ext-and-output-dir ()
  1387. (org-test-at-id "93573e1d-6486-442e-b6d0-3fedbdc37c9b"
  1388. (org-babel-next-src-block)
  1389. (should (equal "file-ext-basic.txt"
  1390. (cdr (assq :file (nth 2 (org-babel-get-src-block-info t))))))
  1391. (org-babel-next-src-block)
  1392. (should (equal "foo/file-ext-dir-relative.txt"
  1393. (cdr (assq :file (nth 2 (org-babel-get-src-block-info t))))))
  1394. (org-babel-next-src-block)
  1395. (should (equal "foo/file-ext-dir-relative-slash.txt"
  1396. (cdr (assq :file (nth 2 (org-babel-get-src-block-info t))))))
  1397. (org-babel-next-src-block)
  1398. (should (equal "/tmp/file-ext-dir-absolute.txt"
  1399. (cdr (assq :file (nth 2 (org-babel-get-src-block-info t))))))
  1400. (org-babel-next-src-block)
  1401. (should (equal "foo.bar"
  1402. (cdr (assq :file (nth 2 (org-babel-get-src-block-info t))))))
  1403. (org-babel-next-src-block)
  1404. (should (equal "xxx/foo.bar"
  1405. (cdr (assq :file (nth 2 (org-babel-get-src-block-info t))))))
  1406. ))
  1407. (ert-deftest test-ob/script-escape ()
  1408. ;; Delimited lists of numbers
  1409. (should (equal '(1 2 3)
  1410. (org-babel-script-escape "[1 2 3]")))
  1411. (should (equal '(1 2 3)
  1412. (org-babel-script-escape "{1 2 3}")))
  1413. (should (equal '(1 2 3)
  1414. (org-babel-script-escape "(1 2 3)")))
  1415. ;; Delimited lists of double-quoted strings
  1416. (should (equal '("foo" "bar")
  1417. (org-babel-script-escape "(\"foo\" \"bar\")")))
  1418. (should (equal '("foo" "bar")
  1419. (org-babel-script-escape "[\"foo\" \"bar\"]")))
  1420. (should (equal '("foo" "bar")
  1421. (org-babel-script-escape "{\"foo\" \"bar\"}")))
  1422. ;; ... with commas
  1423. (should (equal '("foo" "bar")
  1424. (org-babel-script-escape "(\"foo\", \"bar\")")))
  1425. (should (equal '("foo" "bar")
  1426. (org-babel-script-escape "[\"foo\", \"bar\"]")))
  1427. (should (equal '("foo" "bar")
  1428. (org-babel-script-escape "{\"foo\", \"bar\"}")))
  1429. ;; Delimited lists of single-quoted strings
  1430. (should (equal '("foo" "bar")
  1431. (org-babel-script-escape "('foo' 'bar')")))
  1432. (should (equal '("foo" "bar")
  1433. (org-babel-script-escape "['foo' 'bar']")))
  1434. (should (equal '("foo" "bar")
  1435. (org-babel-script-escape "{'foo' 'bar'}")))
  1436. ;; ... with commas
  1437. (should (equal '("foo" "bar")
  1438. (org-babel-script-escape "('foo', 'bar')")))
  1439. (should (equal '("foo" "bar")
  1440. (org-babel-script-escape "['foo', 'bar']")))
  1441. (should (equal '("foo" "bar")
  1442. (org-babel-script-escape "{'foo', 'bar'}")))
  1443. ;; Single quoted strings
  1444. (should (equal "foo"
  1445. (org-babel-script-escape "'foo'")))
  1446. ;; ... with internal double quote
  1447. (should (equal "foo\"bar"
  1448. (org-babel-script-escape "'foo\"bar'")))
  1449. ;; ... with internal backslash
  1450. (should (equal "foo\\bar"
  1451. (org-babel-script-escape "'foo\\bar'")))
  1452. ;; ... with internal escaped backslash
  1453. (should (equal "foo\\bar"
  1454. (org-babel-script-escape "'foo\\\\bar'")))
  1455. ;; ... with internal backslash-double quote
  1456. (should (equal "foo\\\"bar"
  1457. (org-babel-script-escape "'foo\\\"bar'")))
  1458. ;; ... with internal escaped backslash-double quote
  1459. (should (equal "foo\\\"bar"
  1460. (org-babel-script-escape "'foo\\\\\"bar'")))
  1461. ;; ... with internal escaped single quote
  1462. (should (equal "foo'bar"
  1463. (org-babel-script-escape "'foo\\'bar'")))
  1464. ;; ... with internal escaped backslash-escaped single quote
  1465. (should (equal "foo\\'bar"
  1466. (org-babel-script-escape "'foo\\\\\\'bar'")))
  1467. ;; Double quoted strings
  1468. (should (equal "foo"
  1469. (org-babel-script-escape "\"foo\"")))
  1470. ;; ... with internal single quote
  1471. (should (equal "foo'bar"
  1472. (org-babel-script-escape "\"foo'bar\"")))
  1473. ;; ... with internal backslash
  1474. (should (equal "foo\\bar"
  1475. (org-babel-script-escape "\"foo\\bar\"")))
  1476. ;; ... with internal escaped backslash
  1477. (should (equal "foo\\bar"
  1478. (org-babel-script-escape "\"foo\\\\bar\"")))
  1479. ;; ... with internal backslash-single quote
  1480. (should (equal "foo\\'bar"
  1481. (org-babel-script-escape "\"foo\\'bar\"")))
  1482. ;; ... with internal escaped backslash-single quote
  1483. (should (equal "foo\\'bar"
  1484. (org-babel-script-escape "\"foo\\\\'bar\"")))
  1485. ;; ... with internal escaped double quote
  1486. (should (equal "foo\"bar"
  1487. (org-babel-script-escape "\"foo\\\"bar\"")))
  1488. ;; ... with internal escaped backslash-escaped double quote
  1489. (should (equal "foo\\\"bar"
  1490. (org-babel-script-escape "\"foo\\\\\\\"bar\""))))
  1491. (ert-deftest test-ob/process-params-no-duplicates ()
  1492. (should
  1493. (equal (org-babel-process-params '((:colname-names)
  1494. (:rowname-names)
  1495. (:result-params)
  1496. (:result-type)
  1497. (:var . "\"foo\"")))
  1498. '((:var)
  1499. (:colname-names)
  1500. (:rowname-names)
  1501. (:result-params)
  1502. (:result-type . value)))))
  1503. (defun org-test-babel-confirm-evaluate (eval-value)
  1504. (org-test-with-temp-text (format "#+begin_src emacs-lisp :eval %s
  1505. nil
  1506. #+end_src" eval-value)
  1507. (goto-char (point-min))
  1508. (let ((info (org-babel-get-src-block-info)))
  1509. (org-babel-check-confirm-evaluate info))))
  1510. (ert-deftest test-ob/check-eval ()
  1511. (let ((org-confirm-babel-evaluate t))
  1512. ;; Non-export tests
  1513. (dolist (pair '(("no" . nil)
  1514. ("never" . nil)
  1515. ("query" . query)
  1516. ("yes" . query)))
  1517. (should (eq (org-test-babel-confirm-evaluate (car pair)) (cdr pair))))
  1518. ;; Export tests
  1519. (let ((org-babel-exp-reference-buffer t))
  1520. (dolist (pair '(("no" . nil)
  1521. ("never" . nil)
  1522. ("query" . query)
  1523. ("yes" . query)
  1524. ("never-export" . nil)
  1525. ("no-export" . nil)
  1526. ("query-export" . query)))
  1527. (message (car pair))
  1528. (should (eq (org-test-babel-confirm-evaluate (car pair)) (cdr pair))))))
  1529. (let ((org-confirm-babel-evaluate nil))
  1530. ;; Non-export tests
  1531. (dolist (pair '(("no" . nil)
  1532. ("never" . nil)
  1533. ("query" . query)
  1534. ("yes" . t)))
  1535. (should (eq (org-test-babel-confirm-evaluate (car pair)) (cdr pair))))
  1536. ;; Export tests
  1537. (let ((org-babel-exp-reference-buffer t))
  1538. (dolist (pair '(("no" . nil)
  1539. ("never" . nil)
  1540. ("query" . query)
  1541. ("yes" . t)
  1542. ("never-export" . nil)
  1543. ("no-export" . nil)
  1544. ("query-export" . query)))
  1545. (message (car pair))
  1546. (should (eq (org-test-babel-confirm-evaluate (car pair)) (cdr pair)))))))
  1547. (defun org-test-ob/update-block-body ()
  1548. "Test `org-babel-update-block-body' specifications."
  1549. (should
  1550. (equal "#+begin_src elisp\n 2\n#+end_src"
  1551. (let ((org-edit-src-content-indentation 2))
  1552. (org-test-with-temp-text "#+begin_src elisp\n(+ 1 1)\n#+end_src"
  1553. (org-babel-update-block-body "2")
  1554. (buffer-string)))))
  1555. ;; Preserve block indentation.
  1556. (should
  1557. (equal " #+begin_src elisp\n 2\n #+end_src"
  1558. (let ((org-edit-src-content-indentation 1))
  1559. (org-test-with-temp-text
  1560. " #+begin_src elisp\n (+ 1 1)\n #+end_src"
  1561. (org-babel-update-block-body "2")
  1562. (buffer-string)))))
  1563. ;; Ignore NEW-BODY global indentation.
  1564. (should
  1565. (equal "#+begin_src elisp\n 2\n#+end_src"
  1566. (let ((org-edit-src-content-indentation 2))
  1567. (org-test-with-temp-text "#+begin_src elisp\n(+ 1 1)\n#+end_src"
  1568. (org-babel-update-block-body " 2")
  1569. (buffer-string)))))
  1570. ;; When indentation should be preserved ignore the two rules above.
  1571. (should
  1572. (equal " #+begin_src elisp\n2\n #+end_src"
  1573. (let ((org-edit-src-content-indentation 1)
  1574. (org-src-preserve-indentation t))
  1575. (org-test-with-temp-text
  1576. " #+begin_src elisp\n (+ 1 1)\n #+end_src"
  1577. (org-babel-update-block-body "2")
  1578. (buffer-string)))))
  1579. (should
  1580. (equal " #+begin_src elisp -i\n2\n #+end_src"
  1581. (let ((org-edit-src-content-indentation 1))
  1582. (org-test-with-temp-text
  1583. " #+begin_src elisp -i\n (+ 1 1)\n #+end_src"
  1584. (org-babel-update-block-body "2")
  1585. (buffer-string)))))
  1586. (should
  1587. (equal "#+begin_src elisp\n 2\n#+end_src"
  1588. (let ((org-edit-src-content-indentation 2)
  1589. (org-src-preserve-indentation t))
  1590. (org-test-with-temp-text "#+begin_src elisp\n(+ 1 1)\n#+end_src"
  1591. (org-babel-update-block-body " 2")
  1592. (buffer-string)))))
  1593. (should
  1594. (equal "#+begin_src elisp -i\n 2\n#+end_src"
  1595. (let ((org-edit-src-content-indentation 2)
  1596. (org-src-preserve-indentation t))
  1597. (org-test-with-temp-text "#+begin_src elisp -i\n(+ 1 1)\n#+end_src"
  1598. (org-babel-update-block-body " 2")
  1599. (buffer-string))))))
  1600. (ert-deftest test-ob/find-named-result ()
  1601. "Test `org-babel-find-named-result' specifications."
  1602. (should
  1603. (= 1
  1604. (org-test-with-temp-text "#+results: foo\n: result"
  1605. (org-babel-find-named-result "foo"))))
  1606. (should-not
  1607. (org-test-with-temp-text "#+results: foo\n: result"
  1608. (org-babel-find-named-result "bar")))
  1609. (should-not
  1610. (org-test-with-temp-text "#+results: foobar\n: result"
  1611. (org-babel-find-named-result "foo")))
  1612. ;; Search is case insensitive.
  1613. (should
  1614. (org-test-with-temp-text "#+RESULTS: FOO\n: result"
  1615. (org-babel-find-named-result "foo")))
  1616. ;; Handle hash in results keyword.
  1617. (should
  1618. (org-test-with-temp-text "#+results[hash]: FOO\n: result"
  1619. (org-babel-find-named-result "foo")))
  1620. ;; Accept orphaned affiliated keywords.
  1621. (should
  1622. (org-test-with-temp-text "#+results: foo"
  1623. (org-babel-find-named-result "foo"))))
  1624. (ert-deftest test-ob/where-is-src-block-result ()
  1625. "Test `org-babel-where-is-src-block-result' specifications."
  1626. ;; Find anonymous results.
  1627. (should
  1628. (equal "#+RESULTS:"
  1629. (org-test-with-temp-text
  1630. "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC\n\n#+RESULTS:\n: 2"
  1631. (goto-char (org-babel-where-is-src-block-result))
  1632. (buffer-substring-no-properties (point) (line-end-position)))))
  1633. ;; Find named results. Those have priority over anonymous ones.
  1634. (should
  1635. (equal "#+RESULTS: example"
  1636. (org-test-with-temp-text
  1637. "
  1638. <point>#+NAME: example
  1639. #+BEGIN_SRC emacs-lisp
  1640. \(+ 1 1)
  1641. #+END_SRC
  1642. #+RESULTS: example
  1643. : 2"
  1644. (goto-char (org-babel-where-is-src-block-result))
  1645. (buffer-substring-no-properties (point) (line-end-position)))))
  1646. (should
  1647. (equal "#+RESULTS: example"
  1648. (org-test-with-temp-text
  1649. "
  1650. <point>#+NAME: example
  1651. #+BEGIN_SRC emacs-lisp
  1652. \(+ 1 1)
  1653. #+END_SRC
  1654. #+RESULTS:
  1655. : fake
  1656. #+RESULTS: example
  1657. : 2"
  1658. (goto-char (org-babel-where-is-src-block-result))
  1659. (buffer-substring-no-properties (point) (line-end-position)))))
  1660. ;; Return nil when no result is found.
  1661. (should-not
  1662. (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
  1663. (org-babel-where-is-src-block-result)))
  1664. (should-not
  1665. (org-test-with-temp-text
  1666. "- item\n #+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC\n\n"
  1667. (org-babel-where-is-src-block-result)))
  1668. ;; When optional argument INSERT is non-nil, add RESULTS keyword
  1669. ;; whenever no RESULTS can be found.
  1670. (should
  1671. (equal
  1672. "#+RESULTS:"
  1673. (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
  1674. (let ((org-babel-results-keyword "RESULTS"))
  1675. (goto-char (org-babel-where-is-src-block-result t)))
  1676. (buffer-substring-no-properties (point) (line-end-position)))))
  1677. ;; Insert a named RESULTS keyword if possible.
  1678. (should
  1679. (equal
  1680. "#+RESULTS: e"
  1681. (org-test-with-temp-text
  1682. "#+NAME: e\n#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
  1683. (let ((org-babel-results-keyword "RESULTS"))
  1684. (goto-char (org-babel-where-is-src-block-result t)))
  1685. (buffer-substring-no-properties (point) (line-end-position)))))
  1686. ;; When optional argument HASH is provided, clear RESULTS keyword
  1687. ;; and related contents if they do not match it.
  1688. (should
  1689. (equal
  1690. "#+RESULTS[bbbb]:"
  1691. (org-test-with-temp-text
  1692. "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC\n\n#+RESULTS[aaaa]:\n: 3"
  1693. (let ((org-babel-results-keyword "RESULTS"))
  1694. (goto-char (org-babel-where-is-src-block-result nil nil "bbbb")))
  1695. (org-trim (buffer-substring-no-properties (point) (point-max))))))
  1696. (should
  1697. (equal
  1698. "#+RESULTS[bbbb]:"
  1699. (org-test-with-temp-text
  1700. "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC\n\n#+RESULTS[aaaa]:"
  1701. (let ((org-babel-results-keyword "RESULTS"))
  1702. (goto-char (org-babel-where-is-src-block-result nil nil "bbbb")))
  1703. (org-trim (buffer-substring-no-properties (point) (point-max))))))
  1704. ;; Handle hashes with times.
  1705. (should
  1706. (equal
  1707. "#+RESULTS[<2014-03-04 00:41:10> bbbb]:"
  1708. (org-test-with-temp-text
  1709. "
  1710. <point>#+BEGIN_SRC emacs-lisp
  1711. \(+ 1 1)
  1712. #+END_SRC
  1713. #+RESULTS[<2012-03-29 16:40:12> aaaa]:"
  1714. (let ((org-babel-results-keyword "RESULTS")
  1715. (org-babel-hash-show-time t))
  1716. (cl-letf (((symbol-function 'format-time-string)
  1717. (lambda (&rest _) "<2014-03-04 00:41:10>")))
  1718. (goto-char (org-babel-where-is-src-block-result nil nil "bbbb"))
  1719. (org-trim (buffer-substring-no-properties (point) (point-max))))))))
  1720. (should
  1721. (equal
  1722. "#+RESULTS[<2012-03-29 16:40:12> aaaa]:"
  1723. (org-test-with-temp-text
  1724. "
  1725. <point>#+BEGIN_SRC emacs-lisp
  1726. \(+ 1 1)
  1727. #+END_SRC
  1728. #+RESULTS[<2012-03-29 16:40:12> aaaa]:"
  1729. (let ((org-babel-results-keyword "RESULTS")
  1730. (org-babel-hash-show-time t))
  1731. (cl-letf (((symbol-function 'format-time-string)
  1732. (lambda (&rest _) "<2014-03-04 00:41:10>")))
  1733. (goto-char (org-babel-where-is-src-block-result nil nil "aaaa"))
  1734. (org-trim (buffer-substring-no-properties (point) (point-max))))))))
  1735. ;; RESULTS keyword may not be the last affiliated keyword.
  1736. (should
  1737. (equal
  1738. "#+RESULTS[bbbb]:"
  1739. (org-test-with-temp-text
  1740. "
  1741. <point>#+BEGIN_SRC emacs-lisp
  1742. \(+ 1 1)
  1743. #+END_SRC
  1744. #+RESULTS[aaaa]:
  1745. #+NAME: e
  1746. : 3"
  1747. (let ((org-babel-results-keyword "RESULTS"))
  1748. (goto-char (org-babel-where-is-src-block-result nil nil "bbbb")))
  1749. (org-trim (buffer-substring-no-properties (point) (point-max))))))
  1750. ;; HASH does nothing if no RESULTS can be found. However, if INSERT
  1751. ;; is also non-nil, RESULTS keyword is inserted along with the
  1752. ;; expected hash.
  1753. (should
  1754. (equal
  1755. "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
  1756. (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
  1757. (org-babel-where-is-src-block-result nil nil "bbbb")
  1758. (buffer-string))))
  1759. (should
  1760. (equal
  1761. "#+RESULTS[bbbb]:"
  1762. (org-test-with-temp-text "#+BEGIN_SRC emacs-lisp\n(+ 1 1)\n#+END_SRC"
  1763. (let ((org-babel-results-keyword "RESULTS"))
  1764. (goto-char (org-babel-where-is-src-block-result t nil "bbbb")))
  1765. (org-trim (buffer-substring-no-properties (point) (point-max)))))))
  1766. (ert-deftest test-ob/goto-named-src-block ()
  1767. "Test interactive use of `org-babel-goto-named-src-block'."
  1768. (org-test-with-temp-text-in-file
  1769. "
  1770. #+NAME: abc
  1771. #+BEGIN_SRC emacs-lisp :results value
  1772. (1+ 1)
  1773. #+END_SRC
  1774. #+CALL: abc( lorem() ) :results raw :wrap EXAMPLE
  1775. #+BEGIN_SRC emacs-lisp
  1776. <<abc>>
  1777. #+END_SRC
  1778. abc
  1779. #+RESULTS: abc
  1780. : 2
  1781. "
  1782. ;; non-existent name
  1783. (should-not
  1784. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\nno-name\n"))
  1785. ;; correct name
  1786. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\nabc\n")
  1787. (should (= 14 (point)))
  1788. ;; call line - autocompletion
  1789. (forward-line 3)
  1790. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\n\n")
  1791. (should (= 14 (point)))
  1792. ;; noweb reference - autocompletion
  1793. (forward-line 5)
  1794. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\n\n")
  1795. (should (= 14 (point)))
  1796. ;; at symbol - autocompletion
  1797. (forward-line 7)
  1798. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\n\n")
  1799. (should (= 14 (point)))
  1800. ;; in results - autocompletion
  1801. (forward-line 8)
  1802. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\n\n")
  1803. (should (= 14 (point)))
  1804. (forward-line 9)
  1805. (execute-kbd-macro "\M-xorg-babel-goto-named-src-block\n\n")
  1806. (should (= 14 (point)))))
  1807. (ert-deftest test-ob/evaluate-body-with-coderefs ()
  1808. (should
  1809. (= 2
  1810. (org-test-with-temp-text
  1811. "#+begin_src emacs-lisp -l \"#(ref:%s)\"\n2 #(ref:foo)\n#+end_src"
  1812. (org-babel-execute-src-block))))
  1813. (should
  1814. (= 3
  1815. (org-test-with-temp-text
  1816. "#+begin_src emacs-lisp\n3 #(ref:foo)\n#+end_src"
  1817. (let ((org-coderef-label-format "#(ref:%s)"))
  1818. (org-babel-execute-src-block))))))
  1819. (provide 'test-ob)
  1820. ;;; test-ob ends here