Revert "tools.deploy.test: shake-and-bake is a long-unit-test"
This reverts commit a09cc13a17
.
modern-harvey2
parent
a09cc13a17
commit
0a7b50f208
|
@ -1,7 +1,7 @@
|
||||||
USING: accessors arrays bootstrap.image io.backend
|
USING: accessors arrays bootstrap.image continuations
|
||||||
io.directories io.files.info io.files.temp io.launcher kernel
|
io.directories io.files.info io.files.temp io.launcher
|
||||||
layouts math namespaces sequences system tools.deploy.backend
|
io.backend kernel layouts math sequences system
|
||||||
tools.deploy.config.editor tools.test ;
|
tools.deploy.backend tools.deploy.config.editor ;
|
||||||
IN: tools.deploy.test
|
IN: tools.deploy.test
|
||||||
|
|
||||||
: test-image ( -- str )
|
: test-image ( -- str )
|
||||||
|
@ -11,15 +11,11 @@ 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 ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue