factor/library/test/httpd/httpd.factor

IN: scratchpad
USE: file-responder
USE: httpd
USE: httpd-responder
USE: logging
USE: namespaces
USE: stdio
USE: test
USE: url-encoding
USE: strings
USE: lists

[ "HTTP/1.0 200 OK\nContent-Length: 12\nContent-Type: text/html\n\n" ]
[
    [ "text/html" 12 file-response ] with-string
] unit-test

[ 5430 ]
[ f "Content-Length: 5430" header-line content-length ] unit-test

[
    [
        [[ "X-Spyware-Requested" "yes" ]]
        [[ "User-Agent" "Internet Explorer 0.4alpha" ]]
    ]
]
[
    [ [[ "User-Agent" "Internet Explorer 0.4alpha" ]] ]
    "X-Spyware-Requested: yes" header-line
] unit-test

[ ] [ "404 not found" httpd-error ] unit-test

[ "arg" ] [
    [
        "arg" "default-argument" set
        "" responder-argument
    ] with-scope
] unit-test

[ "inspect/global" ] [ "/inspect/global" trim-/ ] unit-test

[ ] [
    [
        "unit/test" log-responder
    ] with-logging
] unit-test

[ "index.html" ]
[ "http://www.jedit.org/index.html" url>path ] unit-test

[ "foo/bar" ]
[ "http://www.jedit.org/foo/bar" url>path ] unit-test

[ "" ]
[ "http://www.jedit.org/" url>path ] unit-test

[ "" ]
[ "http://www.jedit.org" url>path ] unit-test

[ "foobar" ]
[ "foobar" secure-path ] unit-test

[ f ]
[ "foobar/../baz" secure-path ] unit-test

[ ] [ "GET ../index.html" parse-request ] unit-test
[ ] [ "POO" parse-request ] unit-test

[ [ [[ "Foo" "Bar" ]] ] ] [ "Foo=Bar" query>alist ] unit-test

[ [ [[ "Foo" "Bar" ]] [[ "Baz" "Quux" ]] ] ]
[ "Foo=Bar&Baz=Quux" query>alist ] unit-test

[ [ [[ "Baz" " " ]] ] ]
[ "Baz=%20" query>alist ] unit-test

[ [ [ "Foo" ] ] ] [ "Foo" query>alist ] unit-test