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

Stricter deploy size tests (I'm such a masochist)

db4
Slava Pestov 2008-07-05 03:44:54 -05:00
parent 3dcc04675b
commit 0dec9230dc
1 changed files with 11 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
extra/tools/deploy/deploy-tests.factor
View File

@ -12,42 +12,36 @@ namespaces continuations layouts accessors ;
] with-directory ; ] with-directory ;
: small-enough? ( n -- ? ) : 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 [ ] [ "hello-world" shake-and-bake ] unit-test
[ t ] [ [ t ] [ 50000 small-enough? ] unit-test
cell 8 = 8 5 ? 100000 * small-enough?
] unit-test
[ ] [ "sudoku" shake-and-bake ] unit-test [ ] [ "sudoku" shake-and-bake ] unit-test
[ t ] [ [ t ] [ 80000 small-enough? ] unit-test
cell 8 = 20 10 ? 100000 * small-enough?
] unit-test
[ ] [ "hello-ui" shake-and-bake ] unit-test [ ] [ "hello-ui" shake-and-bake ] unit-test
[ t ] [ 130000 small-enough? ] unit-test
[ "staging.math-compiler-ui-strip.image" ] [ [ "staging.math-compiler-ui-strip.image" ] [
"hello-ui" deploy-config "hello-ui" deploy-config
[ bootstrap-profile staging-image-name file-name ] bind [ bootstrap-profile staging-image-name file-name ] bind
] unit-test ] unit-test
[ t ] [
cell 8 = 35 17 ? 100000 * small-enough?
] unit-test
[ ] [ "maze" shake-and-bake ] unit-test [ ] [ "maze" shake-and-bake ] unit-test
[ t ] [ [ t ] [ 120000 small-enough? ] unit-test
cell 8 = 30 15 ? 100000 * small-enough?
] unit-test [ ] [ "tetris" shake-and-bake ] unit-test
[ t ] [ 120000 small-enough? ] unit-test
[ ] [ "bunny" shake-and-bake ] unit-test [ ] [ "bunny" shake-and-bake ] unit-test
[ t ] [ [ t ] [ 250000 small-enough? ] unit-test
cell 8 = 50 30 ? 100000 * small-enough?
] unit-test
{ {
"tools.deploy.test.1" "tools.deploy.test.1"