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

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

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

revision 1.3 by pfdietz, Sun Jun 20 20:06:23 2004 UTC revision 1.4 by pfdietz, Fri May 6 01:13:41 2005 UTC
# Line 110  Line 110 
110  ;; Error checking  ;; Error checking
111    
112  (deftest ldiff.error.1  (deftest ldiff.error.1
113    (signals-error (ldiff 10 'a) type-error)    (signals-type-error x 10 (ldiff x 'a))
114    t)    t)
115    
116  ;; Single atoms are not dotted lists, so the next  ;; Single atoms are not dotted lists, so the next
117  ;; case should be a type-error  ;; case should be a type-error
118  (deftest ldiff.error.2  (deftest ldiff.error.2
119    (signals-error (ldiff 'a 'a) type-error)    (signals-type-error x 'a (ldiff x 'a))
120    t)    t)
121    
122  (deftest ldiff.error.3  (deftest ldiff.error.3
123    (signals-error (ldiff (make-array '(10) :initial-element 'a) '(a))    (signals-type-error x (make-array '(10) :initial-element 'a) (ldiff x '(a)))
                  type-error)  
124    t)    t)
125    
126  (deftest ldiff.error.4  (deftest ldiff.error.4
127    (signals-error (ldiff 1.23 t) type-error)    (signals-type-error x 1.23 (ldiff x t))
128    t)    t)
129    
130  (deftest ldiff.error.5  (deftest ldiff.error.5
131    (signals-error (ldiff #\w 'a) type-error)    (signals-type-error x #\w (ldiff x 'a))
132    t)    t)
133    
134  (deftest ldiff.error.6  (deftest ldiff.error.6

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

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