/[gcl]/gcl/ansi-tests/some.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/some.lsp

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

revision 1.2 by pfdietz, Tue Nov 5 12:43:32 2002 UTC revision 1.3 by pfdietz, Mon Jan 13 14:11:51 2003 UTC
# Line 71  Line 71 
71    nil)    nil)
72    
73  (deftest some.15  (deftest some.15
74      (some 'null '(1 2 3 4))
75      nil)
76    
77    (deftest some.16
78      (not (some 'null '(1 2 3 nil 5)))
79      nil)
80    
81    
82    (deftest some.error.1
83    (classify-error (some 1 '(a b c)))    (classify-error (some 1 '(a b c)))
84    type-error)    type-error)
85    
86  (deftest some.16  (deftest some.error.2
87    (classify-error (some #\a '(a b c)))    (classify-error (some #\a '(a b c)))
88    type-error)    type-error)
89    
90  (deftest some.17  (deftest some.error.3
91    (classify-error (some #() '(a b c)))    (classify-error (some #() '(a b c)))
92    type-error)    type-error)
93    
94  (deftest some.18  (deftest some.error.4
   (some 'null '(1 2 3 4))  
   nil)  
   
 (deftest some.19  
   (not (some 'null '(1 2 3 nil 5)))  
   nil)  
   
 (deftest some.20  
95    (classify-error (some #'null 'a))    (classify-error (some #'null 'a))
96    type-error)    type-error)
97    
98  (deftest some.21  (deftest some.error.5
99    (classify-error (some #'null 100))    (classify-error (some #'null 100))
100    type-error)    type-error)
101    
102  (deftest some.22  (deftest some.error.6
103    (classify-error (some #'null 'a))    (classify-error (some #'null 'a))
104    type-error)    type-error)
105    
106  (deftest some.23  (deftest some.error.7
107    (classify-error (some #'eq () 'a))    (classify-error (some #'eq () 'a))
108    type-error)    type-error)
109    
110    (deftest some.error.8
111      (classify-error (some))
112      program-error)
113    
114    (deftest some.error.9
115      (classify-error (some #'null))
116      program-error)
117    

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

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