1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768 |
- (define-module (test-file-systems)
- #:use-module (guix store)
- #:use-module (guix modules)
- #:use-module (gnu system file-systems)
- #:use-module (srfi srfi-1)
- #:use-module (srfi srfi-64)
- #:use-module (ice-9 match))
- (test-begin "file-systems")
- (test-assert "file-system-needed-for-boot?"
- (let-syntax ((dummy-fs (syntax-rules ()
- ((_ directory)
- (file-system
- (device "foo")
- (mount-point directory)
- (type "ext4"))))))
- (parameterize ((%store-prefix "/gnu/guix/store"))
- (and (file-system-needed-for-boot? (dummy-fs "/"))
- (file-system-needed-for-boot? (dummy-fs "/gnu"))
- (file-system-needed-for-boot? (dummy-fs "/gnu/guix"))
- (file-system-needed-for-boot? (dummy-fs "/gnu/guix/store"))
- (not (file-system-needed-for-boot?
- (dummy-fs "/gnu/guix/store/foo")))
- (not (file-system-needed-for-boot? (dummy-fs "/gn")))
- (not (file-system-needed-for-boot?
- (file-system
- (inherit (dummy-fs (%store-prefix)))
- (device "/foo")
- (flags '(bind-mount read-only)))))))))
- (test-assert "does not pull (guix config)"
-
-
-
- (not (member '(guix config)
- (source-module-closure '((gnu system file-systems))))))
- (test-equal "does not pull (gnu packages …)"
-
- #f
- (find (match-lambda
- (('gnu 'packages _ ..1) #t)
- (_ #f))
- (source-module-closure '((gnu system file-systems)))))
- (test-end)
|