[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)