tests: Use non-deprecated (guix store) API.
This is a followup to f9e8a12379
.
* gnu/tests/base.scm (run-basic-test)["/run/current-system is a GC
root"]: Use 'store-protocol-error?' instead of 'nix-protocol-error?'.
This commit is contained in:
parent
3a0babacdc
commit
ba926e3534
|
@ -397,7 +397,7 @@ info --version")
|
||||||
(use-modules (srfi srfi-34) (guix store))
|
(use-modules (srfi srfi-34) (guix store))
|
||||||
|
|
||||||
(let ((system (readlink "/run/current-system")))
|
(let ((system (readlink "/run/current-system")))
|
||||||
(guard (c ((nix-protocol-error? c)
|
(guard (c ((store-protocol-error? c)
|
||||||
(and (file-exists? system)
|
(and (file-exists? system)
|
||||||
'success!)))
|
'success!)))
|
||||||
(with-store store
|
(with-store store
|
||||||
|
|
Loading…
Reference in New Issue