11 lines
298 B
Factor
11 lines
298 B
Factor
IN: tools.deploy.test.5
|
|
USING: accessors urls io.encodings.ascii io.files math.parser
|
|
io.files.temp http.client kernel ;
|
|
|
|
: deploy-test-5 ( -- )
|
|
URL" http://localhost/foo.html" clone
|
|
"port-number" temp-file ascii file-contents string>number >>port
|
|
http-get 2drop ;
|
|
|
|
MAIN: deploy-test-5
|