From 09e5564435e2d67834144e74c98746f81d3389ec Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Thu, 21 Feb 2008 22:08:51 -0600
Subject: [PATCH] Use temp-file in a few tests and benchmarks

---
 core/io/streams/c/c-tests.factor           | 4 ++--
 extra/benchmark/mandel/mandel.factor       | 2 +-
 extra/benchmark/raytracer/raytracer.factor | 2 +-
 extra/io/unix/unix-tests.factor            | 6 +++---
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/core/io/streams/c/c-tests.factor b/core/io/streams/c/c-tests.factor
index 5ace929ceb..16b78c2192 100755
--- a/core/io/streams/c/c-tests.factor
+++ b/core/io/streams/c/c-tests.factor
@@ -2,9 +2,9 @@ USING: tools.test io.files io io.streams.c ;
 IN: temporary
 
 [ "hello world" ] [
-    "test.txt" resource-path [
+    "test.txt" temp-file [
         "hello world" write
     ] with-file-writer
 
-    "test.txt" resource-path "rb" fopen <c-reader> contents
+    "test.txt" temp-file "rb" fopen <c-reader> contents
 ] unit-test
diff --git a/extra/benchmark/mandel/mandel.factor b/extra/benchmark/mandel/mandel.factor
index 230fb2f889..0da4785785 100755
--- a/extra/benchmark/mandel/mandel.factor
+++ b/extra/benchmark/mandel/mandel.factor
@@ -65,7 +65,7 @@ SYMBOL: cols
     ] with-scope ;
 
 : mandel-main ( -- )
-    "mandel.ppm" resource-path
+    "mandel.ppm" temp-file
     [ mandel write ] with-file-writer ;
 
 MAIN: mandel-main
diff --git a/extra/benchmark/raytracer/raytracer.factor b/extra/benchmark/raytracer/raytracer.factor
index 8f2badc95f..ddfd0ed6dd 100644
--- a/extra/benchmark/raytracer/raytracer.factor
+++ b/extra/benchmark/raytracer/raytracer.factor
@@ -170,7 +170,7 @@ DEFER: create ( level c r -- scene )
     ] "" make ;
 
 : raytracer-main
-    "raytracer.pnm" resource-path
+    "raytracer.pnm" temp-file
     [ run write ] with-file-writer ;
 
 MAIN: raytracer-main
diff --git a/extra/io/unix/unix-tests.factor b/extra/io/unix/unix-tests.factor
index 515077f22b..6eb0b78955 100755
--- a/extra/io/unix/unix-tests.factor
+++ b/extra/io/unix/unix-tests.factor
@@ -38,8 +38,8 @@ yield
     "unix-domain-datagram-test" resource-path delete-file
 ] ignore-errors
 
-: server-addr "unix-domain-datagram-test" resource-path <local> ;
-: client-addr "unix-domain-datagram-test-2" resource-path <local> ;
+: server-addr "unix-domain-datagram-test" temp-file <local> ;
+: client-addr "unix-domain-datagram-test-2" temp-file <local> ;
 
 [
     [
@@ -112,7 +112,7 @@ client-addr <datagram>
     "unix-domain-datagram-test-3" resource-path delete-file
 ] ignore-errors
 
-"unix-domain-datagram-test-2" resource-path delete-file
+"unix-domain-datagram-test-2" temp-file delete-file
 
 [ ] [ client-addr <datagram> "d" set ] unit-test