From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 15 Oct 2023 11:11:13 +0000 (+0200)
Subject: ; Adapt tests following last change
X-Git-Tag: V9.1.17-0.25.5~6
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dd8412682b33c66d810bfe7bc590737bf0cbbd57;p=sweep.git

; Adapt tests following last change
---

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."