From 86344430becc0509a2a88fd50720a791bc805b87 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?C=C3=A1ssio=20=C3=81vila?= Date: Thu, 16 May 2024 23:35:51 -0300 Subject: [PATCH] test if the completion-override it exactly as expected --- test/cider-completion-tests.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/test/cider-completion-tests.el b/test/cider-completion-tests.el index 91b7a198d..e80f4253a 100644 --- a/test/cider-completion-tests.el +++ b/test/cider-completion-tests.el @@ -37,11 +37,13 @@ (unwind-protect (progn (it "adds `flex' and `basic' as a fallback" - (cider-enable-flex-completion) - (expect (member 'flex (assq 'styles (assq 'cider completion-category-overrides))) - :to-be-truthy) - (expect (member 'basic (assq 'styles (assq 'cider completion-category-overrides))) - :to-be-truthy)) + (let ((expected-category-overrides '((cider (styles basic flex))))) + (cider-enable-flex-completion) + (expect (member 'flex (assq 'styles (assq 'cider completion-category-overrides))) + :to-be-truthy) + (expect (member 'basic (assq 'styles (assq 'cider completion-category-overrides))) + :to-be-truthy) + (expect completion-category-overrides :to-equal expected-category-overrides))) (it "doesn't add `cycle'" (expect (assq 'cycle (assq 'cider completion-category-overrides))