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 |