http.server.responses: adding <html-content>, use it.

[factor.git] / basis / furnace / sessions / sessions-tests.factor

diff --git a/basis/furnace/sessions/sessions-tests.factor b/basis/furnace/sessions/sessions-tests.factor
index 1ac3dbd51aee7c8b9581e4d37c625eb2f8ad74c9..5e9e10591f2947c19d8603f26053625602ae4847 100644 (file)
--- a/basis/furnace/sessions/sessions-tests.factor
+++ b/basis/furnace/sessions/sessions-tests.factor
@@ -20,7 +20,7 @@ M: foo init-session* drop 0 "x" sset ;
 M: foo call-responder*\r
     2drop\r
     "x" [ 1 + ] schange\r
-    "x" sget number>string "text/html" <content> ;\r
+    "x" sget number>string <html-content> ;\r
 \r
 : url-responder-mock-test ( -- string )\r
     [\r
@@ -47,7 +47,7 @@ M: foo call-responder*
 \r
 : <exiting-action> ( -- action )\r
     <action>\r
-        [ [ ] "text/plain" <content> exit-with ] >>display ;\r
+        [ [ ] <text-content> exit-with ] >>display ;\r
 \r
 [ "auth-test.db" temp-file delete-file ] ignore-errors\r
 \r