: message ( -- str )
55 [ "hello" ] replicate concat ;
-{ f } [ message >quoted "=\r\n" subseq-index? ] unit-test
+{ f } [ message >quoted "=\r\n" subseq-of? ] unit-test
{ 1 } [ message >quoted split-lines length ] unit-test
-{ t } [ message >quoted-lines "=\r\n" subseq-index? ] unit-test
+{ t } [ message >quoted-lines "=\r\n" subseq-of? ] unit-test
{ 4 } [ message >quoted-lines split-lines length ] unit-test
{ "===o" } [ message >quoted-lines split-lines [ last ] "" map-as ] unit-test