(< split-point (length result))))
(is (string= result (dummy-strcat (subseq result 0 split-point)
(subseq result split-point))))))
(< split-point (length result))))
(is (string= result (dummy-strcat (subseq result 0 split-point)
(subseq result split-point))))))