Tests: (-test-show-result) Fix

Update for refactoring that removed org-ql-agenda.
This commit is contained in:
Adam Porter 2019-10-03 22:20:25 -05:00
parent c9ad34c47f
commit c34c806127

View file

@ -75,8 +75,8 @@
(if-let* ((sexp (elisp--preceding-sexp))
(sexp (pcase sexp
(`(org-ql . ,_) (setf (car sexp) 'org-ql-agenda))
(`(org-ql-expect ,ql-args . ,_) (setf sexp `(org-ql-agenda test-buffer
,@ql-args)))
(`(org-ql-expect ,ql-args . ,_) (setf sexp `(org-ql-select test-buffer
',@ql-args)))
(_ nil))))
(eval sexp)