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

Diff of /gcl/ansi-tests/nsubstitute.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 835  Line 835 
835           (result (nsubstitute 1 0 x :from-end t :count 1)))           (result (nsubstitute 1 0 x :from-end t :count 1)))
836      result)      result)
837    #*01111)    #*01111)
838    
839    ;;; Error cases
840    
841    (deftest nsubstitute.error.1
842      (classify-error (nsubstitute))
843      program-error)
844    
845    (deftest nsubstitute.error.2
846      (classify-error (nsubstitute 'a))
847      program-error)
848    
849    (deftest nsubstitute.error.3
850      (classify-error (nsubstitute 'a 'b))
851      program-error)
852    
853    (deftest nsubstitute.error.4
854      (classify-error (nsubstitute 'a 'b nil 'bad t))
855      program-error)
856    
857    (deftest nsubstitute.error.5
858      (classify-error (nsubstitute 'a 'b nil 'bad t :allow-other-keys nil))
859      program-error)
860    
861    (deftest nsubstitute.error.6
862      (classify-error (nsubstitute 'a 'b nil :key))
863      program-error)
864    
865    (deftest nsubstitute.error.7
866      (classify-error (nsubstitute 'a 'b nil 1 2))
867      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