deploy test 5: use new temp directory.
parent
bec49ff840
commit
0fb3b968ed
basis/tools/deploy
|
@ -72,7 +72,7 @@ M: quit-responder call-responder*
|
|||
f >>secure
|
||||
start-server
|
||||
servers>> first addr>> port>>
|
||||
dup number>string "resource:temp/port-number" ascii set-file-contents
|
||||
dup number>string "port-number" temp-file ascii set-file-contents
|
||||
] with-scope
|
||||
"port" set ;
|
||||
|
||||
|
|
|
@ -1,10 +1,10 @@
|
|||
IN: tools.deploy.test.5
|
||||
USING: accessors urls io.encodings.ascii io.files math.parser
|
||||
http.client kernel ;
|
||||
io.files.temp http.client kernel ;
|
||||
|
||||
: deploy-test-5 ( -- )
|
||||
URL" http://localhost/foo.html" clone
|
||||
"resource:temp/port-number" ascii file-contents string>number >>port
|
||||
"port-number" temp-file ascii file-contents string>number >>port
|
||||
http-get 2drop ;
|
||||
|
||||
MAIN: deploy-test-5
|
||||
|
|
Loading…
Reference in New Issue