From: Josselin Poiret <d...@jpoiret.xyz>
* tests/store-roots.scm ("gc-roots, initial"): Set expected result to empty.
Also do not error out if /profiles doesn't exist.
---
tests/store-roots.scm | 5 +++--
1 file 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 @@ (define %store #f)
(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
--
2.40.1
