Browse Source

test-ob: Fix failing test on MacOS

* testing/lisp/test-ob.el (test-ob/indented-cached-org-bracket-link):
  Use `expand-file-name' to prevent introducing "//" patterns in file
  name.

Reported-by: David Talmage <david.talmage@shoutpoint.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/110285>
Nicolas Goaziou 2 years ago
parent
commit
0bdf18befd
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]*\\)$"