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

Fix deploy tests

db4
Slava Pestov 2008-06-18 22:29:48 -05:00
parent 3e11a7f204
commit beccf83f7c
4 changed files with 37 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -49,12 +49,16 @@ namespaces continuations layouts accessors ;
cell 8 = 50 30 ? 100000 * small-enough? cell 8 = 50 30 ? 100000 * small-enough?
] unit-test ] unit-test
[ ] [ {
"tools.deploy.test.1" shake-and-bake "tools.deploy.test.1"
vm "-i=" "test.image" temp-file append 2array try-process "tools.deploy.test.2"
] unit-test "tools.deploy.test.3"
"tools.deploy.test.4"
[ ] [ } [
"tools.deploy.test.2" shake-and-bake [ ] swap [
vm "-i=" "test.image" temp-file append 2array try-process shake-and-bake
] unit-test vm
"-i=" "test.image" temp-file append
2array try-process
] curry unit-test
] each

5
extra/tools/deploy/test/3/3.factor
View File

@ -1,8 +1,7 @@
IN: tools.deploy.test.3 IN: tools.deploy.test.3
USING: io.encodings.ascii io.files kernel ; USING: io.encodings.ascii io.encodings.string system kernel ;
: deploy-test-3 ( -- ) : deploy-test-3 ( -- )
"resource:extra/tools/deploy/test/3/3.factor" "xyzthg" ascii encode drop ;
ascii file-contents drop ;
MAIN: deploy-test-3 MAIN: deploy-test-3

7
extra/tools/deploy/test/4/4.factor Normal file
View File

@ -0,0 +1,7 @@
IN: tools.deploy.test.4
USING: io.encodings.8-bit io.encodings.string kernel ;
: deploy-test-4 ( -- )
"xyzthg" latin7 encode drop ;
MAIN: deploy-test-4

15
extra/tools/deploy/test/4/deploy.factor Normal file
View File

@ -0,0 +1,15 @@
USING: tools.deploy.config ;
H{
{ deploy-math? f }
{ deploy-ui? f }
{ deploy-compiler? t }
{ deploy-word-props? f }
{ deploy-word-defs? f }
{ deploy-io 2 }
{ deploy-name "tools.deploy.test.4" }
{ deploy-c-types? f }
{ deploy-random? f }
{ "stop-after-last-window?" t }
{ deploy-threads? t }
{ deploy-reflection 1 }
}