deploy test 5: use new temp directory.

db4
Doug Coleman 2012-06-13 11:29:35 -07:00
parent bec49ff840
commit 0fb3b968ed
2 changed files with 3 additions and 3 deletions
basis/tools/deploy

View File

@ -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 ;

View File

@ -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