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

22
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 -- )
test-image-path ?delete-file long-unit-tests-enabled? get [
[ test-image-path ?delete-file
[ vm-path test-image temp-file ] dip [
dup deploy-config make-deploy-image drop [ vm-path test-image temp-file ] dip
] with-resource-directory ; dup deploy-config make-deploy-image drop
] with-resource-directory
] [
drop
] if ;
ERROR: image-too-big actual-size max-size ; ERROR: image-too-big actual-size max-size ;