aboutsummaryrefslogtreecommitdiff
BranchCommit messageAuthorAge
koszkoAllow unauthorized `guix pull`W. Kosior9 weeks
koszko-scriptsAdd `koszko-vpn' branch.W. Kosior6 weeks
 
offload) s1)) (define s2 (@@ (guix scripts offload) s2)) ...)) (expose-internal-definitions machine-matches? build-requirements-system build-requirements-features build-machine-system build-machine-systems %build-machine-system %build-machine-systems build-machine-features) (define (deprecated-build-machine system) (build-machine (name "m1") (user "dummy") (host-key "some-key") (system system))) (define (new-build-machine systems) (build-machine (name "m1") (user "dummy") (host-key "some-key") (systems systems))) ;;; Test that deprecated build-machine definitions still work. (test-assert (machine-matches? (deprecated-build-machine "i686-linux") (build-requirements (system "i686-linux")))) (test-assert (machine-matches? (new-build-machine '("i686-linux")) (build-requirements (system "i686-linux")))) ;;; A build machine can act as more than one system type, thanks to QEMU ;;; emulation. (test-assert (machine-matches? (new-build-machine '("armhf-linux" "aarch64-linux" "i686-linux" "x86_64-linux")) (build-requirements (system "armhf-linux"))))