/[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.5 by pfdietz, Mon Jan 13 14:11:51 2003 UTC revision 1.6 by pfdietz, Fri Jan 17 13:29:23 2003 UTC
# Line 586  Line 586 
586    t    t
587    "aabcef")    "aabcef")
588    
589    ;;; Keyword tests
590    
591    (deftest replace.allow-other-keys.1
592      (replace (copy-seq "abcdefg") "xyz" :allow-other-keys t)
593      "xyzdefg")
594    
595    (deftest replace.allow-other-keys.2
596      (replace (copy-seq "abcdefg") "xyz" :allow-other-keys nil)
597      "xyzdefg")
598    
599    (deftest replace.allow-other-keys.3
600      (replace (copy-seq "abcdefg") "xyz" :allow-other-keys t :bad t)
601      "xyzdefg")
602    
603    (deftest replace.allow-other-keys.4
604      (replace (copy-seq "abcdefg") "xyz" :bad t :allow-other-keys t)
605      "xyzdefg")
606    
607    (deftest replace.allow-other-keys.5
608      (replace (copy-seq "abcdefg") "xyz" :bad1 t :allow-other-keys t
609               :bad2 t :allow-other-keys nil :bad3 nil)
610      "xyzdefg")
611    
612    (deftest replace.allow-other-keys.6
613      (replace (copy-seq "abcdefg") "xyz" :allow-other-keys t :start1 1)
614      "axyzefg")
615    
616    (deftest replace.keywords.7
617      (replace (copy-seq "abcdefg") "xyz" :start1 0 :start2 0 :end1 3 :end2 3
618               :start1 1 :start2 1 :end1 2 :end1 2)
619      "xyzdefg")
620    
621    
622    
623    
624  ;;; Error cases  ;;; Error cases
625    
626  (deftest replace.error.1  (deftest replace.error.1

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

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