tests: Remove temporary directory created by nar.scm.

* tests/nar.scm ("write-file + restore-file with symlinks"): Add (rm-rf
  output).
This commit is contained in:
Ludovic Courtès 2013-04-12 18:40:22 +02:00
parent 9adb6934f4
commit 77ffd691bf

View file

@ -196,7 +196,8 @@ (define %test-dir
(cut restore-file <> output))
(file-tree-equal? input output))
(lambda ()
(false-if-exception (delete-file nar)))))))
(false-if-exception (delete-file nar))
(false-if-exception (rm-rf output)))))))
(lambda ()
(rmdir input)))))