build « gnu - guix - Wojtek's customized Guix

Mode	Name	Size
-rw-r--r--	accounts.scm	21568	log plain about
-rw-r--r--	activation.scm	16646	log plain about
-rw-r--r--	bootloader.scm	4324	log plain about
-rw-r--r--	chromium-extension.scm	8341	log plain about
-rw-r--r--	cross-toolchain.scm	7936	log plain about
-rw-r--r--	file-systems.scm	36416	log plain about
-rw-r--r--	hurd-boot.scm	12032	log plain about
-rw-r--r--	image.scm	12418	log plain about
-rw-r--r--	install.scm	10788	log plain about
-rw-r--r--	jami-service.scm	22883	log plain about
-rw-r--r--	linux-boot.scm	26064	log plain about
-rw-r--r--	linux-container.scm	15765	log plain about
-rw-r--r--	linux-initrd.scm	6026	log plain about
-rw-r--r--	linux-modules.scm	27486	log plain about
-rw-r--r--	locale.scm	3625	log plain about
-rw-r--r--	marionette.scm	13630	log plain about
-rw-r--r--	secret-service.scm	7107	log plain about
-rw-r--r--	shepherd.scm	9039	log plain about
-rw-r--r--	svg.scm	2844	log plain about
-rw-r--r--	vm.scm	19794	log plain about

ath %load-path "guix.scm")) (t (options->transformation `((with-source . ,s))))) (with-store store (let ((new (t store p))) (and (not (eq? new p)) (string=? (package-source new) (add-to-store store "guix.scm" #t "sha256" s))))))) (test-assert "options->transformation, with-source, replacement" ;; Same, but this time the original package has a 'replacement' field. We ;; expect that replacement to be set to #f in the new package. (let* ((p (dummy-package "guix.scm" (replacement coreutils))) (s (search-path %load-path "guix.scm")) (t (options->transformation `((with-source . ,s))))) (with-store store (let ((new (t store p))) (and (not (eq? new p)) (string=? (package-source new) (add-to-store store "guix.scm" #t "sha256" s)) (not (package-replacement new))))))) (test-assert "options->transformation, with-source, with version" ;; Our pseudo-package is called 'guix.scm' so the 'guix.scm-2.0' source ;; should be applicable, and its version should be extracted. (let ((p (dummy-package "foo")) (s (search-path %load-path "guix.scm"))) (call-with-temporary-directory (lambda (directory) (let* ((f (string-append directory "/foo-42.0.tar.gz")) (t (options->transformation `((with-source . ,f))))) (copy-file s f) (with-store store (let ((new (t store p))) (and (not (eq? new p)) (string=? (package-name new) (package-name p)) (string=? (package-version new) "42.0") (string=? (package-source new) (add-to-store store (basename f) #t "sha256" f)))))))))) (test-assert "options->transformation, with-source, no matches" ;; When a transformation in not applicable, a warning must be raised. (let* ((p (dummy-package "foobar")) (s (search-path %load-path "guix.scm")) (t (options->transformation `((with-source . ,s))))) (with-store store (let* ((port (open-output-string)) (new (parameterize ((guix-warning-port port)) (t store p)))) (and (eq? new p) (string-contains (get-output-string port) "had no effect")))))) (test-assert "options->transformation, with-source, PKG=URI" (let* ((p (dummy-package "foo")) (s (search-path %load-path "guix.scm")) (f (string-append "foo=" s)) (t (options->transformation `((with-source . ,f))))) (with-store store (let ((new (t store p))) (and (not (eq? new p)) (string=? (package-name new) (package-name p)) (string=? (package-version new) (package-version p)) (string=? (package-source new) (add-to-store store (basename s) #t "sha256" s))))))) (test-assert "options->transformation, with-source, PKG@VER=URI" (let* ((p (dummy-package "foo")) (s (search-path %load-path "guix.scm")) (f (string-append "foo@42.0=" s)) (t (options->transformation `((with-source . ,f))))) (with-store store (let ((new (t store p))) (and (not (eq? new p)) (string=? (package-name new) (package-name p)) (string=? (package-version new) "42.0") (string=? (package-source new) (add-to-store store (basename s) #t "sha256" s))))))) (test-assert "options->transformation, with-input" (let* ((p (dummy-package "guix.scm" (inputs `(("foo" ,(specification->package "coreutils")) ("bar" ,(specification->package "grep")) ("baz" ,(dummy-package "chbouib" (native-inputs `(("x" ,grep))))))))) (t (options->transformation '((with-input . "coreutils=busybox") (with-input . "grep=findutils"))))) (with-store store (let ((new (t store p))) (and (not (eq? new p)) (match (package-inputs new) ((("foo" dep1) ("bar" dep2) ("baz" dep3)) (and (string=? (package-full-name dep1) (package-full-name busybox)) (string=? (package-full-name dep2) (package-full-name findutils)) (string=? (package-name dep3) "chbouib") (match (package-native-inputs dep3) ((("x" dep)) (string=? (package-full-name dep) (package-full-name findutils)))))))))))) (test-assert "options->transformation, with-graft" (let* ((p (dummy-package "guix.scm" (inputs `(("foo" ,grep) ("bar" ,(dummy-package "chbouib" (native-inputs `(("x" ,grep))))))))) (t (options->transformation '((with-graft . "grep=findutils"))))) (with-store store (let ((new (t store p))) (and (not (eq? new p)) (match (package-inputs new) ((("foo" dep1) ("bar" dep2)) (and (string=? (package-full-name dep1) (package-full-name grep)) (string=? (package-full-name (package-replacement dep1)) (package-full-name findutils)) (string=? (package-name dep2) "chbouib") (match (package-native-inputs dep2) ((("x" dep)) (with-store store (string=? (derivation-file-name (package-derivation store findutils)) (derivation-file-name (package-derivation store dep)))))))))))))) (test-equal "options->transformation, with-branch" (git-checkout (url "https://example.org") (branch "devel") (recursive? #t)) (let* ((p (dummy-package "guix.scm" (inputs `(("foo" ,grep) ("bar" ,(dummy-package "chbouib" (source (origin (method git-fetch) (uri (git-reference (url "https://example.org") (commit "cabba9e"))) (sha256 #f))))))))) (t (options->transformation '((with-branch . "chbouib=devel"))))) (with-store store (let ((new (t store p))) (and (not (eq? new p)) (match (package-inputs new) ((("foo" dep1) ("bar" dep2)) (and (string=? (package-full-name dep1) (package-full-name grep)) (string=? (package-name dep2) "chbouib") (package-source dep2))))))))) (test-equal "options->transformation, with-commit" (git-checkout (url "https://example.org") (commit "abcdef") (recursive? #t)) (let* ((p (dummy-package "guix.scm" (inputs `(("foo" ,grep) ("bar" ,(dummy-package "chbouib" (source (origin (method git-fetch) (uri (git-reference (url "https://example.org") (commit "cabba9e"))) (sha256 #f))))))))) (t (options->transformation '((with-commit . "chbouib=abcdef"))))) (with-store store (let ((new (t store p))) (and (not (eq? new p)) (match (package-inputs new) ((("foo" dep1) ("bar" dep2)) (and (string=? (package-full-name dep1) (package-full-name grep)) (string=? (package-name dep2) "chbouib") (package-source dep2))))))))) (test-equal "options->transformation, with-git-url" (let ((source (git-checkout (url "https://example.org") (recursive? #t)))) (list source source)) (let* ((p (dummy-package "guix.scm" (inputs `(("foo" ,grep) ("bar" ,(dummy-package "chbouib" (native-inputs `(("x" ,grep))))))))) (t (options->transformation '((with-git-url . "grep=https://example.org"))))) (with-store store (let ((new (t store p))) (and (not (eq? new p)) (match (package-inputs new) ((("foo" dep1) ("bar" dep2)) (and (string=? (package-full-name dep1) (package-full-name grep)) (string=? (package-name dep2) "chbouib") (match (package-native-inputs dep2) ((("x" dep3)) (map package-source (list dep1 dep3)))))))))))) (test-equal "options->transformation, with-git-url + with-branch" ;; Combine the two options and make sure the 'with-branch' transformation ;; comes after the 'with-git-url' transformation. (let ((source (git-checkout (url "https://example.org") (branch "BRANCH") (recursive? #t)))) (list source source)) (let* ((p (dummy-package "guix.scm" (inputs `(("foo" ,grep) ("bar" ,(dummy-package "chbouib" (native-inputs `(("x" ,grep))))))))) (t (options->transformation (reverse '((with-git-url . "grep=https://example.org") (with-branch . "grep=BRANCH")))))) (with-store store (let ((new (t store p))) (and (not (eq? new p)) (match (package-inputs new) ((("foo" dep1) ("bar" dep2)) (and (string=? (package-name dep1) "grep") (string=? (package-name dep2) "chbouib") (match (package-native-inputs dep2) ((("x" dep3)) (map package-source (list dep1 dep3)))))))))))) (test-assert "options->transformation, without-tests" (let* ((dep (dummy-package "dep")) (p (dummy-package "foo" (inputs `(("dep" ,dep))))) (t (options->transformation '((without-tests . "dep") (without-tests . "tar"))))) (with-store store (let ((new (t store p))) (match (bag-direct-inputs (package->bag new)) ((("dep" dep) ("tar" tar) _ ...) ;; TODO: Check whether TAR has #:tests? #f when transformations ;; apply to implicit inputs. (equal? (package-arguments dep) '(#:tests? #f)))))))) (test-end)