tools.deploy.test: use try-output-process, and run VM from .app bundle when testing deployed app. This makes the game-input deploy test work
parent
e3d39b9d9e
commit
2fdc666589
|
@ -1,5 +1,5 @@
|
||||||
USING: accessors arrays continuations io.directories io.files.info
|
USING: accessors arrays continuations io.directories io.files.info
|
||||||
io.files.temp io.launcher kernel layouts math sequences system
|
io.files.temp io.launcher io.backend kernel layouts math sequences system
|
||||||
tools.deploy.backend tools.deploy.config.editor ;
|
tools.deploy.backend tools.deploy.config.editor ;
|
||||||
IN: tools.deploy.test
|
IN: tools.deploy.test
|
||||||
|
|
||||||
|
@ -14,7 +14,6 @@ IN: tools.deploy.test
|
||||||
[ "test.image" temp-file file-info size>> ] [ cell 4 / * ] bi* <= ;
|
[ "test.image" temp-file file-info size>> ] [ cell 4 / * ] bi* <= ;
|
||||||
|
|
||||||
: run-temp-image ( -- )
|
: run-temp-image ( -- )
|
||||||
vm
|
os macosx?
|
||||||
"-i=" "test.image" temp-file append
|
"resource:Factor.app/Contents/MacOS/factor" normalize-path vm ?
|
||||||
2array
|
"-i=" "test.image" temp-file append 2array try-output-process ;
|
||||||
<process> swap >>command +closed+ >>stdin try-process ;
|
|
Loading…
Reference in New Issue