steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix test

db4
Slava Pestov 2008-06-13 23:00:48 -05:00
parent 935d7d4321
commit a1ff275a4d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/furnace/sessions/sessions-tests.factor
View File

@ -1,7 +1,7 @@
IN: furnace.sessions.tests IN: furnace.sessions.tests
USING: tools.test http furnace.sessions USING: tools.test http furnace.sessions
furnace.actions http.server http.server.responses 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 prettyprint io.streams.string io.files splitting destructors
sequences db db.tuples db.sqlite continuations urls math.parser sequences db db.tuples db.sqlite continuations urls math.parser
furnace ; furnace ;
@ -56,6 +56,8 @@ M: foo call-responder*
<request> init-request <request> init-request
session ensure-table session ensure-table
"127.0.0.1" 1234 <inet4> remote-address set
[ ] [ [ ] [
<foo> <sessions> <foo> <sessions>
sessions set sessions set
@ -63,7 +65,7 @@ M: foo call-responder*
[ [
[ ] [ [ ] [
empty-session empty-session
123 >>id session set 123 >>id session set
] unit-test ] unit-test