aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/chicken.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/chicken.scm')
0 files changed, 0 insertions, 0 deletions
generated by cgit
t-begin "system") (test-assert "operating-system-store-file-system" ;; %BASE-FILE-SYSTEMS defines a bind-mount for /gnu/store, but this ;; shouldn't be a problem. (eq? %root-fs (operating-system-store-file-system %os))) (test-assert "operating-system-store-file-system, prefix" (let* ((gnu (file-system (device "foobar") (mount-point (dirname (%store-prefix))) (type "ext5"))) (os (operating-system (inherit %os) (file-systems (cons* gnu %root-fs %base-file-systems))))) (eq? gnu (operating-system-store-file-system os)))) (test-assert "operating-system-store-file-system, store" (let* ((gnu (file-system (device "foobar") (mount-point (%store-prefix)) (type "ext5"))) (os (operating-system (inherit %os) (file-systems (cons* gnu %root-fs %base-file-systems))))) (eq? gnu (operating-system-store-file-system os)))) (test-equal "operating-system-user-mapped-devices" '() (operating-system-user-mapped-devices %os-with-mapped-device)) (test-equal "operating-system-boot-mapped-devices" (list %luks-device) (operating-system-boot-mapped-devices %os-with-mapped-device)) (test-equal "operating-system-boot-mapped-devices, implicit dependency" (list %luks-device) ;; Here we expect the implicit dependency between "/" and ;; "/dev/mapper/my-luks-device" to be found, in spite of the lack of a ;; 'dependencies' field in the root file system. (operating-system-boot-mapped-devices (operating-system (inherit %os-with-mapped-device) (file-systems (cons (file-system (device "/dev/mapper/my-luks-device") (mount-point "/") (type "ext4")) %base-file-systems))))) (test-equal "non-boot-file-system-service" '() ;; Make sure that mapped devices with at least one needed-for-boot user are ;; handled exclusively from the initrd. See <https://bugs.gnu.org/31889>. (append-map file-system-dependencies (service-value ((@@ (gnu system) non-boot-file-system-service) (operating-system (inherit %os-with-mapped-device) (file-systems (list (file-system (mount-point "/foo/bar") (device "qux:baz") (type "none") (dependencies (list %luks-device))) (file-system (device (file-system-label "my-root")) (mount-point "/") (type "ext4") (dependencies (list %luks-device)))))))))) (test-assert "lower-object, %current-system sensitivity" ;; Make sure that 'lower-object' returns the same derivation, no matter what ;; '%current-system' is. See <https://issues.guix.gnu.org/55951>. (let ((drv1 (with-store store (parameterize ((%current-system "x86_64-linux")) (run-with-store store (lower-object %os "aarch64-linux"))))) (drv2 (with-store store (parameterize ((%current-system "aarch64-linux")) (run-with-store store (lower-object %os "aarch64-linux")))))) (eq? drv1 drv2))) (test-end)
generated by cgit
. (show-formats): Add it to the usage string. * tests/pack.scm (%ar-bootstrap): New variable. (deb archive with symlinks): New test. * doc/guix.texi (Invoking guix pack): Document it. * NEWS: Add news entry. Maxim Cournoyer 2021-05-10Update NEWS.Maxim Cournoyer 2021-05-10Update NEWS.Leo Famulari 2021-05-10Update NEWS.Ludovic Courtès 2021-05-04Update NEWS.Ludovic Courtès 2020-11-22Update NEWS.Ludovic Courtès 2020-11-13Update NEWS.Ludovic Courtès 2020-11-09Update NEWS.Ludovic Courtès 2020-11-07Update NEWS.Mathieu Othacehe 2020-11-07Update NEWS.Ludovic Courtès 2020-11-05Update NEWS.Ludovic Courtès 2020-04-15Update NEWS.Ludovic Courtès 2020-04-12Update NEWS.Ludovic Courtès 2020-04-09Update NEWS.Ludovic Courtès