jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tests: Fix link-opening test

Browse source
This commit is contained in:
Adam Porter 2020-11-16 03:16:40 -06:00
parent 7770285002
commit e9815f39a0
1 changed files with 31 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

27
tests/test-org-ql.el
View file

@ -1415,8 +1415,18 @@ RESULTS should be a list of strings as returned by
(insert "* TODO Test heading\n\n") (insert "* TODO Test heading\n\n")
(org-mode))) (org-mode)))
(cl-flet ((var-after-link-save-open (cl-flet* ((open-link-in
(var buffers-files query &key sort super-groups (input "RET")) (link buffer)
;; Org REDUCED THE NUMBER OF ARGUMENTS TO `org-open-link-from-string'! That BREAKS BACKWARD
;; COMPATIBILITY! So I have to make my own function so these tests can work across Org versions!
(with-current-buffer buffer
(erase-buffer)
(org-mode)
(insert link)
(backward-char 1)
(org-open-at-point)))
(var-after-link-save-open
(var buffers-files query &key sort super-groups (buffer link-buffer) (input "RET"))
(org-ql-search buffers-files query (org-ql-search buffers-files query
:super-groups super-groups :super-groups super-groups
:sort sort :title title :buffer view-buffer) :sort sort :title title :buffer view-buffer)
@ -1426,8 +1436,7 @@ RESULTS should be a list of strings as returned by
(let ((inhibit-message t)) (let ((inhibit-message t))
(org-store-link nil))) (org-store-link nil)))
(kill-buffer)) (kill-buffer))
;; ;; Let's see if this trick works. (open-link-in (caar org-stored-links) buffer)
(org-open-link-from-string (caar org-stored-links) nil link-buffer)
(with-current-buffer (get-buffer (concat "*Org QL View: " title "*")) (with-current-buffer (get-buffer (concat "*Org QL View: " title "*"))
(prog1 (buffer-local-value var (current-buffer)) (prog1 (buffer-local-value var (current-buffer))
(kill-buffer))))) (kill-buffer)))))
@ -1465,9 +1474,6 @@ RESULTS should be a list of strings as returned by
(describe "Buffers/Files" (describe "Buffers/Files"
:var ((query '(and (todo "TODO") (regexp "heading"))) :var ((query '(and (todo "TODO") (regexp "heading")))
(one-filename (car temp-filenames))) (one-filename (car temp-filenames)))
(it "Can search buffer containing the link"
(expect (var-after-link-save-open 'org-ql-view-buffers-files one-filename query)
:to-equal link-buffer))
(it "Can search a file by filename" (it "Can search a file by filename"
(expect (var-after-link-save-open 'org-ql-view-buffers-files one-filename query (expect (var-after-link-save-open 'org-ql-view-buffers-files one-filename query
:input "M-n M-n RET") :input "M-n M-n RET")
@ -1475,7 +1481,12 @@ RESULTS should be a list of strings as returned by
(it "Can search multiple files by filename" (it "Can search multiple files by filename"
(expect (var-after-link-save-open 'org-ql-view-buffers-files temp-filenames query (expect (var-after-link-save-open 'org-ql-view-buffers-files temp-filenames query
:input "M-n M-n RET") :input "M-n M-n RET")
:to-equal temp-filenames))))) :to-equal temp-filenames))
(it "Can search buffer containing the link"
;; This is sort-of a special case because of how the test link-opening function works.
(expect (var-after-link-save-open 'org-ql-view-buffers-files one-filename query
:buffer link-buffer)
:to-equal link-buffer)))))
;; MAYBE: Also test `org-ql-views', although I already know it works now. ;; MAYBE: Also test `org-ql-views', although I already know it works now.
;; (describe "org-ql-views") ;; (describe "org-ql-views")