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

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

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

revision 1.5 by pfdietz, Fri Jan 3 04:28:38 2003 UTC revision 1.6 by pfdietz, Mon Jan 13 14:11:51 2003 UTC
# Line 89  Line 89 
89      y)      y)
90    "edcba")    "edcba")
91    
92  (deftest reverse-error.1  ;;; Error cases
93    
94    (deftest reverse.error.1
95    (catch-type-error (reverse 'a))    (catch-type-error (reverse 'a))
96    type-error)    type-error)
97    
98  (deftest reverse-error.2  (deftest reverse.error.2
99    (catch-type-error (reverse #\a))    (catch-type-error (reverse #\a))
100    type-error)    type-error)
101    
102  (deftest reverse-error.3  (deftest reverse.error.3
103    (catch-type-error (reverse 10))    (catch-type-error (reverse 10))
104    type-error)    type-error)
105    
106  (deftest reverse-error.4  (deftest reverse.error.4
107    (catch-type-error (reverse 0.3))    (catch-type-error (reverse 0.3))
108    type-error)    type-error)
109    
110  (deftest reverse-error.5  (deftest reverse.error.5
111    (catch-type-error (reverse 10/3))    (catch-type-error (reverse 10/3))
112    type-error)    type-error)
113    
114    (deftest reverse.error.6
115      (classify-error (reverse))
116      program-error)
117    
118    (deftest reverse.error.7
119      (classify-error (reverse nil nil))
120      program-error)
121    
122    
123    
124                    
125    
126    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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