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

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

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

revision 1.7 by pfdietz, Sat Jan 18 12:49:35 2003 UTC revision 1.8 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 129  Line 129 
129  ;;; Keyword tests  ;;; Keyword tests
130    
131  (deftest subsetp.allow-other-keys.1  (deftest subsetp.allow-other-keys.1
132    (notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :bad t :allow-other-keys 67))    (notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :bad t :allow-other-keys 67))
133    t)    t)
134    
135  (deftest subsetp.allow-other-keys.2  (deftest subsetp.allow-other-keys.2
136    (notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5)    (notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4 5)
137                     :allow-other-keys #'cons :bad t))                     :allow-other-keys #'cons :bad t))
138    t)    t)
139    
140  (deftest subsetp.allow-other-keys.3  (deftest subsetp.allow-other-keys.3
141    (notnot (subsetp '(1 2 3 4) '(0 1 2 3 4)    (notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4)
142                     :allow-other-keys (make-hash-table)                     :allow-other-keys (make-hash-table)
143                     :bad t                     :bad t
144                     :test #'(lambda (x y) (= (1+ x) y))))                     :test #'(lambda (x y) (= (1+ x) y))))
145    nil)    nil)
146    
147  (deftest subsetp.allow-other-keys.4  (deftest subsetp.allow-other-keys.4
148    (notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :allow-other-keys t))    (notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :allow-other-keys t))
149    t)    t)
150    
151  (deftest subsetp.allow-other-keys.5  (deftest subsetp.allow-other-keys.5
152    (notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :allow-other-keys nil))    (notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :allow-other-keys nil))
153    t)    t)
154    
155  (deftest subsetp.allow-other-keys.6  (deftest subsetp.allow-other-keys.6
156    (notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5)    (notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4 5)
157                     :allow-other-keys t :bad1 t                     :allow-other-keys t :bad1 t
158                     :allow-other-keys nil :bad2 t))                     :allow-other-keys nil :bad2 t))
159    t)    t)
160    
161  (deftest subsetp.keywords.7  (deftest subsetp.keywords.7
162    (notnot (subsetp '(1 2 3 4) '(0 1 2 3 4)    (notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4)
163                     :test #'(lambda (x y) (= (1+ x) y))                     :test #'(lambda (x y) (= (1+ x) y))
164                     :test #'eql))                     :test #'eql))
165    nil)    nil)
166    
167  (deftest subsetp.keywords.8  (deftest subsetp.keywords.8
168    (notnot (subsetp '(1 2 3 4 10) '(0 1 2 3 4)    (notnot-mv (subsetp '(1 2 3 4 10) '(0 1 2 3 4)
169                     :key nil                     :key nil
170                     :key #'(lambda (x) (mod x 2))))                     :key #'(lambda (x) (mod x 2))))
171    nil)    nil)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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