From 9396385fed8253f6378da1126ed756a44058c2ef Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Mon, 16 Nov 2020 04:49:28 -0600 Subject: [PATCH] Tests: Add a couple of asserts Not absolutely needed now, but they might help in the future if something changes again. --- tests/test-org-ql.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tests/test-org-ql.el b/tests/test-org-ql.el index f1c1f25..ed3ef06 100644 --- a/tests/test-org-ql.el +++ b/tests/test-org-ql.el @@ -1432,11 +1432,15 @@ RESULTS should be a list of strings as returned by :super-groups super-groups :sort sort :title title :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 ;; Avoid writing "Stored: ..." to test output. (let ((inhibit-message t)) (call-interactively #'org-store-link nil))) (kill-buffer)) + (cl-assert (and org-stored-links (caar org-stored-links)) t) (open-link-in (caar org-stored-links) buffer) (with-current-buffer (get-buffer (concat "*Org QL View: " title "*")) (prog1 (buffer-local-value var (current-buffer))