From 25ce89ca2cea3c15a11171f0f41aff09b779c1ee Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Tue, 16 Jul 2019 12:34:20 -0500 Subject: [PATCH] Tests: Add/change convenience commands --- tests/test-org-ql.el | 27 ++++++++++++++++++++------- 1 file changed, 20 insertions(+), 7 deletions(-) diff --git a/tests/test-org-ql.el b/tests/test-org-ql.el index aa9807a..43dc296 100644 --- a/tests/test-org-ql.el +++ b/tests/test-org-ql.el @@ -34,13 +34,26 @@ (defun org-ql-test-insert-result () "FIXME: docstring" (interactive) - (let* ((value (eval (elisp--preceding-sexp))) - (prefix (if (and value (listp value)) - "'" - ""))) - (insert " :to-equal " - prefix - (format "%S" value)))) + (if-let* ((sexp (elisp--preceding-sexp)) + (correct-sexp-p (eq (car sexp) 'org-ql)) + (value (eval sexp)) + (prefix (if (and value (listp value)) + "'" + ""))) + (insert " :to-equal " + prefix + (format "%S" value)) + (user-error "Point must be after an `org-ql' form"))) + +(defun org-ql-test-show-result () + "Show `org-ql-agenda' for `org-ql' form." + (interactive) + (if-let* ((sexp (elisp--preceding-sexp)) + (correct-sexp-p (eq (car sexp) 'org-ql))) + (progn + (setf (car sexp) 'org-ql-agenda) + (eval sexp)) + (user-error "Point must be after an `org-ql' form"))) ;;;; Tests