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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -72,7 +72,7 @@ M: quit-responder call-responder*
f >>secure f >>secure
start-server start-server
servers>> first addr>> port>> 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 ] with-scope
"port" set ; "port" set ;

4
basis/tools/deploy/test/5/5.factor
View File

@ -1,10 +1,10 @@
IN: tools.deploy.test.5 IN: tools.deploy.test.5
USING: accessors urls io.encodings.ascii io.files math.parser USING: accessors urls io.encodings.ascii io.files math.parser
http.client kernel ; io.files.temp http.client kernel ;
: deploy-test-5 ( -- ) : deploy-test-5 ( -- )
URL" http://localhost/foo.html" clone 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 ; http-get 2drop ;
MAIN: deploy-test-5 MAIN: deploy-test-5