Stricter deploy size tests (I'm such a masochist)
parent
3dcc04675b
commit
0dec9230dc
|
@ -12,42 +12,36 @@ namespaces continuations layouts accessors ;
|
|||
] with-directory ;
|
||||
|
||||
: small-enough? ( n -- ? )
|
||||
>r "test.image" temp-file file-info size>> r> <= ;
|
||||
>r "test.image" temp-file file-info size>> r> cell 4 / * <= ;
|
||||
|
||||
[ ] [ "hello-world" shake-and-bake ] unit-test
|
||||
|
||||
[ t ] [
|
||||
cell 8 = 8 5 ? 100000 * small-enough?
|
||||
] unit-test
|
||||
[ t ] [ 50000 small-enough? ] unit-test
|
||||
|
||||
[ ] [ "sudoku" shake-and-bake ] unit-test
|
||||
|
||||
[ t ] [
|
||||
cell 8 = 20 10 ? 100000 * small-enough?
|
||||
] unit-test
|
||||
[ t ] [ 80000 small-enough? ] unit-test
|
||||
|
||||
[ ] [ "hello-ui" shake-and-bake ] unit-test
|
||||
|
||||
[ t ] [ 130000 small-enough? ] unit-test
|
||||
|
||||
[ "staging.math-compiler-ui-strip.image" ] [
|
||||
"hello-ui" deploy-config
|
||||
[ bootstrap-profile staging-image-name file-name ] bind
|
||||
] unit-test
|
||||
|
||||
[ t ] [
|
||||
cell 8 = 35 17 ? 100000 * small-enough?
|
||||
] unit-test
|
||||
|
||||
[ ] [ "maze" shake-and-bake ] unit-test
|
||||
|
||||
[ t ] [
|
||||
cell 8 = 30 15 ? 100000 * small-enough?
|
||||
] unit-test
|
||||
[ t ] [ 120000 small-enough? ] unit-test
|
||||
|
||||
[ ] [ "tetris" shake-and-bake ] unit-test
|
||||
|
||||
[ t ] [ 120000 small-enough? ] unit-test
|
||||
|
||||
[ ] [ "bunny" shake-and-bake ] unit-test
|
||||
|
||||
[ t ] [
|
||||
cell 8 = 50 30 ? 100000 * small-enough?
|
||||
] unit-test
|
||||
[ t ] [ 250000 small-enough? ] unit-test
|
||||
|
||||
{
|
||||
"tools.deploy.test.1"
|
||||
|
|
Loading…
Reference in New Issue