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

tools.deploy.test: new word test-image-path

locals-and-roots
Björn Lindqvist 2016-03-31 00:13:14 +02:00
parent 10ac4da0f6
commit 92b43ce108
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/tools/deploy/test/test.factor
View File

@ -7,8 +7,11 @@ IN: tools.deploy.test
: test-image ( -- str ) : test-image ( -- str )
my-arch-name "test." ".image" surround ; my-arch-name "test." ".image" surround ;
: test-image-path ( -- str )
test-image temp-file ;
: shake-and-bake ( vocab -- ) : shake-and-bake ( vocab -- )
[ test-image temp-file delete-file ] ignore-errors [ test-image-path delete-file ] ignore-errors
[ [
[ vm-path test-image temp-file ] dip [ vm-path test-image temp-file ] dip
dup deploy-config make-deploy-image drop dup deploy-config make-deploy-image drop
@ -17,7 +20,7 @@ IN: tools.deploy.test
ERROR: image-too-big actual-size max-size ; ERROR: image-too-big actual-size max-size ;
: small-enough? ( n -- ) : small-enough? ( n -- )
[ test-image temp-file file-info size>> ] [ test-image-path file-info size>> ]
[ [
cell 4 / * cell 4 / *
cpu ppc? [ 100000 + ] when cpu ppc? [ 100000 + ] when
@ -28,7 +31,7 @@ ERROR: image-too-big actual-size max-size ;
: deploy-test-command ( -- args ) : deploy-test-command ( -- args )
os macosx? os macosx?
"resource:Factor.app/Contents/MacOS/factor" normalize-path vm-path ? "resource:Factor.app/Contents/MacOS/factor" normalize-path vm-path ?
"-i=" test-image temp-file append 2array ; "-i=" test-image-path append 2array ;
: run-temp-image ( -- ) : run-temp-image ( -- )
deploy-test-command try-output-process ; deploy-test-command try-output-process ;