[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/testcover.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/testcover.el |
Date: |
Fri, 10 Jun 2005 06:44:19 -0400 |
Index: emacs/lisp/emacs-lisp/testcover.el
diff -c emacs/lisp/emacs-lisp/testcover.el:1.8
emacs/lisp/emacs-lisp/testcover.el:1.9
*** emacs/lisp/emacs-lisp/testcover.el:1.8 Thu May 19 19:06:19 2005
--- emacs/lisp/emacs-lisp/testcover.el Fri Jun 10 10:44:18 2005
***************
*** 1,6 ****
;;;; testcover.el -- Visual code-coverage tool
! ;; Copyright (C) 2002 Free Software Foundation, Inc.
;; Author: Jonathan Yavner <address@hidden>
;; Maintainer: Jonathan Yavner <address@hidden>
--- 1,6 ----
;;;; testcover.el -- Visual code-coverage tool
! ;; Copyright (C) 2002, 2005 Free Software Foundation, Inc.
;; Author: Jonathan Yavner <address@hidden>
;; Maintainer: Jonathan Yavner <address@hidden>
***************
*** 150,164 ****
1-valued, no error if actually multi-valued."
:group 'testcover)
! (defface testcover-nohits-face
'((t (:background "DeepPink2")))
"Face for forms that had no hits during coverage test"
:group 'testcover)
! (defface testcover-1value-face
'((t (:background "Wheat2")))
"Face for forms that always produced the same value during coverage test"
:group 'testcover)
;;;=========================================================================
--- 150,168 ----
1-valued, no error if actually multi-valued."
:group 'testcover)
! (defface testcover-nohits
'((t (:background "DeepPink2")))
"Face for forms that had no hits during coverage test"
:group 'testcover)
+ ;; backward-compatibility alias
+ (put 'testcover-nohits-face 'face-alias 'testcover-nohits)
! (defface testcover-1value
'((t (:background "Wheat2")))
"Face for forms that always produced the same value during coverage test"
:group 'testcover)
+ ;; backward-compatibility alias
+ (put 'testcover-1value-face 'face-alias 'testcover-1value)
;;;=========================================================================
***************
*** 477,484 ****
(defun testcover-mark (def)
"Marks one DEF (a function or macro symbol) to highlight its contained forms
that did not get completely tested during coverage tests.
! A marking of testcover-nohits-face (default = red) indicates that the
! form was never evaluated. A marking of testcover-1value-face
\(default = tan) indicates that the form always evaluated to the same value.
The forms throw, error, and signal are not marked. They do not return and
would always get a red mark. Some forms that always return the same
--- 481,488 ----
(defun testcover-mark (def)
"Marks one DEF (a function or macro symbol) to highlight its contained forms
that did not get completely tested during coverage tests.
! A marking with the face `testcover-nohits' (default = red) indicates that
the
! form was never evaluated. A marking using the `testcover-1value' face
\(default = tan) indicates that the form always evaluated to the same value.
The forms throw, error, and signal are not marked. They do not return and
would always get a red mark. Some forms that always return the same
***************
*** 506,513 ****
(setq ov (make-overlay (1- j) j))
(overlay-put ov 'face
(if (memq data '(unknown 1value))
! 'testcover-nohits-face
! 'testcover-1value-face))))
(set-buffer-modified-p changed))))
(defun testcover-mark-all (&optional buffer)
--- 510,517 ----
(setq ov (make-overlay (1- j) j))
(overlay-put ov 'face
(if (memq data '(unknown 1value))
! 'testcover-nohits
! 'testcover-1value))))
(set-buffer-modified-p changed))))
(defun testcover-mark-all (&optional buffer)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/testcover.el,
Miles Bader <=