factor/extra/http/server/actions/actions-tests.factor

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

[
    "a" [ v-number ] { { "a" "123" } } validate-param
    [ 123 ] [ "a" get ] unit-test
] with-scope

<action>
    [ "a" get "b" get + ] >>display
    { { "a" [ v-number ] } { "b" [ v-number ] } } >>get-params
"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 [ read-request ] with-string-reader
    request set
    "/blah"
    "action-1" get call-responder
] unit-test

<action>
    [ +append-path get "xxx" get "X" <repetition> concat append ] >>submit
    { { +append-path [ ] } { "xxx" [ v-number ] } } >>post-params
"action-2" set

STRING: action-request-test-2
POST http://foo/bar/baz HTTP/1.1
content-length: 5
content-type: application/x-www-form-urlencoded

xxx=4
;

[ "/blahXXXX" ] [
    action-request-test-2 [ read-request ] with-string-reader
    request set
    "/blah"
    "action-2" get call-responder
] unit-test