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

Add tests to ensure that execute( and regexps work when deployed

db4
Slava Pestov 2009-03-13 19:41:13 -05:00
parent 67f5a932db
commit cff700cd3e
7 changed files with 66 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
basis/tools/deploy/deploy-tests.factor
View File

@ -80,32 +80,17 @@ M: quit-responder call-responder*
[ ] [ "http://localhost/quit" add-port http-get 2drop ] unit-test [ ] [ "http://localhost/quit" add-port http-get 2drop ] unit-test
[ ] [ {
"tools.deploy.test.6" shake-and-bake "tools.deploy.test.6"
run-temp-image "tools.deploy.test.7"
] unit-test "tools.deploy.test.8"
"tools.deploy.test.9"
[ ] [ "tools.deploy.test.10"
"tools.deploy.test.7" shake-and-bake "tools.deploy.test.11"
run-temp-image "tools.deploy.test.12"
] unit-test } [
[ ] swap [
[ ] [ shake-and-bake
"tools.deploy.test.8" shake-and-bake run-temp-image
run-temp-image ] curry unit-test
] unit-test ] each
[ ] [
"tools.deploy.test.9" shake-and-bake
run-temp-image
] unit-test
[ ] [
"tools.deploy.test.10" shake-and-bake
run-temp-image
] unit-test
[ ] [
"tools.deploy.test.11" shake-and-bake
run-temp-image
] unit-test

10
basis/tools/deploy/test/12/12.factor Normal file
View File

@ -0,0 +1,10 @@
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: call math.parser io math ;
IN: tools.deploy.test.12
: execute-test ( a b w -- c ) execute( a b -- c ) ;
: foo ( -- ) 1 2 \ + execute-test number>string print ;
MAIN: foo

1
basis/tools/deploy/test/12/authors.txt Normal file
View File

@ -0,0 +1 @@
Slava Pestov

15
basis/tools/deploy/test/12/deploy.factor Normal file
View File

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

10
basis/tools/deploy/test/13/13.factor Normal file
View File

@ -0,0 +1,10 @@
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: regexp kernel io ;
IN: tools.deploy.test.13
: regexp-test ( a -- b ) <regexp> "xyz" swap matches? ;
: main ( -- ) "x.z" regexp-test "X" "Y" ? print ;
MAIN: main

1
basis/tools/deploy/test/13/authors.txt Normal file
View File

@ -0,0 +1 @@
Slava Pestov

15
basis/tools/deploy/test/13/deploy.factor Normal file
View File

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