/[gcl]/gcl/ansi-tests/find-if-not.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/find-if-not.lsp

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

revision 1.3 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.4 by pfdietz, Thu Jan 16 14:11:33 2003 UTC
# Line 484  Line 484 
484     (nil #\6)     (nil #\6)
485     (#\6)))     (#\6)))
486    
487    
488    ;;; Keyword tests
489    
490    (deftest find-if-not.allow-other-keys.1
491      (find-if-not #'oddp '(1 2 3 4 5) :bad t :allow-other-keys t)
492      2)
493    
494    (deftest find-if-not.allow-other-keys.2
495      (find-if-not #'oddp '(1 2 3 4 5) :allow-other-keys t :also-bad t)
496      2)
497    
498    ;;; The leftmost of two :allow-other-keys arguments is the one that  matters.
499    (deftest find-if-not.allow-other-keys.3
500      (find-if-not #'oddp '(1 2 3 4 5)
501                :allow-other-keys t
502                :allow-other-keys nil
503                :bad t)
504      2)
505    
506    (deftest find-if-not.keywords.4
507      (find-if-not #'oddp '(1 2 3 4 5) :key #'identity :key #'1+)
508      2)
509    
510    (deftest find-if-not.allow-other-keys.5
511      (find-if-not #'null '(nil a b c nil) :allow-other-keys nil)
512      a)
513    
514  ;;; Error tests  ;;; Error tests
515    
516  (deftest find-if-not.error.1  (deftest find-if-not.error.1

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