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

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

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

revision 1.6 by pfdietz, Mon Jan 13 14:11:51 2003 UTC revision 1.7 by pfdietz, Fri Jan 17 13:29:23 2003 UTC
# Line 444  Line 444 
444            (position-if-not (complement #'digit-char-p) a :from-end t))))            (position-if-not (complement #'digit-char-p) a :from-end t))))
445    nil 0 nil 4)    nil 0 nil 4)
446    
447    ;;; Keyword tests
448    
449    (deftest position-if-not.allow-other-keys.1
450      (position-if-not #'zerop '(0 0 3 2 0 1) :allow-other-keys t)
451      2)
452    
453    (deftest position-if-not.allow-other-keys.2
454      (position-if-not #'zerop '(0 0 3 2 0 1) :allow-other-keys nil)
455      2)
456    
457    (deftest position-if-not.allow-other-keys.3
458      (position-if-not #'zerop '(0 0 1 2 3 0) :allow-other-keys t :bad t)
459      2)
460    
461    (deftest position-if-not.allow-other-keys.4
462      (position-if-not #'zerop '(0 0 1 2 3 0) :bad t :allow-other-keys t)
463      2)
464    
465    (deftest position-if-not.allow-other-keys.5
466      (position-if-not #'zerop '(0 0 1 2 3 0) :bad t :allow-other-keys t :key #'1-)
467      0)
468    
469    (deftest position-if-not.keywords.6
470      (position-if-not #'zerop '(0 0 1 2 3 0) :key #'1- :key #'identity)
471      0)
472    
473    (deftest position-if-not.allow-other-keys.7
474      (position-if-not #'zerop '(0 0 1 2 3 0) :bad t :allow-other-keys t
475                   :allow-other-keys nil)
476      2)
477    
478    (deftest position-if-not.allow-other-keys.8
479      (position-if-not #'zerop '(0 0 1 2 3 0) :allow-other-keys t :bad t
480                   :allow-other-keys nil)
481      2)
482    
483    (deftest position-if-not.allow-other-keys.9
484      (position-if-not #'zerop '(0 0 1 2 3 0) :allow-other-keys t
485                   :allow-other-keys nil :bad t)
486      2)
487    
488    
489  ;;; Error tests  ;;; Error tests
490    
491  (deftest position-if-not.error.1  (deftest position-if-not.error.1

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

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