1 USING: furnace furnace.actions furnace.callbacks accessors
2 http http.server http.server.responses tools.test
3 namespaces io fry sequences
4 splitting kernel hashtables continuations ;
5 IN: furnace.callbacks.tests
9 <request> "GET" >>method init-request
13 <action> [ [ "hello" print 123 ] show-final ] >>display
29 <callback-responder> "r" set
32 <request> init-request
36 <request> "GET" >>method init-request
37 { } "r" get call-responder
44 dup url>> rot cont-id associate >>query drop
45 dup url>> "/" >>path drop
51 "r" get call-responder
57 dup url>> rot "location" header query>> >>query drop
58 dup url>> "/" >>path drop
64 "r" get call-responder