Browse Source

Merge branch 'maint'

Nicolas Goaziou 1 year ago
parent
commit
b06259357a
1 changed files with 5 additions and 5 deletions
  1. 5 5
      testing/lisp/test-ob.el

+ 5 - 5
testing/lisp/test-ob.el

@@ -26,15 +26,15 @@ should still return the link."
   (should
    (let ((default-directory temporary-file-directory))
      (org-test-with-temp-text
-      "
+	 "
 * Test
   #+<point>BEGIN_SRC emacs-lisp :file test.txt :cache yes
     (message \"test\")
   #+END_SRC"
-      ;; Execute twice as the first time creates the cache.
-      (org-babel-execute-src-block)
-      (string= (concat default-directory "test.txt")
-	       (org-babel-execute-src-block))))))
+       ;; Execute twice as the first time creates the cache.
+       (org-babel-execute-src-block)
+       (string= (expand-file-name "test.txt")
+		(org-babel-execute-src-block))))))
 
 (ert-deftest test-ob/multi-line-header-regexp ()
   (should(equal "^[ \t]*#\\+headers?:[ \t]*\\([^\n]*\\)$"