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

Tests: Add a couple of asserts

Browse source 
Not absolutely needed now, but they might help in the future if
something changes again.
This commit is contained in:
Adam Porter 2020-11-16 04:49:28 -06:00
parent 12b3b426b5
commit 9396385fed
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1432,11 +1432,15 @@ RESULTS should be a list of strings as returned by
:super-groups super-groups :super-groups super-groups
:sort sort :title title :buffer view-buffer) :sort sort :title title :buffer view-buffer)
(with-current-buffer view-buffer (with-current-buffer view-buffer
(cl-assert (member '("org-ql-search" :follow org-ql-view--link-open :store org-ql-view--link-store)
org-link-parameters)
t)
(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))
(call-interactively #'org-store-link nil))) (call-interactively #'org-store-link nil)))
(kill-buffer)) (kill-buffer))
(cl-assert (and org-stored-links (caar org-stored-links)) t)
(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 "*"))
(prog1 (buffer-local-value var (current-buffer)) (prog1 (buffer-local-value var (current-buffer))