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

mason.child: fix test in a better way.

db4
Doug Coleman 2015-06-10 19:56:11 -07:00
parent 5f8baad617
commit 59ba0ef341
1 changed files with 6 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
extra/mason/child/child-tests.factor
View File

@ -18,22 +18,12 @@ IN: mason.child.tests
! Must be an absolute path on Windows because launch directory ! Must be an absolute path on Windows because launch directory
! is relative to parent directory (instead of current directory). ! is relative to parent directory (instead of current directory).
{ t } [
os windows = [ H{
{ t } [ { target-os windows }
H{ { target-cpu x86.32 }
{ target-os windows } } [ mason-child-boot-cmd ] with-variables first absolute-path?
{ target-cpu x86.32 } ] unit-test
} [ mason-child-boot-cmd ] with-variables first absolute-path?
] unit-test
] [
[ { "./factor.com" "-i=boot.windows-x86.32.image" "-no-user-init" } ] [
H{
{ target-os windows }
{ target-cpu x86.32 }
} [ mason-child-boot-cmd ] with-variables
] unit-test
] if
[ [ "Hi" print ] [ drop 3 ] [ 4 ] recover-else ] must-infer [ [ "Hi" print ] [ drop 3 ] [ 4 ] recover-else ] must-infer