ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

test-org-ctags: Fix CI failures 

* testing/lisp/test-org-ctags.el (test-org-ctags/with-fake-ctags): Do
not use function name not compatible with dash.
This commit is contained in:
Max Nikulin 2024-04-30 20:37:02 +07:00 committed by Ihor Radchenko
parent 3c01767f7e
commit c6bbde4c78
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
testing/lisp/test-org-ctags.el
View File

@ -76,17 +76,17 @@ Create a buffer backed by a file in the TEMP-DIR/SUBDIR directory."
(,dir (concat ,base "/" ,subdir)) (,dir (concat ,base "/" ,subdir))
(,temp-file (concat ,dir "/ctags.txt")) (,temp-file (concat ,dir "/ctags.txt"))
(org-ctags-path-to-ctags (org-ctags-path-to-ctags
(test-org-ctags/mock-command ,temp-file "ctags-mock")) (test-org-ctags/mock-command ,temp-file "ctags_mock"))
,buffer) ,buffer)
(make-directory ,dir) (make-directory ,dir)
(unwind-protect (unwind-protect
;; `org-ctags' commands call `buffer-file-name'. ;; `org-ctags' commands call `buffer-file-name'.
(with-current-buffer (with-current-buffer
(setq ,buffer (find-file-noselect ,temp-file)) (setq ,buffer (find-file-noselect ,temp-file))
(insert "Sould be overwritten by org-ctags mock script") (insert "Should be overwritten by org-ctags mock script")
(save-buffer) (save-buffer)
,@body ,@body
(test-org-ctags/get-args ,temp-file ,base "ctags-mock\n")) (test-org-ctags/get-args ,temp-file ,base "ctags_mock\n"))
(kill-buffer ,buffer) (kill-buffer ,buffer)
(delete-file ,temp-file) (delete-file ,temp-file)
(delete-directory ,dir))))) (delete-directory ,dir)))))