/[gcl]/gcl/ansi-tests/cons-test-06.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-06.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Thu Sep 26 16:53:37 2002 UTC revision 1.2 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 24  Line 24 
24    nil)    nil)
25    
26  (deftest endp-symbol-error  (deftest endp-symbol-error
27      (catch-type-error (endp 'a))    (catch-type-error (endp 'a))
28    type-error)    type-error)
29    
30  (deftest endp-fixnum-error  (deftest endp-fixnum-error
31      (catch-type-error (endp 1))    (catch-type-error (endp 1))
32    type-error)    type-error)
33    
34  (deftest endp-float-error  (deftest endp-float-error
35      (catch-type-error (endp 0.9212d4))    (catch-type-error (endp 0.9212d4))
36    type-error)    type-error)
37    
38    (deftest endp.error.4
39      (classify-error (endp))
40      program-error)
41    
42    (deftest endp.error.5
43      (classify-error (endp nil nil))
44      program-error)
45    
46  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
47  ;;; null  ;;; null
48    
# Line 48  Line 56 
56                     #'car (make-array '(10)))))                     #'car (make-array '(10)))))
57    t)    t)
58    
59    (deftest null.error.1
60      (classify-error (null))
61      program-error)
62    
63    (deftest null.error.2
64      (classify-error (null nil nil))
65      program-error)
66    
67  (deftest not-1  (deftest not-1
68      (not nil)      (not nil)
69    t)    t)
# Line 58  Line 74 
74                     #'car (make-array '(10)))))                     #'car (make-array '(10)))))
75    t)    t)
76    
77    (deftest not.error.1
78      (classify-error (not))
79      program-error)
80    
81    (deftest not.error.2
82      (classify-error (not nil nil))
83      program-error)
84    
85  (deftest typep-nil-null  (deftest typep-nil-null
86      (not (not (typep nil 'null)))      (not (not (typep nil 'null)))
87    t)    t)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26