[nongnu] elpa/sweeprolog 78d17308c9 3/6: Update tests.

[ELPA Syncer]

branch: elpa/sweeprolog
commit 78d17308c92736a6450a8be211ac1f334160181d
Author: Geoffrey Churchill <geoffrey.a.churchill@gmail.com>
Commit: GitHub <noreply@github.com>

    Update tests.
---
 sweeprolog-tests.el | 15 +++++++++++----
 sweeprolog.el       | 11 +++++------
 2 files changed, 16 insertions(+), 10 deletions(-)

diff --git a/sweeprolog-tests.el b/sweeprolog-tests.el
index 7827345e32..541bdce108 100644
--- a/sweeprolog-tests.el
+++ b/sweeprolog-tests.el
@@ -281,30 +281,37 @@ foo(Foo) :- bar.
                    "foo(bar, (_->_;_), _):-_.")))
 
 (sweeprolog-deftest rename-variable ()
-  "Tests renaming varialbes."
+  "Tests renaming variables."
   "foo(Bar,Baz) :- spam(Baz,Bar)."
   (goto-char (point-min))
-  (sweeprolog-rename-variable "Bar" "Spam")
+  (sweeprolog-rename-variable "Bar" "_S_p_a_m_")
   (sweeprolog-rename-variable "Baz" "Bar")
-  (sweeprolog-rename-variable "Spam" "Baz")
+  (sweeprolog-rename-variable "_S_p_a_m_" "Baz")
   (should (string= (buffer-string)
                    "foo(Baz,Bar) :- spam(Bar,Baz).")))
 
 (sweeprolog-deftest increment-variable ()
-  "Tests renaming varialbes."
+  "Tests renaming variables."
   "
 foo(Bar0,Bar) :-
+    spam(Bar_0,Bar_1),
     spam(Bar0,Bar1),
+    bar(Bar_1,Bar_2),
     bar(Bar1,Bar2),
+    baz(Bar_2,Bar),
     baz(Bar2, Bar).
 "
   (goto-char (1+ (point-min)))
   (sweeprolog-increment-numbered-variables 1 (point) "Bar1")
+  (sweeprolog-increment-numbered-variables 1 (point) "Bar_2")
   (should (string= (buffer-string)
                    "
 foo(Bar0,Bar) :-
+    spam(Bar_0,Bar_1),
     spam(Bar0,Bar2),
+    bar(Bar_1,Bar_3),
     bar(Bar2,Bar3),
+    baz(Bar_3,Bar),
     baz(Bar3, Bar).
 ")))
 
diff --git a/sweeprolog.el b/sweeprolog.el
index c558f27eff..c841ac77a2 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -6177,11 +6177,10 @@ prompt for CLASS as well.  A negative prefix argument
                               (format "Match %d/%d"
                                       (1+ index)
                                       length)
-                              '((?  "next" "Next match")
-                                (?  "back" "Last match")
-                                (?
-  "exit" "Exit term search"))))
-                      (?
+                              '((?   "next" "Next match")
+                                (?   "back" "Last match")
+                                (?   "exit" "Exit term search"))))
+                      (?
                        (setq overlays (if backward
                                           (cons overlay
                                                 (reverse (cdr overlays)))
@@ -6191,7 +6190,7 @@ prompt for CLASS as well.  A negative prefix argument
                                        index
                                      (mod (1+ index) length))
                              backward nil))
-                      (?
+                      (?
                        (setq overlays (if backward
                                           (append (cdr overlays)
                                                   (list overlay))