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

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

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

revision 1.4 by pfdietz, Wed Oct 23 03:10:23 2002 UTC revision 1.5 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 257  Line 257 
257    (adjoin (copy-seq "aaa") '(aaa "AAA" "aaa" #\a)    (adjoin (copy-seq "aaa") '(aaa "AAA" "aaa" #\a)
258            :test-not (complement #'equal) :key nil)            :test-not (complement #'equal) :key nil)
259    (aaa "AAA" "aaa" #\a))    (aaa "AAA" "aaa" #\a))
260    
261    (deftest adjoin-other-keys-1
262      (adjoin 'a '(b c) :bad t :allow-other-keys t)
263      (a b c))
264    
265    (deftest adjoin-other-keys-2
266      (adjoin 'a '(b c) :allow-other-keys t :foo t)
267      (a b c))
268    
269    (deftest adjoin-repeat-key
270      (adjoin 'a '(b c) :test #'eq :test (complement #'eq))
271      (a b c))                                            
272    
273    (deftest adjoin.error.1
274      (classify-error (adjoin))
275      program-error)
276    
277    (deftest adjoin.error.2
278      (classify-error (adjoin 'a))
279      program-error)
280    
281    (deftest adjoin.error.3
282      (classify-error (adjoin 'a '(b c) :bad t))
283      program-error)
284    
285    (deftest adjoin.error.4
286      (classify-error (adjoin 'a '(b c) :allow-other-keys nil :bad t))
287      program-error)
288    
289    (deftest adjoin.error.5
290      (classify-error (adjoin 'a '(b c) 1 2))
291      program-error)
292    
293    (deftest adjoin.error.6
294      (classify-error (adjoin 'a '(b c) :test))
295      program-error)

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

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