diff options
| -rw-r--r-- | gnu/installer/tests.scm | 4 |
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 "\ |