Fix 'completion-preview-cursor-type' test

diff --git a/test/lisp/completion-preview-tests.el b/test/lisp/completion-preview-tests.el
index 1b0ef28f54d167ae9b8d48aa20846dfccfcab517..06f5ee32e323068ed5b3e56d68fcc392ee1b70dc 100644 (file)
--- a/test/lisp/completion-preview-tests.el
+++ b/test/lisp/completion-preview-tests.el
@@ -318,7 +318,7 @@ instead."
     (let ((this-command 'self-insert-command))
       (completion-preview--post-command))
     (should (eq completion-preview-cursor-type
-                (window-parameter nil 'cursor-type)))
+                (window-cursor-type nil)))
     (should (completion-preview--cursor-modified-p))
     (let ((this-command 'keyboard-quit))
       (completion-preview--post-command))