summaryrefslogtreecommitdiff
path: root/gnu/installer/tests.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/installer/tests.scm')
-rw-r--r--gnu/installer/tests.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/gnu/installer/tests.scm b/gnu/installer/tests.scm
index 3c049a1c85..82c3d3ee88 100644
--- a/gnu/installer/tests.scm
+++ b/gnu/installer/tests.scm
@@ -280,6 +280,10 @@ instrumented for further testing."
exp)))
(let ((content (call-with-input-file file read-expressions)))
+ ;; XXX: Remove the file before re-writing it, to be sure there are no
+ ;; leftovers. We shouldn't have to to that as CALL-WITH-OUTPUT-FILE uses
+ ;; the O_TRUNC flag by default.
+ (delete-file file)
(call-with-output-file file
(lambda (port)
(format port "\