test-name: gc-roots, initial
location: /home/wolf/devel/guix/tests/store-roots.scm:33
source:
+ (test-equal
+   "gc-roots, initial"
+   (list (string-append %state-directory "/profiles"))
+   (begin
+     (delete-file-recursively
+       (string-append %state-directory "/profiles"))
+     (gc-roots)))
expected-value: ("/home/wolf/devel/guix/test-tmp/var/15530/profiles")
actual-value: #f
actual-error:
+ (system-error
+   "lstat"
+   "~A: ~S"
+   ("No such file or directory"
+    "/home/wolf/devel/guix/test-tmp/var/15530/profiles")
+   (2))
result: FAIL

test-name: gc-roots, regular root
location: /home/wolf/devel/guix/tests/store-roots.scm:44
source:
+ (test-assert
+   "gc-roots, regular root"
+   (let* ((item (add-text-to-store
+                  %store
+                  "something"
+                  (random-text)))
+          (root (string-append
+                  %gc-roots-directory
+                  "/test-gc-root")))
+     (symlink item root)
+     (let ((result (member root (gc-roots))))
+       (delete-file root)
+       result)))
actual-value: ("/home/wolf/devel/guix/test-tmp/var/15530/gcroots/test-gc-root")
result: PASS

test-name: gc-roots, indirect root
location: /home/wolf/devel/guix/tests/store-roots.scm:53
source:
+ (test-assert
+   "gc-roots, indirect root"
+   (call-with-temporary-directory
+     (lambda (directory)
+       (let* ((item (add-text-to-store
+                      %store
+                      "something"
+                      (random-text)))
+              (root (string-append directory "/gc-root")))
+         (symlink item root)
+         (add-indirect-root %store root)
+         (let ((result (member root (gc-roots))))
+           (delete-file root)
+           result)))))
actual-value: ("/tmp/guix-directory.YyukEN/gc-root" "/home/wolf/devel/guix/test-tmp/var/15530/profiles")
result: PASS

random seed for tests: 1689185210