/[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.8 by pfdietz, Sat Jan 17 22:34:46 2004 UTC revision 1.9 by pfdietz, Thu Sep 23 13:28:54 2004 UTC
# Line 586  Line 586 
586    t    t
587    "aabcef")    "aabcef")
588    
589    (deftest replace-string.22
590      (do-special-strings
591       (s "abcdefg" nil)
592       (assert (eq s (replace s "XYZ")))
593       (assert (string= s "XYZdefg")))
594      nil)
595    
596    (deftest replace-string.23
597      (do-special-strings
598       (s "abcdefg" nil)
599       (assert (eq s (replace s "XYZ" :start1 1)))
600       (assert (string= s "aXYZefg")))
601      nil)
602    
603    (deftest replace-string.24
604      (do-special-strings
605       (s "abcdefg" nil)
606       (assert (eq s (replace s "XYZ" :start1 1 :end2 2)))
607       (assert (string= s "aXYdefg")))
608      nil)
609    
610    (deftest replace-string.25
611      (do-special-strings
612       (s "abcdefg" nil)
613       (assert (eq s (replace s "XYZ" :end1 2)))
614       (assert (string= s "XYcdefg")))
615      nil)
616    
617    (deftest replace-string.26
618      (do-special-strings
619       (s "abcdefg" nil)
620       (assert (eq s (replace s "XYZ" :start2 1)))
621       (assert (string= s "YZcdefg")))
622      nil)
623    
624    
625    
626    
627    
628  ;;; Order of evaluation tests  ;;; Order of evaluation tests
629    
630  (deftest replace.order.1  (deftest replace.order.1

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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