factor/basis/furnace/actions/actions-tests.factor

USING: kernel furnace.actions io.crlf validators tools.test math math.parser
multiline namespaces http io.streams.string http.server http.server.requests
sequences splitting accessors ;
IN: furnace.actions.tests

<action>
    [ "a" param "b" param [ string>number ] bi@ + ] >>display
"action-1" set

STRING: action-request-test-1
GET http://foo/bar?a=12&b=13 HTTP/1.1

blah
;

{ 25 } [
    action-request-test-1 lf>crlf
    [ read-request ] with-string-reader
    init-request
    { } "action-1" get call-responder
] unit-test

<action>
    "a" >>rest
    [ "a" param string>number sq ] >>display
"action-2" set

STRING: action-request-test-2
GET http://foo/bar/123 HTTP/1.1

blah
;

{ 25 } [
    action-request-test-2 lf>crlf
    [ read-request ] with-string-reader
    init-request
    { "5" } "action-2" get call-responder
] unit-test