factor: trim using lists

[factor.git] / basis / alien / remote-control / remote-control-tests.factor

diff --git a/basis/alien/remote-control/remote-control-tests.factor b/basis/alien/remote-control/remote-control-tests.factor
index 8b6c5e9b22b4d7c396d37d8af75cb4d0ae501ecc..99722abc5774a147dcfecc165b247ae2751ade48 100644 (file)
--- a/basis/alien/remote-control/remote-control-tests.factor
+++ b/basis/alien/remote-control/remote-control-tests.factor
@@ -1,7 +1,5 @@
-USING: interpolate multiline
-io io.directories io.encodings.ascii io.files
-io.files.temp io.launcher io.streams.string kernel locals system
-tools.test sequences ;
+USING: interpolate io io.encodings.ascii io.files io.files.temp
+io.launcher io.streams.string kernel sequences system ;
 IN: alien.remote-control.tests
 
 : compile-file ( contents -- )
@@ -11,14 +9,14 @@ IN: alien.remote-control.tests
     try-process ;
 
 : run-test ( -- line )
-    os windows? "temp/a.exe" "temp/a.out" ?
+    os windows? "a.exe" "a.out" ?
     ascii [ readln ] with-process-reader ;
 
 :: test-embedding ( code -- line )
-    image :> image
+    image-path :> image
 
     [
-        I[
+        [I
 #include <vm/master.h>
 #include <stdio.h>
 #include <stdbool.h>
@@ -34,11 +32,11 @@ int main(int argc, char **argv)
     printf("Done.\n");
     return 0;
 }
-        ]I
+        I]
     ] with-string-writer
-    "resource:temp" [ compile-file ] with-directory
-    "resource:" [ run-test ] with-directory ;
+    [ compile-file ] with-temp-directory
+    [ run-test ] with-temp-directory ;
 
 ! [ "Done." ] [ "" test-embedding ] unit-test
 
-! [ "Done." ] [ "factor_yield();" test-embedding ] unit-test
\ No newline at end of file
+! [ "Done." ] [ "factor_yield();" test-embedding ] unit-test