[functional-tests] factor out temp-file library

functional-tests/cache-functional-tests.scm

@@ -5,6 +5,7 @@
           (functional-tests)
           (cache-xml)
           (fmt fmt)
+          (temp-file)
           (srfi s8 receive))
 
   (define-tool cache-check)

functional-tests/functional-tests.scm

@@ -4,8 +4,6 @@
   (export
     info
 
-    temp-file
-    temp-file-containing
     slurp-file
 
     run
@@ -34,6 +32,7 @@
     (chezscheme)
     (fmt fmt)
     (list-utils)
+    (temp-file)
     (thin-xml)
     (utils)
     (srfi s8 receive)
@@ -62,21 +61,6 @@
 
   ;;;--------------------------------------------------------------------
 
-  (define temp-file
-    (let ((counter 0))
-     (lambda ()
-       (let loop ()
-        (let ((path (fmt #f (cat (dsp "/tmp/thinp-functional-tests-")
-                                 (pad-char #\0 (pad/left 4 (num counter)))))))
-          (set! counter (+ counter 1))
-          (if (file-exists? path) (loop) path))))))
-
-  ;; Creates a temporary file with the specified contents.
-  (define (temp-file-containing contents)
-    (let ((path (temp-file)))
-     (with-output-to-file path (lambda () (put-string (current-output-port) contents)))
-     path))
-
   (define (slurp-file path)
     (define (slurp)
       (let ((output (get-string-all (current-input-port))))

functional-tests/temp-file.scm

@@ -0,0 +1,26 @@
+(library
+  (temp-file)
+
+  (export
+    temp-file
+    temp-file-containing)
+
+  (import (rnrs)
+          (fmt fmt))
+
+  (define temp-file
+    (let ((counter 0))
+     (lambda ()
+       (let loop ()
+        (let ((path (fmt #f (cat (dsp "/tmp/thinp-functional-tests-")
+                                 (pad-char #\0 (pad/left 4 (num counter)))))))
+          (set! counter (+ counter 1))
+          (if (file-exists? path) (loop) path))))))
+
+  ;; Creates a temporary file with the specified contents.
+  (define (temp-file-containing contents)
+    (let ((path (temp-file)))
+     (with-output-to-file path (lambda () (put-string (current-output-port) contents)))
+     path))
+
+  )

functional-tests/thin-functional-tests.scm

@@ -7,6 +7,7 @@
     (chezscheme)
     (fmt fmt)
     (functional-tests)
+    (temp-file)
     (thin-xml)
     (srfi s8 receive)
     (only (srfi s1 lists) drop-while))