mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 13:36:36 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Remove temporary directory created by nar.scm.

Browse source 
* 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
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tests/nar.scm
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)))))