tests « gnu - guix - Wojtek's customized Guix

about summary refs log tree commit diff

path: root/gnu/tests

Mode	Name	Size
-rw-r--r--	audio.scm	4069	log plain about
-rw-r--r--	base.scm	43791	log plain about
-rw-r--r--	cachefilesd.scm	2414	log plain about
-rw-r--r--	ci.scm	4334	log plain about
-rw-r--r--	cups.scm	4141	log plain about
d---------	data	50	log plain
-rw-r--r--	databases.scm	16500	log plain about
-rw-r--r--	desktop.scm	12729	log plain about
-rw-r--r--	dict.scm	4473	log plain about
-rw-r--r--	docker.scm	18911	log plain about
-rw-r--r--	emacs.scm	4104	log plain about
-rw-r--r--	file-sharing.scm	11386	log plain about
-rw-r--r--	ganeti.scm	10906	log plain about
-rw-r--r--	gdm.scm	4740	log plain about
-rw-r--r--	guix.scm	14967	log plain about
-rw-r--r--	image.scm	8539	log plain about
-rw-r--r--	install.scm	80388	log plain about
-rw-r--r--	ldap.scm	5683	log plain about
-rw-r--r--	lightdm.scm	6125	log plain about
-rw-r--r--	linux-modules.scm	7537	log plain about
-rw-r--r--	mail.scm	22965	log plain about
-rw-r--r--	messaging.scm	8876	log plain about
-rw-r--r--	monitoring.scm	11236	log plain about
-rw-r--r--	networking.scm	32068	log plain about
-rw-r--r--	nfs.scm	14743	log plain about
-rw-r--r--	package-management.scm	3761	log plain about
-rw-r--r--	pam.scm	3789	log plain about
-rw-r--r--	reconfigure.scm	10561	log plain about
-rw-r--r--	rsync.scm	5856	log plain about
-rw-r--r--	samba.scm	6979	log plain about
-rw-r--r--	sddm.scm	4056	log plain about
-rw-r--r--	security-token.scm	2268	log plain about
-rw-r--r--	security.scm	7593	log plain about
-rw-r--r--	singularity.scm	5757	log plain about
-rw-r--r--	ssh.scm	10885	log plain about
-rw-r--r--	telephony.scm	17233	log plain about
-rw-r--r--	version-control.scm	17456	log plain about
-rw-r--r--	virtualization.scm	18032	log plain about
-rw-r--r--	vnc.scm	8905	log plain about
-rw-r--r--	vnstat.scm	5923	log plain about
-rw-r--r--	web.scm	20655	log plain about

mlink file (string-append directory "/" (transform file)))) (define (directory-content directory) "Creates a list of absolute path names inside DIRECTORY." (map (lambda (name) (string-append directory name)) (or (scandir directory (lambda (name) (not (member name '("." ".."))))) '()))) (define name-ends-with-/? (cut string-suffix? "/" <>)) (define (name-is-store-entry? name) "Return #t if NAME is a direct store entry and nothing inside." (not (string-index (strip-store-file-name name) #\/))) (let* ((collection (string-append #$output "/collection")) (files '#$files) (directories (filter name-ends-with-/? files)) (names-from-directories (append-map (lambda (directory) (directory-content directory)) directories)) (names (append names-from-directories (remove name-ends-with-/? files)))) (mkdir-p collection) (if (every file-exists? names) (begin (for-each (lambda (name) (symlink-to name collection (if (name-is-store-entry? name) strip-store-file-name basename))) names) #t) #f))))) (gexp->derivation "bootloader-collection" build #:local-build? #t #:substitutable? #f #:properties `((type . profile-hook) (hook . bootloader-collection)))) (profile (content (packages->manifest (list bootloader-package))) (name "bootloader-profile") (hooks (append (list bootloader-collection) hooks)) (locales? #f) (allow-collisions? #f) (relative-symlinks? #f))) (define* (efi-bootloader-chain files final-bootloader #:key (hooks '()) installer) "Define a bootloader chain with FINAL-BOOTLOADER as the final bootloader and certain directories and files from the store given in the list of FILES. FILES may contain file like objects produced by functions like plain-file, local-file, etc., or package contents produced with file-append. They will be collected inside a directory collection/ inside a generated bootloader profile, which will be passed to the INSTALLER. If a directory name in FILES ends with '/', then the directory content instead of the directory itself will be symlinked into the collection/ directory. The procedures in the HOOKS list can be used to further modify the bootloader profile. It is possible to pass a single function instead of a list. If the INSTALLER argument is used, then this function will be called to install the bootloader. Otherwise the installer of the FINAL-BOOTLOADER will be called." (let* ((final-installer (or installer (bootloader-installer final-bootloader))) (profile (efi-bootloader-profile files (bootloader-package final-bootloader) (if (list? hooks) hooks (list hooks))))) (bootloader (inherit final-bootloader) (package profile) (installer #~(lambda (bootloader target mount-point) (#$final-installer bootloader target mount-point) (copy-recursively (string-append bootloader "/collection") (string-append mount-point target) #:follow-symlinks? #t #:log (%make-void-port "w")))))))