forked from mirrors/org-mode
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)
|
(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))
|
||||||
|
|
Loading…
Reference in New Issue