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

Tests: (org-ql-test-show-result) Fix symbol

Browse source
This commit is contained in:
Adam Porter 2020-01-13 20:24:14 -06:00
parent c4f9a58fd6
commit fc536cafd6
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

@ -92,7 +92,7 @@ Set at runtime by test suite.")
(if-let* ((sexp (elisp--preceding-sexp)) (if-let* ((sexp (elisp--preceding-sexp))
(sexp (pcase sexp (sexp (pcase sexp
(`(org-ql . ,_) (setf (car sexp) 'org-ql-agenda)) (`(org-ql . ,_) (setf (car sexp) 'org-ql-agenda))
(`(org-ql-expect ,ql-args . ,_) (setf sexp `(org-ql-select org-ql-test-buffer (`(org-ql-expect ,ql-args . ,_) (setf sexp `(org-ql-search org-ql-test-buffer
',@ql-args))) ',@ql-args)))
(_ nil)))) (_ nil))))