]> gitweb.factorcode.org Git - factor.git/commitdiff
tools.deploy.test: use try-output-process, and run VM from .app bundle when testing...
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Tue, 12 May 2009 10:16:46 +0000 (05:16 -0500)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Tue, 12 May 2009 10:16:46 +0000 (05:16 -0500)
basis/tools/deploy/test/test.factor

index f997a6eb3a949fc659291257be082eeb7ddc337c..9a54e65f1ac1861997e0f870687031a144f43e14 100644 (file)
@@ -1,5 +1,5 @@
 USING: accessors arrays continuations io.directories io.files.info
-io.files.temp io.launcher kernel layouts math sequences system
+io.files.temp io.launcher io.backend kernel layouts math sequences system
 tools.deploy.backend tools.deploy.config.editor ;
 IN: tools.deploy.test
 
@@ -14,7 +14,6 @@ IN: tools.deploy.test
     [ "test.image" temp-file file-info size>> ] [ cell 4 / * ] bi* <= ;
 
 : run-temp-image ( -- )
-    vm
-    "-i=" "test.image" temp-file append
-    2array
-    <process> swap >>command +closed+ >>stdin try-process ;
\ No newline at end of file
+    os macosx?
+    "resource:Factor.app/Contents/MacOS/factor" normalize-path vm ?
+    "-i=" "test.image" temp-file append 2array try-output-process ;
\ No newline at end of file