annotate lisp/emacs-lisp/tcover-unsafep.el @ 82569:16c43d5ebaaa

Move tree-widget/ from etc/ to etc/images/
author Glenn Morris <rgm@gnu.org>
date Wed, 22 Aug 2007 04:58:31 +0000
parents 935157c0b596
children 78ee6fae0e41 fc93e9674475
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
53440
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
1 ;;;; testcover-unsafep.el -- Use testcover to test unsafep's code coverage
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
2
75346
7a3f13e2dd57 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 68648
diff changeset
3 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
53440
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
4
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
5 ;; Author: Jonathan Yavner <jyavner@engineer.com>
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
6 ;; Maintainer: Jonathan Yavner <jyavner@engineer.com>
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
7 ;; Keywords: safety lisp utility
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
8
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
10
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
78217
935157c0b596 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 75346
diff changeset
13 ;; the Free Software Foundation; either version 3, or (at your option)
53440
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
14 ;; any later version.
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
15
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
19 ;; GNU General Public License for more details.
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
20
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 53440
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 53440
diff changeset
24 ;; Boston, MA 02110-1301, USA.
53440
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
25
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
26 (require 'testcover)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
27
65196
00f2dbd6f52a (safe-functions): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
28 (defvar safe-functions)
00f2dbd6f52a (safe-functions): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64751
diff changeset
29
53440
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
30 ;;;These forms are all considered safe
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
31 (defconst testcover-unsafep-safe
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
32 '(((lambda (x) (* x 2)) 14)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
33 (apply 'cdr (mapcar '(lambda (x) (car x)) y))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
34 (cond ((= x 4) 5) (t 27))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
35 (condition-case x (car y) (error (car x)))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
36 (dolist (x y) (message "here: %s" x))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
37 (dotimes (x 14 (* x 2)) (message "here: %d" x))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
38 (let (x) (dolist (y '(1 2 3) (1+ y)) (push y x)))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
39 (let (x) (apply '(lambda (x) (* x 2)) 14))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
40 (let ((x '(2))) (push 1 x) (pop x) (add-to-list 'x 2))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
41 (let ((x 1) (y 2)) (setq x (+ x y)))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
42 (let ((x 1)) (let ((y (+ x 3))) (* x y)))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
43 (let* nil (current-time))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
44 (let* ((x 1) (y (+ x 3))) (* x y))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
45 (mapcar (lambda (x &optional y &rest z) (setq y (+ x 2)) (* y 3)) '(1 2 3))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
46 (mapconcat #'(lambda (var) (propertize var 'face 'bold)) '("1" "2") ", ")
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
47 (setq buffer-display-count 14 mark-active t)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
48 ;;This is not safe if you insert it into a buffer!
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
49 (propertize "x" 'display '(height (progn (delete-file "x") 1))))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
50 "List of forms that `unsafep' should decide are safe.")
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
51
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
52 ;;;These forms are considered unsafe
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
53 (defconst testcover-unsafep-unsafe
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
54 '(( (add-to-list x y)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
55 . (unquoted x))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
56 ( (add-to-list y x)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
57 . (unquoted y))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
58 ( (add-to-list 'y x)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
59 . (global-variable y))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
60 ( (not (delete-file "unsafep.el"))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
61 . (function delete-file))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
62 ( (cond (t (aset local-abbrev-table 0 0)))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
63 . (function aset))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
64 ( (cond (t (setq unsafep-vars "")))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
65 . (risky-local-variable unsafep-vars))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
66 ( (condition-case format-alist 1)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
67 . (risky-local-variable format-alist))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
68 ( (condition-case x 1 (error (setq format-alist "")))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
69 . (risky-local-variable format-alist))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
70 ( (dolist (x (sort globalvar 'car)) (princ x))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
71 . (function sort))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
72 ( (dotimes (x 14) (delete-file "x"))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
73 . (function delete-file))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
74 ( (let ((post-command-hook "/tmp/")) 1)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
75 . (risky-local-variable post-command-hook))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
76 ( (let ((x (delete-file "x"))) 2)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
77 . (function delete-file))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
78 ( (let (x) (add-to-list 'x (delete-file "x")))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
79 . (function delete-file))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
80 ( (let (x) (condition-case y (setq x 1 z 2)))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
81 . (global-variable z))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
82 ( (let (x) (condition-case z 1 (error (delete-file "x"))))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
83 . (function delete-file))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
84 ( (let (x) (mapc (lambda (x) (setcar x 1)) '((1 . 2) (3 . 4))))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
85 . (function setcar))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
86 ( (let (y) (push (delete-file "x") y))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
87 . (function delete-file))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
88 ( (let* ((x 1)) (setq y 14))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
89 . (global-variable y))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
90 ( (mapc 'car (list '(1 . 2) (cons 3 4) (kill-buffer "unsafep.el")))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
91 . (function kill-buffer))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
92 ( (mapcar x y)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
93 . (unquoted x))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
94 ( (mapcar '(lambda (x) (rename-file x "x")) '("unsafep.el"))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
95 . (function rename-file))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
96 ( (mapconcat x1 x2 " ")
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
97 . (unquoted x1))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
98 ( (pop format-alist)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
99 . (risky-local-variable format-alist))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
100 ( (push 1 format-alist)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
101 . (risky-local-variable format-alist))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
102 ( (setq buffer-display-count (delete-file "x"))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
103 . (function delete-file))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
104 ;;These are actualy safe (they signal errors)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
105 ( (apply '(x) '(1 2 3))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
106 . (function (x)))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
107 ( (let (((x))) 1)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
108 . (variable (x)))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
109 ( (let (1) 2)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
110 . (variable 1))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
111 )
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
112 "A-list of (FORM . REASON)... that`unsafep' should decide are unsafe.")
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
113
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
114
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
115 ;;;#########################################################################
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
116 (defun testcover-unsafep ()
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
117 "Executes all unsafep tests and displays the coverage results."
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
118 (interactive)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
119 (testcover-unmark-all "unsafep.el")
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
120 (testcover-start "unsafep.el")
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
121 (let (save-functions)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
122 (dolist (x testcover-unsafep-safe)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
123 (if (unsafep x)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
124 (error "%S should be safe" x)))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
125 (dolist (x testcover-unsafep-unsafe)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
126 (if (not (equal (unsafep (car x)) (cdr x)))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
127 (error "%S should be unsafe: %s" (car x) (cdr x))))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
128 (setq safe-functions t)
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
129 (if (or (unsafep '(delete-file "x"))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
130 (unsafep-function 'delete-file))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
131 (error "safe-functions=t should allow delete-file"))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
132 (setq safe-functions '(setcar))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
133 (if (unsafep '(setcar x 1))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
134 (error "safe-functions=(setcar) should allow setcar"))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
135 (if (not (unsafep '(setcdr x 1)))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
136 (error "safe-functions=(setcar) should not allow setcdr")))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
137 (testcover-mark-all "unsafep.el")
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
138 (testcover-end "unsafep.el")
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
139 (message "Done"))
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
140
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
141 ;;; arch-tag: a7616c27-1998-47ae-9304-76d1439dbf29
296b4cb363cc emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff changeset
142 ;; testcover-unsafep.el ends here.