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 |