[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: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/testcover.el |
Date: |
Tue, 05 Aug 2003 21:10:37 -0400 |
Index: emacs/lisp/emacs-lisp/testcover.el
diff -c emacs/lisp/emacs-lisp/testcover.el:1.3
emacs/lisp/emacs-lisp/testcover.el:1.4
*** emacs/lisp/emacs-lisp/testcover.el:1.3 Fri Jul 25 00:59:09 2003
--- emacs/lisp/emacs-lisp/testcover.el Tue Aug 5 21:10:37 2003
***************
*** 334,341 ****
result))
(defun testcover-reinstrument-clauses (clauselist)
! "Reinstruments each list in CLAUSELIST. Result is t if every
! clause is 1-valued."
(let ((result t))
(mapc #'(lambda (x)
(setq result (and (testcover-reinstrument-list x) result)))
--- 334,341 ----
result))
(defun testcover-reinstrument-clauses (clauselist)
! "Reinstrument each list in CLAUSELIST.
! Result is t if every clause is 1-valued."
(let ((result t))
(mapc #'(lambda (x)
(setq result (and (testcover-reinstrument-list x) result)))
***************
*** 349,361 ****
(eval-buffer buf t)))
(defmacro 1value (form)
! "For code-coverage testing, indicate that FORM is expected to always have
! the same value."
form)
(defmacro noreturn (form)
! "For code-coverage testing, indicate that FORM will always signal an error."
! form)
;;;=========================================================================
--- 349,361 ----
(eval-buffer buf t)))
(defmacro 1value (form)
! "For coverage testing, indicate FORM should always have the same value."
form)
(defmacro noreturn (form)
! "For coverage testing, indicate that FORM will never return."
! `(prog1 ,form
! (error "Form marked with `noreturn' did return")))
;;;=========================================================================
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/testcover.el,
Richard M. Stallman <=