X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/fd99dfe4bc82545d113f109cc87450918db56fba..445258b7156a22c83cc2a4d206ee907bb2b3db09:/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 2fe8fa905..107908c2e 100644
--- 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