Using "same?" in more places.

[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 149f5194719c8905a9a48a15df6fe5f1a7cd19fa..da43c0e0bc2347d84bfd3bbd20cddc7b6016ef7e 100644 (file)
--- a/basis/http/server/server-tests.factor
+++ b/basis/http/server/server-tests.factor
@@ -41,7 +41,7 @@ IN: http.server.tests
         "host: 127.0.0.1:55532"
         "user-agent: Factor http.client"
     } [ "\n" join ] [ "\r\n" join ] bi
-    [ [ read-request ] with-string-reader ] bi@ =
+    [ [ read-request ] with-string-reader ] same?
 ] unit-test
 
 ! RFC 2616: Section 4.1