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

tools.deploy.test: shake-and-bake is a long-unit-test

modern-harvey2
Doug Coleman 2017-09-16 10:23:29 -05:00
parent 00c4069640
commit a09cc13a17
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,7 @@
USING: accessors arrays bootstrap.image continuations USING: accessors arrays bootstrap.image io.backend
io.directories io.files.info io.files.temp io.launcher io.directories io.files.info io.files.temp io.launcher kernel
io.backend kernel layouts math sequences system layouts math namespaces sequences system tools.deploy.backend
tools.deploy.backend tools.deploy.config.editor ; tools.deploy.config.editor tools.test ;
IN: tools.deploy.test IN: tools.deploy.test
: test-image ( -- str ) : test-image ( -- str )
@ -11,11 +11,15 @@ IN: tools.deploy.test
test-image temp-file ; test-image temp-file ;
: shake-and-bake ( vocab -- ) : shake-and-bake ( vocab -- )
long-unit-tests-enabled? get [
test-image-path ?delete-file test-image-path ?delete-file
[ [
[ 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
] with-resource-directory ; ] with-resource-directory
] [
drop
] if ;
ERROR: image-too-big actual-size max-size ; ERROR: image-too-big actual-size max-size ;