emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/tuareg b7bdee6 1/2: Add test for comment-region line prefi


From: ELPA Syncer
Subject: [nongnu] elpa/tuareg b7bdee6 1/2: Add test for comment-region line prefix
Date: Wed, 25 Aug 2021 06:57:33 -0400 (EDT)

branch: elpa/tuareg
commit b7bdee6b87e5dbf37625549fa0770fcd16f43b83
Author: Mattias EngdegÄrd <mattiase@acm.org>
Commit: Christophe Troestler <christophe.Troestler@umons.ac.be>

    Add test for comment-region line prefix
    
    This test exercises ocaml#216.
---
 tuareg-tests.el | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/tuareg-tests.el b/tuareg-tests.el
index 095a007..a85e9f6 100644
--- a/tuareg-tests.el
+++ b/tuareg-tests.el
@@ -531,4 +531,44 @@ Return (FILE TYPE START-LINE END-LINE START-COL END-COL)."
                          (list file type
                                start-line end-line start-col end-col))))))))
 
+(defun tuareg-test--comment-region (text)
+  (with-temp-buffer
+    (tuareg-mode)
+    (insert text)
+    (comment-region (point-min) (point-max))
+    (buffer-string)))
+
+(ert-deftest tuareg-comment-region-style ()
+  "Check that commenting out code works as expected. See issue #216."
+  ;; Non-indented code.
+  (let ((comment-style 'indent))
+    (should (equal (tuareg-test--comment-region
+                    "let f x =\n  g x\n    y\n")
+                   "(* let f x = *)\n(*   g x *)\n(*     y *)\n")))
+  (let ((comment-style 'multi-line)
+        (comment-continue " * "))
+    (should (equal (tuareg-test--comment-region
+                    "let f x =\n  g x\n    y\n")
+                   "(* let f x =\n *   g x\n *     y *)\n")))
+  (let ((comment-style 'multi-line)
+        (comment-continue "   "))
+    (should (equal (tuareg-test--comment-region
+                    "let f x =\n  g x\n    y\n")
+                   "(* let f x =\n     g x\n       y *)\n")))
+  ;; Indented code.
+  (let ((comment-style 'indent))
+    (should (equal (tuareg-test--comment-region
+                    "  epsilon\n    tau\n")
+                   "  (* epsilon *)\n  (*   tau *)\n")))
+  (let ((comment-style 'multi-line)
+        (comment-continue " * "))
+    (should (equal (tuareg-test--comment-region
+                    "  epsilon\n    tau\n")
+                   "  (* epsilon\n   *   tau *)\n")))
+  (let ((comment-style 'multi-line)
+        (comment-continue "   "))
+    (should (equal (tuareg-test--comment-region
+                    "  epsilon\n    tau\n")
+                   "  (* epsilon\n       tau *)\n"))))
+
 (provide 'tuareg-tests)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]