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

alien.remote-control: using temp directory.

db4
John Benediktsson 2012-06-18 12:33:14 -07:00
parent a93328e8c7
commit ba079d2217
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/alien/remote-control/remote-control-tests.factor
View File

@ -11,7 +11,7 @@ IN: alien.remote-control.tests
try-process ; try-process ;
: run-test ( -- line ) : run-test ( -- line )
os windows? "temp/a.exe" "temp/a.out" ? os windows? "a.exe" "a.out" ?
ascii [ readln ] with-process-reader ; ascii [ readln ] with-process-reader ;
:: test-embedding ( code -- line ) :: test-embedding ( code -- line )
@ -36,9 +36,9 @@ int main(int argc, char **argv)
} }
]I ]I
] with-string-writer ] with-string-writer
"resource:temp" [ compile-file ] with-directory [ compile-file ] with-temp-directory
"resource:" [ run-test ] with-directory ; [ run-test ] with-temp-directory ;
! [ "Done." ] [ "" test-embedding ] unit-test ! [ "Done." ] [ "" test-embedding ] unit-test
! [ "Done." ] [ "factor_yield();" test-embedding ] unit-test ! [ "Done." ] [ "factor_yield();" test-embedding ] unit-test