From dd8412682b33c66d810bfe7bc590737bf0cbbd57 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 15 Oct 2023 13:11:13 +0200 Subject: [PATCH] ; Adapt tests following last change --- sweeprolog-tests.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/sweeprolog-tests.el b/sweeprolog-tests.el index b65c603..06c8638 100644 --- a/sweeprolog-tests.el +++ b/sweeprolog-tests.el @@ -479,8 +479,8 @@ baz(Baz) :- fooba-!-" (let ((cap (sweeprolog-completion-at-point))) (should (= 64 (nth 0 cap))) (should (= 69 (nth 1 cap))) - (should (equal '(("foobar(Baz)" compound "term_position" 0 11 0 6 ((compound "-" 7 10)))) - (nth 2 cap))))) + (should (equal '("foobar(Baz)") + (all-completions "" (nth 2 cap)))))) (sweeprolog-deftest cap-autoloaded-predicate () "Completion at point for remote predicates." @@ -491,8 +491,8 @@ baz(Baz) :- lists:memberc-!-" (let ((cap (sweeprolog-completion-at-point))) (should (= 70 (nth 0 cap))) (should (= 77 (nth 1 cap))) - (should (equal '(("memberchk(Elem, List)" compound "term_position" 0 21 0 9 ((compound "-" 10 14) (compound "-" 16 20)))) - (nth 2 cap))))) + (should (equal '("memberchk(Elem, List)") + (all-completions "" (nth 2 cap)))))) (sweeprolog-deftest cap-compound () "Completion at point for compound terms." -- 2.39.2