mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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.
This commit is contained in:
Ihor Radchenko 2024-02-09 19:54:29 +01:00
parent aa3724dbde
commit df1f9be7f8
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
testing/lisp/test-duplicates-detector.el
View File

@ -199,15 +199,18 @@ wrap them in `org-test-ignore-duplicate'):
(lambda (x) (lambda (x)
(concat (make-string (* (setq indent (1+ indent)) 2) ? ) (concat (make-string (* (setq indent (1+ indent)) 2) ? )
x "\n")) x "\n"))
string-path) string-path
"")
(mapconcat (mapconcat
(lambda (x) (lambda (x)
(format "%s%S: %d times\n" (format "%s%S: %d times\n"
(make-string (* indent 2) ? ) (make-string (* indent 2) ? )
(car x) (car x)
(length (cdr x)))) (length (cdr x))))
(cdr path))))) (cdr path)
test-duplicates-detector-duplicate-forms))) ""))))
test-duplicates-detector-duplicate-forms
"")))
(when duplicate-tests (when duplicate-tests
(message "Duplicate ERT tests found:\n%s\n" (message "Duplicate ERT tests found:\n%s\n"
(mapconcat (lambda (x) (format "%S" x)) (mapconcat (lambda (x) (format "%S" x))