diff options
| -rw-r--r-- | tests/store-roots.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/store-roots.scm b/tests/store-roots.scm index 9877987a65..d82a29e313 100644 --- a/tests/store-roots.scm +++ b/tests/store-roots.scm @@ -31,10 +31,11 @@ (test-begin "store-roots") (test-equal "gc-roots, initial" - (list (string-append %state-directory "/profiles")) + '() (begin ;; 'gc-roots' should gracefully handle lack of that directory. - (delete-file-recursively (string-append %state-directory "/profiles")) + (false-if-exception + (delete-file-recursively (string-append %state-directory "/profiles"))) (gc-roots))) ;; The 'open-connection' call below gets guix-daemon to create |