[nongnu] elpa/sweeprolog 691fb59c0e 3/5: Test 'sweeprolog-make-example-usage-comment'

[ELPA Syncer]

branch: elpa/sweeprolog
commit 691fb59c0e3d3102f6311aeb67815ae3b4725b19
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    Test 'sweeprolog-make-example-usage-comment'
---
 sweeprolog-tests.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/sweeprolog-tests.el b/sweeprolog-tests.el
index 2748ee01c5..d8ad5e2f17 100644
--- a/sweeprolog-tests.el
+++ b/sweeprolog-tests.el
@@ -1803,4 +1803,19 @@ head,
     (sweeprolog--backward-sexp)
     (should (= (point) 4))))
 
+(ert-deftest usage-example-comment ()
+  "Tests adding usage example comments."
+  (with-temp-buffer
+    (sweeprolog-mode)
+    (insert "\nfoo.")
+    (let ((source-buffer (current-buffer)))
+      (sweeprolog-make-example-usage-comment (point-min))
+      (insert "true; false.")
+      (comint-send-input)
+      (accept-process-output nil 1)
+      (sweeprolog-top-level-example-done)
+      (with-current-buffer source-buffer
+        (should (string= (buffer-string)
+                         "% ?- true; false.\n% true\u0020\nfoo."))))))
+
 ;;; sweeprolog-tests.el ends here