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

Diff of /gcl/ansi-tests/nsubstitute-if.lsp

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

revision 1.3 by pfdietz, Fri Jan 3 04:28:38 2003 UTC revision 1.4 by pfdietz, Mon Jan 13 14:11:50 2003 UTC
# Line 630  Line 630 
630      result)      result)
631    #*01111)    #*01111)
632    
633    ;;; Error cases
634    
635    (deftest nsubstitute-if.error.1
636      (classify-error (nsubstitute-if))
637      program-error)
638    
639    (deftest nsubstitute-if.error.2
640      (classify-error (nsubstitute-if 'a))
641      program-error)
642    
643    (deftest nsubstitute-if.error.3
644      (classify-error (nsubstitute-if 'a #'null))
645      program-error)
646    
647    (deftest nsubstitute-if.error.4
648      (classify-error (nsubstitute-if 'a #'null nil 'bad t))
649      program-error)
650    
651    (deftest nsubstitute-if.error.5
652      (classify-error (nsubstitute-if 'a #'null nil 'bad t :allow-other-keys nil))
653      program-error)
654    
655    (deftest nsubstitute-if.error.6
656      (classify-error (nsubstitute-if 'a #'null nil :key))
657      program-error)
658    
659    (deftest nsubstitute-if.error.7
660      (classify-error (nsubstitute-if 'a #'null nil 1 2))
661      program-error)

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