diff --git a/tests/test-org-ql.el b/tests/test-org-ql.el
index c7890fc..4092642 100644
--- a/tests/test-org-ql.el
+++ b/tests/test-org-ql.el
@@ -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)