From 92b43ce1081905c868e1e8c410256ac377057ec0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Thu, 31 Mar 2016 00:13:14 +0200
Subject: [PATCH] tools.deploy.test: new word test-image-path

---
 basis/tools/deploy/test/test.factor | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/basis/tools/deploy/test/test.factor b/basis/tools/deploy/test/test.factor
index 05e16ca10f..3925e06e5c 100644
--- a/basis/tools/deploy/test/test.factor
+++ b/basis/tools/deploy/test/test.factor
@@ -7,8 +7,11 @@ IN: tools.deploy.test
 : test-image ( -- str )
     my-arch-name "test." ".image" surround ;
 
+: test-image-path ( -- str )
+    test-image temp-file ;
+
 : shake-and-bake ( vocab -- )
-    [ test-image temp-file delete-file ] ignore-errors
+    [ test-image-path delete-file ] ignore-errors
     [
         [ vm-path test-image temp-file ] dip
         dup deploy-config make-deploy-image drop
@@ -17,7 +20,7 @@ IN: tools.deploy.test
 ERROR: image-too-big actual-size max-size ;
 
 : small-enough? ( n -- )
-    [ test-image temp-file file-info size>> ]
+    [ test-image-path file-info size>> ]
     [
         cell 4 / *
         cpu ppc? [ 100000 + ] when
@@ -28,7 +31,7 @@ ERROR: image-too-big actual-size max-size ;
 : deploy-test-command ( -- args )
     os macosx?
     "resource:Factor.app/Contents/MacOS/factor" normalize-path vm-path ?
-    "-i=" test-image temp-file append 2array ;
+    "-i=" test-image-path append 2array ;
 
 : run-temp-image ( -- )
     deploy-test-command try-output-process ;