bug#64598: Test fail: tests/store-roots.scm

bug#64598: Test fail: tests/store-roots.scm

[wolf]

[-- Attachment #1.1: Type: text/plain, Size: 1035 bytes --]

Hi,

I am experiencing a test failure on a Guix build from the git in the
tests/store-roots.scm test file.  Excerpt (whole log file attached):

    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

Commit: 3b524cde7115a6e89a438c1fd230093e6f30442f

Build was done inside guix shell -D guix --pure.

W.

-- 
There are only two hard things in Computer Science:
cache invalidation, naming things and off-by-one errors.

[-- Attachment #1.2: store-roots.log --]
[-- Type: text/plain, Size: 1892 bytes --]

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

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]