core: Add words/unwords/unwords-as and use them.

[factor.git] / basis / http / server / server-tests.factor

diff --git a/basis/http/server/server-tests.factor b/basis/http/server/server-tests.factor
index 167eb7f127bef33cf51692ac80c4e551abfdedf5..16227e333db7ec45f48e1532dde1f4810238623a 100644 (file)
--- a/basis/http/server/server-tests.factor
+++ b/basis/http/server/server-tests.factor
@@ -38,7 +38,7 @@ io.streams.string kernel math peg sequences tools.test urls ;
         "connection: close"
         "host: 127.0.0.1:55532"
         "user-agent: Factor http.client"
-    } [ "\n" join ] [ "\r\n" join ] bi
+    } [ unlines ] [ "\r\n" join ] bi
     [ [ read-request ] with-string-reader ] same?
 ] unit-test