/[gcl]/gcl/ansi-tests/tree-equal.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/tree-equal.lsp

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

revision 1.1 by pfdietz, Sat Jun 14 15:10:40 2003 UTC revision 1.2 by pfdietz, Mon Jun 16 11:38:15 2003 UTC
# Line 79  Line 79 
79      (tree-equal x y))      (tree-equal x y))
80    nil)    nil)
81    
82    (defharmless tree-equal.test-and-test-not.1
83      (tree-equal '(a b) '(a b) :test #'eql :test-not #'eql))
84    
85    (defharmless tree-equal.test-and-test-not.2
86      (tree-equal '(a b) '(a b) :test-not #'eql :test #'eql))
87    
88  ;;; Keywords tests  ;;; Keywords tests
89    
90  (deftest tree-equal.allow-other-keys.1  (deftest tree-equal.allow-other-keys.1
# Line 98  Line 104 
104                           :allow-other-keys nil :foo t))                           :allow-other-keys nil :foo t))
105    t)    t)
106    
107    (deftest tree-equal.keywords.1
108      (notnot-mv (tree-equal '(a . b) '(b . a)
109                             :test (complement #'eql)
110                             :test #'eql))
111      t)
112    
113    
114  ;;; Error tests  ;;; Error tests
115    
116  (deftest tree-equal.error.1  (deftest tree-equal.error.1
# Line 116  Line 129 
129    (classify-error (tree-equal '(a b) '(a b) (gensym) t :allow-other-keys nil))    (classify-error (tree-equal '(a b) '(a b) (gensym) t :allow-other-keys nil))
130    program-error)    program-error)
131    
132    (deftest tree-equal.error.5
133      (classify-error (tree-equal '(a b) '(a b) :test #'identity))
134      program-error)
135    
   
   
   
   
   
       
136    (deftest tree-equal.error.6
137      (classify-error (tree-equal '(a b) '(a b) :test #'(lambda (x y z) (eq x y))))
138      program-error)

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