[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org df1f9be7f8 1/2: fixup! Add testing/lisp/test-duplic
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org df1f9be7f8 1/2: fixup! Add testing/lisp/test-duplicates-detector.el |
Date: |
Fri, 9 Feb 2024 15:58:23 -0500 (EST) |
branch: externals/org
commit df1f9be7f8553757350385fae5174c91d5194bcd
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
fixup! Add testing/lisp/test-duplicates-detector.el
*
testing/lisp/test-duplicates-detector.el
(test-duplicates-detector--find-duplicates):
Provide third argument to `mapconcat' for Emacs <29.
---
testing/lisp/test-duplicates-detector.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/testing/lisp/test-duplicates-detector.el
b/testing/lisp/test-duplicates-detector.el
index 58da27c07e..349b5297b4 100644
--- a/testing/lisp/test-duplicates-detector.el
+++ b/testing/lisp/test-duplicates-detector.el
@@ -199,15 +199,18 @@ wrap them in `org-test-ignore-duplicate'):
(lambda (x)
(concat (make-string (* (setq indent (1+ indent)) 2) ? )
x "\n"))
- string-path)
+ string-path
+ "")
(mapconcat
(lambda (x)
(format "%s%S: %d times\n"
(make-string (* indent 2) ? )
(car x)
(length (cdr x))))
- (cdr path)))))
- test-duplicates-detector-duplicate-forms)))
+ (cdr path)
+ ""))))
+ test-duplicates-detector-duplicate-forms
+ "")))
(when duplicate-tests
(message "Duplicate ERT tests found:\n%s\n"
(mapconcat (lambda (x) (format "%S" x))