[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 [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/testcover.el [lexbind] |
Date: |
Tue, 14 Oct 2003 19:32:27 -0400 |
Index: emacs/lisp/emacs-lisp/testcover.el
diff -c emacs/lisp/emacs-lisp/testcover.el:1.2.2.1
emacs/lisp/emacs-lisp/testcover.el:1.2.2.2
*** emacs/lisp/emacs-lisp/testcover.el:1.2.2.1 Fri Apr 4 01:20:16 2003
--- emacs/lisp/emacs-lisp/testcover.el Tue Oct 14 19:32:21 2003
***************
*** 2,9 ****
;; Copyright (C) 2002 Free Software Foundation, Inc.
! ;; Author: Jonathan Yavner <address@hidden>
! ;; Maintainer: Jonathan Yavner <address@hidden>
;; Keywords: lisp utility
;; This file is part of GNU Emacs.
--- 2,9 ----
;; Copyright (C) 2002 Free Software Foundation, Inc.
! ;; Author: Jonathan Yavner <address@hidden>
! ;; Maintainer: Jonathan Yavner <address@hidden>
;; Keywords: lisp utility
;; This file is part of GNU Emacs.
***************
*** 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")))
;;;=========================================================================
***************
*** 445,448 ****
--- 445,449 ----
(goto-char (next-overlay-change (point)))
(end-of-line))
+ ;;; arch-tag: 72324a4a-4a2e-4142-9249-cc56d6757588
;; testcover.el ends here.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/testcover.el [lexbind],
Miles Bader <=