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

Tests: Call org-store-link interactively

Browse source
This commit is contained in:
Adam Porter 2020-11-16 04:49:20 -06:00
parent 5814cff188
commit 12b3b426b5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1435,7 +1435,7 @@ RESULTS should be a list of strings as returned by
(with-simulated-input input (with-simulated-input input
;; Avoid writing "Stored: ..." to test output. ;; Avoid writing "Stored: ..." to test output.
(let ((inhibit-message t)) (let ((inhibit-message t))
(org-store-link nil))) (call-interactively #'org-store-link nil)))
(kill-buffer)) (kill-buffer))
(open-link-in (caar org-stored-links) buffer) (open-link-in (caar org-stored-links) buffer)
(with-current-buffer (get-buffer (concat "*Org QL View: " title "*")) (with-current-buffer (get-buffer (concat "*Org QL View: " title "*"))