Merge commit '9d4a005a34458419025162224c9daf8d674142c8'

[gnu-emacs-elpa] / packages / context-coloring / test / context-coloring-coverage.el

diff --git a/packages/context-coloring/test/context-coloring-coverage.el b/packages/context-coloring/test/context-coloring-coverage.el
index 2fe8fa9053529c99de87cd558e788acbeefd3e5b..107908c2ea482efea359def62b3b366b2df74b71 100644 (file)
--- a/packages/context-coloring/test/context-coloring-coverage.el
+++ b/packages/context-coloring/test/context-coloring-coverage.el
@@ -53,7 +53,7 @@
 
 (defun context-coloring-coverage-join (strings delimiter)
   "Join a list of STRINGS with the string DELIMITER."
-  (mapconcat 'identity strings delimiter))
+  (mapconcat #'identity strings delimiter))
 
 (defun context-coloring-coverage-percentage (dividend divisor)
   "Get the percentage of DIVIDEND / DIVISOR with precision 2."
@@ -109,7 +109,7 @@
   "Generate reports for all files in COVERAGE-DATA."
   (context-coloring-coverage-join
    (mapcar
-    'context-coloring-coverage-format-source-file
+    #'context-coloring-coverage-format-source-file
     (cdr (assq 'source_files coverage-data)))
    "\n"))
 
@@ -119,7 +119,8 @@
   (setq undercover-force-coverage t)
   (setenv "COVERALLS_REPO_TOKEN" "noop")
   (undercover "context-coloring.el"
-              (:report-file context-coloring-coverage-output-file))
+              (:report-file context-coloring-coverage-output-file)
+              (:send-report nil))
   (add-hook
    'kill-emacs-hook
    (lambda ()
@@ -151,4 +152,4 @@
 
 (provide 'context-coloring-coverage)
 
-;; context-coloring-coverage.el ends here
+;;; context-coloring-coverage.el ends here