浏览代码

ob-tests: adding tests of new un-named arguments

Eric Schulte 14 年之前
父节点
当前提交
550d24aa8e
共有 2 个文件被更改,包括 8 次插入0 次删除
  1. 2 0
      testing/examples/babel.org
  2. 6 0
      testing/lisp/test-ob-lob.el

+ 2 - 0
testing/examples/babel.org

@@ -150,6 +150,8 @@
 #+call: echo(input="testing") :results vector
 #+call: echo[:var input="testing"]()
 #+call: echo[:var input="testing"]() :results vector
+#+call: echo("testing")
+#+call: echo("testing") :results vector
 
 * parsing header arguments
   :PROPERTIES:

+ 6 - 0
testing/lisp/test-ob-lob.el

@@ -41,6 +41,12 @@
     (should (string= "testing" (org-babel-lob-execute
     				(org-babel-lob-get-info))))
     (forward-line 1)
+    (should (string= "testing" (caar (org-babel-lob-execute
+    				      (org-babel-lob-get-info)))))
+    (forward-line 1)
+    (should (string= "testing" (org-babel-lob-execute
+				(org-babel-lob-get-info))))
+    (forward-line 1)
     (should (string= "testing" (caar (org-babel-lob-execute
     				      (org-babel-lob-get-info)))))))