2008-06-25 21:47:07 -04:00
|
|
|
IN: tools.deploy.test.5
|
2008-10-20 23:05:22 -04:00
|
|
|
USING: accessors urls io.encodings.ascii io.files math.parser
|
|
|
|
|
http.client kernel ;
|
2008-06-25 21:47:07 -04:00
|
|
|
|
|
|
|
|
: deploy-test-5 ( -- )
|
2008-10-20 23:05:22 -04:00
|
|
|
URL" http://localhost/foo.html" clone
|
|
|
|
|
"resource:port-number" ascii file-contents string>number >>port
|
|
|
|
|
http-get 2drop ;
|
2008-06-25 21:47:07 -04:00
|
|
|
|
|
|
|
|
MAIN: deploy-test-5
|
