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

Fix http tests and io.server.connection docs

Doug Coleman 2010-09-19 15:47:25 -05:00
parent c01ef3dd18
commit bfa4ddd11a
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/http/http-tests.factor
View File

@ -3,7 +3,7 @@ multiline io.streams.string io.encodings.utf8 io.encodings.8-bit
io.encodings.binary io.encodings.string io.encodings.ascii kernel io.encodings.binary io.encodings.string io.encodings.ascii kernel
arrays splitting sequences assocs io.sockets db db.sqlite arrays splitting sequences assocs io.sockets db db.sqlite
continuations urls hashtables accessors namespaces xml.data continuations urls hashtables accessors namespaces xml.data
io.encodings.8-bit.latin1 ; io.encodings.8-bit.latin1 random ;
IN: http.tests IN: http.tests
[ "text/plain" "UTF-8" ] [ "text/plain" parse-content-type ] unit-test [ "text/plain" "UTF-8" ] [ "text/plain" parse-content-type ] unit-test
@ -232,7 +232,7 @@ test-db [
0 >>insecure 0 >>insecure
f >>secure f >>secure
start-server start-server
sockets>> first addr>> port>> servers>> random addr>> port>>
] with-scope "port" set ; ] with-scope "port" set ;
[ ] [ [ ] [

4
basis/io/servers/connection/connection-docs.factor
View File

@ -126,11 +126,11 @@ HELP: with-threaded-server
{ $description "Runs a server and calls a quotation, stopping the server once the quotation returns." } ; { $description "Runs a server and calls a quotation, stopping the server once the quotation returns." } ;
HELP: secure-port HELP: secure-port
{ $values { "n" { $maybe integer } } } { $values { "n/f" { $maybe integer } } }
{ $description "Outputs one of the port numbers on which the current threaded server accepts secure socket connections. Outputs " { $link f } " if the current threaded server does not accept secure socket connections." } { $description "Outputs one of the port numbers on which the current threaded server accepts secure socket connections. Outputs " { $link f } " if the current threaded server does not accept secure socket connections." }
{ $notes "Can only be used from the dynamic scope of a " { $link handle-client* } " call." } ; { $notes "Can only be used from the dynamic scope of a " { $link handle-client* } " call." } ;
HELP: insecure-port HELP: insecure-port
{ $values { "n" { $maybe integer } } } { $values { "n/f" { $maybe integer } } }
{ $description "Outputs one of the port numbers on which the current threaded server accepts ordinary socket connections. Outputs " { $link f } " if the current threaded server does not accept ordinary socket connections." } { $description "Outputs one of the port numbers on which the current threaded server accepts ordinary socket connections. Outputs " { $link f } " if the current threaded server does not accept ordinary socket connections." }
{ $notes "Can only be used from the dynamic scope of a " { $link handle-client* } " call." } ; { $notes "Can only be used from the dynamic scope of a " { $link handle-client* } " call." } ;

2
basis/tools/deploy/deploy-tests.factor
View File

@ -69,7 +69,7 @@ M: quit-responder call-responder*
0 >>insecure 0 >>insecure
f >>secure f >>secure
start-server start-server
sockets>> first addr>> port>> servers>> first addr>> port>>
dup number>string "resource:temp/port-number" ascii set-file-contents dup number>string "resource:temp/port-number" ascii set-file-contents
] with-scope ] with-scope
"port" set ; "port" set ;