1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Thu Oct 10 23:13:22 2002
;;;; Contains: Tests of DEFPARAMETER
(in-package :cl-test)
(defparameter *defparameter-test-var-1* 100)
(deftest defparameter.1
*defparameter-test-var-1*
100)
(deftest defparameter.2
(documentation '*defparameter-test-var-1* 'variable)
nil)
;;; Show that it's declared special.
(deftest defparameter.3
(flet ((%f () *defparameter-test-var-1*))
(let ((*defparameter-test-var-1* 29))
(%f)))
29)
(deftest defparameter.4
(values
(makunbound '*defparameter-test-var-2*)
(defparameter *defparameter-test-var-2* 200 "Whatever.")
(documentation '*defparameter-test-var-2* 'variable)
*defparameter-test-var-2*)
*defparameter-test-var-2*
*defparameter-test-var-2*
"Whatever."
200)
(deftest defparameter.5
(values
(makunbound '*defparameter-test-var-2*)
(defparameter *defparameter-test-var-2* 200 "Whatever.")
(documentation '*defparameter-test-var-2* 'variable)
*defparameter-test-var-2*
(defparameter *defparameter-test-var-2* 300 "And ever.")
(documentation '*defparameter-test-var-2* 'variable)
*defparameter-test-var-2*
)
*defparameter-test-var-2*
*defparameter-test-var-2*
"Whatever."
200
*defparameter-test-var-2*
"And ever."
300)
;;; (deftest defparameter.error.1
;;; (signals-error (defparameter) program-error)
;;; t)
;;;
;;; (deftest defparameter.error.2
;;; (signals-error (defparameter *ignored-defparameter-name*)
;;; program-error)
;;; t)
;;;
;;; (deftest defparameter.error.3
;;; (signals-error (defparameter *ignored-defparameter-name* nil
;;; "documentation"
;;; "illegal extra argument")
;;; program-error)
;;; t)
(deftest defparameter.error.1
(signals-error (funcall (macro-function 'defparameter))
program-error)
t)
(deftest defparameter.error.2
(signals-error (funcall (macro-function 'defparameter)
'(defparameter *nonexistent-variable* nil))
program-error)
t)
(deftest defparameter.error.3
(signals-error (funcall (macro-function 'defparameter)
'(defparameter *nonexistent-variable* nil)
nil nil)
program-error)
t)
|
