From dd8412682b33c66d810bfe7bc590737bf0cbbd57 Mon Sep 17 00:00:00 2001
From: Eshel Yaron <me@eshelyaron.com>
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.5