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

Diff of /gcl/ansi-tests/replace.lsp

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

revision 1.4 by pfdietz, Fri Jan 3 04:28:38 2003 UTC revision 1.5 by pfdietz, Mon Jan 13 14:11:51 2003 UTC
# Line 585  Line 585 
585      (values (eqt x result) result))      (values (eqt x result) result))
586    t    t
587    "aabcef")    "aabcef")
588    
589    ;;; Error cases
590    
591    (deftest replace.error.1
592      (classify-error (replace))
593      program-error)
594    
595    (deftest replace.error.2
596      (classify-error (replace nil))
597      program-error)
598    
599    (deftest replace.error.3
600      (classify-error (replace nil nil :start))
601      program-error)
602    
603    (deftest replace.error.4
604      (classify-error (replace nil nil 'bad t))
605      program-error)
606    
607    (deftest replace.error.5
608      (classify-error (replace nil nil :allow-other-keys nil 'bad t))
609      program-error)
610    
611    (deftest replace.error.6
612      (classify-error (replace nil nil 1 2))
613      program-error)
614    

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