From a1ff275a4d0e21f2f309dbc580c84ebbce4c59c3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 13 Jun 2008 23:00:48 -0500
Subject: [PATCH] Fix test
---
extra/furnace/sessions/sessions-tests.factor | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/extra/furnace/sessions/sessions-tests.factor b/extra/furnace/sessions/sessions-tests.factor
index e203a6fd40..e959cae76a 100755
--- a/extra/furnace/sessions/sessions-tests.factor
+++ b/extra/furnace/sessions/sessions-tests.factor
@@ -1,7 +1,7 @@
IN: furnace.sessions.tests
USING: tools.test http furnace.sessions
furnace.actions http.server http.server.responses
-math namespaces kernel accessors
+math namespaces kernel accessors io.sockets io.server
prettyprint io.streams.string io.files splitting destructors
sequences db db.tuples db.sqlite continuations urls math.parser
furnace ;
@@ -56,6 +56,8 @@ M: foo call-responder*
<request> init-request
session ensure-table
+ "127.0.0.1" 1234 <inet4> remote-address set
+
[ ] [
<foo> <sessions>
sessions set
@@ -63,7 +65,7 @@ M: foo call-responder*
[
[ ] [
- empty-session
+ empty-session
123 >>id session set
] unit-test