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:
parent
aa3724dbde
commit
df1f9be7f8
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue