Lines Matching refs:substring

555 (assert-error  (tn) (lambda () (substring #\a 0 0)))
556 (assert-error  (tn) (lambda () (substring "" #\0 0)))
557 (assert-error  (tn) (lambda () (substring "" 0 #\0)))
559 (assert-error  (tn) (lambda () (substring "" -1 -2)))
560 (assert-error  (tn) (lambda () (substring "" -1 -1)))
561 (assert-error  (tn) (lambda () (substring "" -1 0)))
562 (assert-error  (tn) (lambda () (substring "" -1 1)))
563 (assert-error  (tn) (lambda () (substring "" 0 -1)))
564 (assert-equal? (tn) ""         (substring "" 0 0))
565 (assert-error  (tn) (lambda () (substring "" 0 1)))
566 (assert-error  (tn) (lambda () (substring "" 1 -1)))
567 (assert-error  (tn) (lambda () (substring "" 1 0)))
568 (assert-error  (tn) (lambda () (substring "" 1 1)))
569 (assert-error  (tn) (lambda () (substring "" 1 2)))
570 (assert-error  (tn) (lambda () (substring "" 2 -1)))
571 (assert-error  (tn) (lambda () (substring "" 2 0)))
572 (assert-error  (tn) (lambda () (substring "" 2 1)))
573 (assert-error  (tn) (lambda () (substring "" 2 2)))
574 (assert-error  (tn) (lambda () (substring "" 2 3)))
576 (assert-error  (tn) (lambda () (substring "a" -1 -2)))
577 (assert-error  (tn) (lambda () (substring "a" -1 -1)))
578 (assert-error  (tn) (lambda () (substring "a" -1 0)))
579 (assert-error  (tn) (lambda () (substring "a" -1 1)))
580 (assert-error  (tn) (lambda () (substring "a" 0 -1)))
581 (assert-equal? (tn) ""         (substring "a" 0 0))
582 (assert-equal? (tn) "a"        (substring "a" 0 1))
583 (assert-error  (tn) (lambda () (substring "a" 0 2)))
584 (assert-error  (tn) (lambda () (substring "a" 1 -1)))
585 (assert-error  (tn) (lambda () (substring "a" 1 0)))
586 (assert-equal? (tn) ""         (substring "a" 1 1))
587 (assert-error  (tn) (lambda () (substring "a" 1 2)))
588 (assert-error  (tn) (lambda () (substring "a" 2 -1)))
589 (assert-error  (tn) (lambda () (substring "a" 2 0)))
590 (assert-error  (tn) (lambda () (substring "a" 2 1)))
591 (assert-error  (tn) (lambda () (substring "a" 2 2)))
592 (assert-error  (tn) (lambda () (substring "a" 2 3)))
594 (assert-error  (tn) (lambda () (substring "ab" -1 -2)))
595 (assert-error  (tn) (lambda () (substring "ab" -1 -1)))
596 (assert-error  (tn) (lambda () (substring "ab" -1 0)))
597 (assert-error  (tn) (lambda () (substring "ab" -1 1)))
598 (assert-error  (tn) (lambda () (substring "ab" 0 -1)))
599 (assert-equal? (tn) ""         (substring "ab" 0 0))
600 (assert-equal? (tn) "a"        (substring "ab" 0 1))
601 (assert-equal? (tn) "ab"       (substring "ab" 0 2))
602 (assert-error  (tn) (lambda () (substring "ab" 0 3)))
603 (assert-error  (tn) (lambda () (substring "ab" 1 -1)))
604 (assert-error  (tn) (lambda () (substring "ab" 1 0)))
605 (assert-equal? (tn) ""         (substring "ab" 1 1))
606 (assert-equal? (tn) "b"        (substring "ab" 1 2))
607 (assert-error  (tn) (lambda () (substring "ab" 1 3)))
608 (assert-error  (tn) (lambda () (substring "ab" 2 -1)))
609 (assert-error  (tn) (lambda () (substring "ab" 2 0)))
610 (assert-error  (tn) (lambda () (substring "ab" 2 1)))
611 (assert-equal? (tn) ""         (substring "ab" 2 2))
612 (assert-error  (tn) (lambda () (substring "ab" 2 3)))
613 (assert-error  (tn) (lambda () (substring "ab" 3 -1)))
614 (assert-error  (tn) (lambda () (substring "ab" 3 0)))
615 (assert-error  (tn) (lambda () (substring "ab" 3 1)))
616 (assert-error  (tn) (lambda () (substring "ab" 3 2)))
617 (assert-error  (tn) (lambda () (substring "ab" 3 3)))
618 (assert-error  (tn) (lambda () (substring "ab" 3 4)))
620 (assert-error  (tn) (lambda () (substring "abc" -1 -2)))
621 (assert-error  (tn) (lambda () (substring "abc" -1 -1)))
622 (assert-error  (tn) (lambda () (substring "abc" -1 0)))
623 (assert-error  (tn) (lambda () (substring "abc" -1 1)))
624 (assert-error  (tn) (lambda () (substring "abc" 0 -1)))
625 (assert-equal? (tn) ""         (substring "abc" 0 0))
626 (assert-equal? (tn) "a"        (substring "abc" 0 1))
627 (assert-equal? (tn) "ab"       (substring "abc" 0 2))
628 (assert-equal? (tn) "abc"      (substring "abc" 0 3))
629 (assert-error  (tn) (lambda () (substring "abc" 0 4)))
630 (assert-error  (tn) (lambda () (substring "abc" 1 -1)))
631 (assert-error  (tn) (lambda () (substring "abc" 1 0)))
632 (assert-equal? (tn) ""         (substring "abc" 1 1))
633 (assert-equal? (tn) "b"        (substring "abc" 1 2))
634 (assert-equal? (tn) "bc"       (substring "abc" 1 3))
635 (assert-error  (tn) (lambda () (substring "abc" 1 4)))
636 (assert-error  (tn) (lambda () (substring "abc" 2 -1)))
637 (assert-error  (tn) (lambda () (substring "abc" 2 0)))
638 (assert-error  (tn) (lambda () (substring "abc" 2 1)))
639 (assert-equal? (tn) ""         (substring "abc" 2 2))
640 (assert-equal? (tn) "c"        (substring "abc" 2 3))
641 (assert-error  (tn) (lambda () (substring "abc" 2 4)))
642 (assert-error  (tn) (lambda () (substring "abc" 3 -1)))
643 (assert-error  (tn) (lambda () (substring "abc" 3 0)))
644 (assert-error  (tn) (lambda () (substring "abc" 3 1)))
645 (assert-error  (tn) (lambda () (substring "abc" 3 2)))
646 (assert-equal? (tn) ""         (substring "abc" 3 3))
647 (assert-error  (tn) (lambda () (substring "abc" 3 4)))
648 (assert-error  (tn) (lambda () (substring "abc" 4 -1)))
649 (assert-error  (tn) (lambda () (substring "abc" 4 0)))
650 (assert-error  (tn) (lambda () (substring "abc" 4 1)))
651 (assert-error  (tn) (lambda () (substring "abc" 4 2)))
652 (assert-error  (tn) (lambda () (substring "abc" 4 3)))
653 (assert-error  (tn) (lambda () (substring "abc" 4 4)))
654 (assert-error  (tn) (lambda () (substring "abc" 4 5)))
656 (assert-error  (tn) (lambda () (substring "abcd" -1 -2)))
657 (assert-error  (tn) (lambda () (substring "abcd" -1 -1)))
658 (assert-error  (tn) (lambda () (substring "abcd" -1 0)))
659 (assert-error  (tn) (lambda () (substring "abcd" -1 1)))
660 (assert-error  (tn) (lambda () (substring "abcd" 0 -1)))
661 (assert-equal? (tn) ""         (substring "abcd" 0 0))
662 (assert-equal? (tn) "a"        (substring "abcd" 0 1))
663 (assert-equal? (tn) "ab"       (substring "abcd" 0 2))
664 (assert-equal? (tn) "abc"      (substring "abcd" 0 3))
665 (assert-equal? (tn) "abcd"     (substring "abcd" 0 4))
666 (assert-error  (tn) (lambda () (substring "abcd" 0 5)))
667 (assert-error  (tn) (lambda () (substring "abcd" 1 -1)))
668 (assert-error  (tn) (lambda () (substring "abcd" 1 0)))
669 (assert-equal? (tn) ""         (substring "abcd" 1 1))
670 (assert-equal? (tn) "b"        (substring "abcd" 1 2))
671 (assert-equal? (tn) "bc"       (substring "abcd" 1 3))
672 (assert-equal? (tn) "bcd"      (substring "abcd" 1 4))
673 (assert-error  (tn) (lambda () (substring "abcd" 1 5)))
674 (assert-error  (tn) (lambda () (substring "abcd" 2 -1)))
675 (assert-error  (tn) (lambda () (substring "abcd" 2 0)))
676 (assert-error  (tn) (lambda () (substring "abcd" 2 1)))
677 (assert-equal? (tn) ""         (substring "abcd" 2 2))
678 (assert-equal? (tn) "c"        (substring "abcd" 2 3))
679 (assert-equal? (tn) "cd"       (substring "abcd" 2 4))
680 (assert-error  (tn) (lambda () (substring "abcd" 2 5)))
681 (assert-error  (tn) (lambda () (substring "abcd" 3 -1)))
682 (assert-error  (tn) (lambda () (substring "abcd" 3 0)))
683 (assert-error  (tn) (lambda () (substring "abcd" 3 1)))
684 (assert-error  (tn) (lambda () (substring "abcd" 3 2)))
685 (assert-equal? (tn) ""         (substring "abcd" 3 3))
686 (assert-equal? (tn) "d"        (substring "abcd" 3 4))
687 (assert-error  (tn) (lambda () (substring "abcd" 3 5)))
688 (assert-error  (tn) (lambda () (substring "abcd" 4 -1)))
689 (assert-error  (tn) (lambda () (substring "abcd" 4 0)))
690 (assert-error  (tn) (lambda () (substring "abcd" 4 1)))
691 (assert-error  (tn) (lambda () (substring "abcd" 4 2)))
692 (assert-error  (tn) (lambda () (substring "abcd" 4 3)))
693 (assert-equal? (tn) ""         (substring "abcd" 4 4))
694 (assert-error  (tn) (lambda () (substring "abcd" 4 5)))
695 (assert-error  (tn) (lambda () (substring "abcd" 5 -1)))
696 (assert-error  (tn) (lambda () (substring "abcd" 5 0)))
697 (assert-error  (tn) (lambda () (substring "abcd" 5 1)))
698 (assert-error  (tn) (lambda () (substring "abcd" 5 2)))
699 (assert-error  (tn) (lambda () (substring "abcd" 5 3)))
700 (assert-error  (tn) (lambda () (substring "abcd" 5 4)))
701 (assert-error  (tn) (lambda () (substring "abcd" 5 5)))
702 (assert-error  (tn) (lambda () (substring "abcd" 5 6)))
705 (assert-error  (tn) (lambda () (substring "あ" -1 -2)))
706 (assert-error  (tn) (lambda () (substring "あ" -1 -1)))
707 (assert-error  (tn) (lambda () (substring "あ" -1 0)))
708 (assert-error  (tn) (lambda () (substring "あ" -1 1)))
709 (assert-error  (tn) (lambda () (substring "あ" 0 -1)))
710 (assert-equal? (tn) ""         (substring "あ" 0 0))
711 (assert-equal? (tn) "あ"       (substring "あ" 0 1))
712 (assert-error  (tn) (lambda () (substring "あ" 0 2)))
713 (assert-error  (tn) (lambda () (substring "あ" 1 -1)))
714 (assert-error  (tn) (lambda () (substring "あ" 1 0)))
715 (assert-equal? (tn) ""         (substring "あ" 1 1))
716 (assert-error  (tn) (lambda () (substring "あ" 1 2)))
717 (assert-error  (tn) (lambda () (substring "あ" 2 -1)))
718 (assert-error  (tn) (lambda () (substring "あ" 2 0)))
719 (assert-error  (tn) (lambda () (substring "あ" 2 1)))
720 (assert-error  (tn) (lambda () (substring "あ" 2 2)))
721 (assert-error  (tn) (lambda () (substring "あ" 2 3)))
723 (assert-error  (tn) (lambda () (substring "あい" -1 -2)))
724 (assert-error  (tn) (lambda () (substring "あい" -1 -1)))
725 (assert-error  (tn) (lambda () (substring "あい" -1 0)))
726 (assert-error  (tn) (lambda () (substring "あい" -1 1)))
727 (assert-error  (tn) (lambda () (substring "あい" 0 -1)))
728 (assert-equal? (tn) ""         (substring "あい" 0 0))
729 (assert-equal? (tn) "あ"       (substring "あい" 0 1))
730 (assert-equal? (tn) "あい"     (substring "あい" 0 2))
731 (assert-error  (tn) (lambda () (substring "あい" 0 3)))
732 (assert-error  (tn) (lambda () (substring "あい" 1 -1)))
733 (assert-error  (tn) (lambda () (substring "あい" 1 0)))
734 (assert-equal? (tn) ""         (substring "あい" 1 1))
735 (assert-equal? (tn) "い"       (substring "あい" 1 2))
736 (assert-error  (tn) (lambda () (substring "あい" 1 3)))
737 (assert-error  (tn) (lambda () (substring "あい" 2 -1)))
738 (assert-error  (tn) (lambda () (substring "あい" 2 0)))
739 (assert-error  (tn) (lambda () (substring "あい" 2 1)))
740 (assert-equal? (tn) ""         (substring "あい" 2 2))
741 (assert-error  (tn) (lambda () (substring "あい" 2 3)))
742 (assert-error  (tn) (lambda () (substring "あい" 3 -1)))
743 (assert-error  (tn) (lambda () (substring "あい" 3 0)))
744 (assert-error  (tn) (lambda () (substring "あい" 3 1)))
745 (assert-error  (tn) (lambda () (substring "あい" 3 2)))
746 (assert-error  (tn) (lambda () (substring "あい" 3 3)))
747 (assert-error  (tn) (lambda () (substring "あい" 3 4)))
749 (assert-error  (tn) (lambda () (substring "あいう" -1 -2)))
750 (assert-error  (tn) (lambda () (substring "あいう" -1 -1)))
751 (assert-error  (tn) (lambda () (substring "あいう" -1 0)))
752 (assert-error  (tn) (lambda () (substring "あいう" -1 1)))
753 (assert-error  (tn) (lambda () (substring "あいう" 0 -1)))
754 (assert-equal? (tn) ""         (substring "あいう" 0 0))
755 (assert-equal? (tn) "あ"       (substring "あいう" 0 1))
756 (assert-equal? (tn) "あい"     (substring "あいう" 0 2))
757 (assert-equal? (tn) "あいう"   (substring "あいう" 0 3))
758 (assert-error  (tn) (lambda () (substring "あいう" 0 4)))
759 (assert-error  (tn) (lambda () (substring "あいう" 1 -1)))
760 (assert-error  (tn) (lambda () (substring "あいう" 1 0)))
761 (assert-equal? (tn) ""         (substring "あいう" 1 1))
762 (assert-equal? (tn) "い"       (substring "あいう" 1 2))
763 (assert-equal? (tn) "いう"     (substring "あいう" 1 3))
764 (assert-error  (tn) (lambda () (substring "あいう" 1 4)))
765 (assert-error  (tn) (lambda () (substring "あいう" 2 -1)))
766 (assert-error  (tn) (lambda () (substring "あいう" 2 0)))
767 (assert-error  (tn) (lambda () (substring "あいう" 2 1)))
768 (assert-equal? (tn) ""         (substring "あいう" 2 2))
769 (assert-equal? (tn) "う"       (substring "あいう" 2 3))
770 (assert-error  (tn) (lambda () (substring "あいう" 2 4)))
771 (assert-error  (tn) (lambda () (substring "あいう" 3 -1)))
772 (assert-error  (tn) (lambda () (substring "あいう" 3 0)))
773 (assert-error  (tn) (lambda () (substring "あいう" 3 1)))
774 (assert-error  (tn) (lambda () (substring "あいう" 3 2)))
775 (assert-equal? (tn) ""         (substring "あいう" 3 3))
776 (assert-error  (tn) (lambda () (substring "あいう" 3 4)))
777 (assert-error  (tn) (lambda () (substring "あいう" 4 -1)))
778 (assert-error  (tn) (lambda () (substring "あいう" 4 0)))
779 (assert-error  (tn) (lambda () (substring "あいう" 4 1)))
780 (assert-error  (tn) (lambda () (substring "あいう" 4 2)))
781 (assert-error  (tn) (lambda () (substring "あいう" 4 3)))
782 (assert-error  (tn) (lambda () (substring "あいう" 4 4)))
783 (assert-error  (tn) (lambda () (substring "あいう" 4 5)))
785 (assert-error  (tn) (lambda () (substring "あいうえ" -1 -2)))
786 (assert-error  (tn) (lambda () (substring "あいうえ" -1 -1)))
787 (assert-error  (tn) (lambda () (substring "あいうえ" -1 0)))
788 (assert-error  (tn) (lambda () (substring "あいうえ" -1 1)))
789 (assert-error  (tn) (lambda () (substring "あいうえ" 0 -1)))
790 (assert-equal? (tn) ""         (substring "あいうえ" 0 0))
791 (assert-equal? (tn) "あ"       (substring "あいうえ" 0 1))
792 (assert-equal? (tn) "あい"     (substring "あいうえ" 0 2))
793 (assert-equal? (tn) "あいう"   (substring "あいうえ" 0 3))
794 (assert-equal? (tn) "あいうえ" (substring "あいうえ" 0 4))
795 (assert-error  (tn) (lambda () (substring "あいうえ" 0 5)))
796 (assert-error  (tn) (lambda () (substring "あいうえ" 1 -1)))
797 (assert-error  (tn) (lambda () (substring "あいうえ" 1 0)))
798 (assert-equal? (tn) ""         (substring "あいうえ" 1 1))
799 (assert-equal? (tn) "い"       (substring "あいうえ" 1 2))
800 (assert-equal? (tn) "いう"     (substring "あいうえ" 1 3))
801 (assert-equal? (tn) "いうえ"   (substring "あいうえ" 1 4))
802 (assert-error  (tn) (lambda () (substring "あいうえ" 1 5)))
803 (assert-error  (tn) (lambda () (substring "あいうえ" 2 -1)))
804 (assert-error  (tn) (lambda () (substring "あいうえ" 2 0)))
805 (assert-error  (tn) (lambda () (substring "あいうえ" 2 1)))
806 (assert-equal? (tn) ""         (substring "あいうえ" 2 2))
807 (assert-equal? (tn) "う"       (substring "あいうえ" 2 3))
808 (assert-equal? (tn) "うえ"     (substring "あいうえ" 2 4))
809 (assert-error  (tn) (lambda () (substring "あいうえ" 2 5)))
810 (assert-error  (tn) (lambda () (substring "あいうえ" 3 -1)))
811 (assert-error  (tn) (lambda () (substring "あいうえ" 3 0)))
812 (assert-error  (tn) (lambda () (substring "あいうえ" 3 1)))
813 (assert-error  (tn) (lambda () (substring "あいうえ" 3 2)))
814 (assert-equal? (tn) ""         (substring "あいうえ" 3 3))
815 (assert-equal? (tn) "え"       (substring "あいうえ" 3 4))
816 (assert-error  (tn) (lambda () (substring "あいうえ" 3 5)))
817 (assert-error  (tn) (lambda () (substring "あいうえ" 4 -1)))
818 (assert-error  (tn) (lambda () (substring "あいうえ" 4 0)))
819 (assert-error  (tn) (lambda () (substring "あいうえ" 4 1)))
820 (assert-error  (tn) (lambda () (substring "あいうえ" 4 2)))
821 (assert-error  (tn) (lambda () (substring "あいうえ" 4 3)))
822 (assert-equal? (tn) ""         (substring "あいうえ" 4 4))
823 (assert-error  (tn) (lambda () (substring "あいうえ" 4 5)))
824 (assert-error  (tn) (lambda () (substring "あいうえ" 5 -1)))
825 (assert-error  (tn) (lambda () (substring "あいうえ" 5 0)))
826 (assert-error  (tn) (lambda () (substring "あいうえ" 5 1)))
827 (assert-error  (tn) (lambda () (substring "あいうえ" 5 2)))
828 (assert-error  (tn) (lambda () (substring "あいうえ" 5 3)))
829 (assert-error  (tn) (lambda () (substring "あいうえ" 5 4)))
830 (assert-error  (tn) (lambda () (substring "あいうえ" 5 5)))
831 (assert-error  (tn) (lambda () (substring "あいうえ" 5 6)))
834 (assert-error  (tn) (lambda () (substring "aいuえ" -1 -2)))
835 (assert-error  (tn) (lambda () (substring "aいuえ" -1 -1)))
836 (assert-error  (tn) (lambda () (substring "aいuえ" -1 0)))
837 (assert-error  (tn) (lambda () (substring "aいuえ" -1 1)))
838 (assert-error  (tn) (lambda () (substring "aいuえ" 0 -1)))
839 (assert-equal? (tn) ""         (substring "aいuえ" 0 0))
840 (assert-equal? (tn) "a"        (substring "aいuえ" 0 1))
841 (assert-equal? (tn) "aい"      (substring "aいuえ" 0 2))
842 (assert-equal? (tn) "aいu"     (substring "aいuえ" 0 3))
843 (assert-equal? (tn) "aいuえ"   (substring "aいuえ" 0 4))
844 (assert-error  (tn) (lambda () (substring "aいuえ" 0 5)))
845 (assert-error  (tn) (lambda () (substring "aいuえ" 1 -1)))
846 (assert-error  (tn) (lambda () (substring "aいuえ" 1 0)))
847 (assert-equal? (tn) ""         (substring "aいuえ" 1 1))
848 (assert-equal? (tn) "い"       (substring "aいuえ" 1 2))
849 (assert-equal? (tn) "いu"      (substring "aいuえ" 1 3))
850 (assert-equal? (tn) "いuえ"    (substring "aいuえ" 1 4))
851 (assert-error  (tn) (lambda () (substring "aいuえ" 1 5)))
852 (assert-error  (tn) (lambda () (substring "aいuえ" 2 -1)))
853 (assert-error  (tn) (lambda () (substring "aいuえ" 2 0)))
854 (assert-error  (tn) (lambda () (substring "aいuえ" 2 1)))
855 (assert-equal? (tn) ""         (substring "aいuえ" 2 2))
856 (assert-equal? (tn) "u"        (substring "aいuえ" 2 3))
857 (assert-equal? (tn) "uえ"      (substring "aいuえ" 2 4))
858 (assert-error  (tn) (lambda () (substring "aいuえ" 2 5)))
859 (assert-error  (tn) (lambda () (substring "aいuえ" 3 -1)))
860 (assert-error  (tn) (lambda () (substring "aいuえ" 3 0)))
861 (assert-error  (tn) (lambda () (substring "aいuえ" 3 1)))
862 (assert-error  (tn) (lambda () (substring "aいuえ" 3 2)))
863 (assert-equal? (tn) ""         (substring "aいuえ" 3 3))
864 (assert-equal? (tn) "え"       (substring "aいuえ" 3 4))
865 (assert-error  (tn) (lambda () (substring "aいuえ" 3 5)))
866 (assert-error  (tn) (lambda () (substring "aいuえ" 4 -1)))
867 (assert-error  (tn) (lambda () (substring "aいuえ" 4 0)))
868 (assert-error  (tn) (lambda () (substring "aいuえ" 4 1)))
869 (assert-error  (tn) (lambda () (substring "aいuえ" 4 2)))
870 (assert-error  (tn) (lambda () (substring "aいuえ" 4 3)))
871 (assert-equal? (tn) ""         (substring "aいuえ" 4 4))
872 (assert-error  (tn) (lambda () (substring "aいuえ" 4 5)))
873 (assert-error  (tn) (lambda () (substring "aいuえ" 5 -1)))
874 (assert-error  (tn) (lambda () (substring "aいuえ" 5 0)))
875 (assert-error  (tn) (lambda () (substring "aいuえ" 5 1)))
876 (assert-error  (tn) (lambda () (substring "aいuえ" 5 2)))
877 (assert-error  (tn) (lambda () (substring "aいuえ" 5 3)))
878 (assert-error  (tn) (lambda () (substring "aいuえ" 5 4)))
879 (assert-error  (tn) (lambda () (substring "aいuえ" 5 5)))
880 (assert-error  (tn) (lambda () (substring "aいuえ" 5 6)))
883 (assert-equal? (tn) ""         (substring (cp "") 0 0))
884 (assert-equal? (tn) "a"        (substring (cp "a") 0 1))
885 (assert-equal? (tn) "あ"       (substring (cp "あ") 0 1))
886 (assert-equal? (tn) "いuえ"    (substring (cp "aいuえ") 1 4))
889 (assert-true   (tn) (mutable?  (substring     ""        0 0)))
890 (assert-true   (tn) (mutable?  (substring     "a"       0 1)))
891 (assert-true   (tn) (mutable?  (substring     "あ"      0 1)))
892 (assert-true   (tn) (mutable?  (substring     "aいuえ"  1 4)))
893 (assert-true   (tn) (mutable?  (substring (cp "")       0 0)))
894 (assert-true   (tn) (mutable?  (substring (cp "a")      0 1)))
895 (assert-true   (tn) (mutable?  (substring (cp "あ")     0 1)))
896 (assert-true   (tn) (mutable?  (substring (cp "aいuえ") 1 4)))