01/18: tests: store-roots: Initial gc-roots should be empty.

[guix-commits]

janneke pushed a commit to branch hurd-team
in repository guix.

commit 56dece7ad6f31ab917ccbc4fd7cce5e2d11cfef5
Author: Josselin Poiret <dev@jpoiret.xyz>
AuthorDate: Fri Jul 21 12:14:58 2023 +0200

    tests: store-roots: Initial gc-roots should be empty.
    
    * 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 @@
 (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