core: subseq-index? -> subseq-of?

[factor.git] / basis / quoted-printable / quoted-printable-tests.factor

diff --git a/basis/quoted-printable/quoted-printable-tests.factor b/basis/quoted-printable/quoted-printable-tests.factor
index abaff9e222eb804f2e1401e2d0c43a83e6a99d47..e8dcf3f33bb399f36e3b0b4eb73003586c0aadef 100644 (file)
--- a/basis/quoted-printable/quoted-printable-tests.factor
+++ b/basis/quoted-printable/quoted-printable-tests.factor
@@ -1,30 +1,30 @@
 ! Copyright (C) 2009 Daniel Ehrenberg
 ! See http://factorcode.org/license.txt for BSD license.
-USING: tools.test quoted-printable multiline io.encodings.string
-sequences io.encodings.8-bit splitting kernel ;
+USING: tools.test quoted-printable io.encodings.string
+sequences splitting kernel io.encodings.8-bit ;
 IN: quoted-printable.tests
 
-[ <" José was the
+{ "José was the
 person who knew how to write the letters:
     ő and ü 
-and we didn't know hów tö do thât"> ]
-[ <" Jos=E9 was the
+and we didn't know hów tö do thât" }
+[ "Jos=E9 was the
 person who knew how to write the letters:
     =F5 and =FC=20
 and w=
-e didn't know h=F3w t=F6 do th=E2t"> quoted> latin2 decode ] unit-test
+e didn't know h=F3w t=F6 do th=E2t" quoted> latin2 decode ] unit-test
 
-[ <" Jos=E9 was the=0Aperson who knew how to write the letters:=0A    =F5 and =FC=0Aand we didn't know h=F3w t=F6 do th=E2t"> ]
-[ <" José was the
+{ "Jos=E9 was the=0Aperson who knew how to write the letters:=0A    =F5 and =FC=0Aand we didn't know h=F3w t=F6 do th=E2t" }
+[ "José was the
 person who knew how to write the letters:
     ő and ü
-and we didn't know hów tö do thât"> latin2 encode >quoted ] unit-test
+and we didn't know hów tö do thât" latin2 encode >quoted ] unit-test
 
 : message ( -- str )
     55 [ "hello" ] replicate concat ;
 
-[ f ] [ message >quoted "=\r\n" swap subseq? ] unit-test
-[ 1 ] [ message >quoted string-lines length ] unit-test
-[ t ] [ message >quoted-lines "=\r\n" swap subseq? ] unit-test
-[ 4 ] [ message >quoted-lines string-lines length ] unit-test
-[ "===o" ] [ message >quoted-lines string-lines [ last ] "" map-as ] 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-of? ] unit-test
+{ 4 } [ message >quoted-lines split-lines length ] unit-test
+{ "===o" } [ message >quoted-lines split-lines [ last ] "" map-as ] unit-test