guix - Wojtek's customized Guix

about summary refs log tree commit diff

Mode	Name	Size
-rw-r--r--	.dir-locals.el	10376	log plain about
-rw-r--r--	.editorconfig	311	log plain about
-rw-r--r--	.gitattributes	73	log plain about
-rw-r--r--	.gitignore	2705	log plain about
-rw-r--r--	.guix-authorizations	4514	log plain about
-rw-r--r--	.guix-channel	182	log plain about
-rw-r--r--	.mailmap	4921	log plain about
-rw-r--r--	.patman	331	log plain about
-rw-r--r--	AUTHORS	472	log plain about
-rw-r--r--	CODE-OF-CONDUCT	5321	log plain about
-rw-r--r--	COPYING	35147	log plain about
-rw-r--r--	ChangeLog	163	log plain about
-rw-r--r--	HACKING	748	log plain about
-rw-r--r--	Makefile.am	39533	log plain about
-rw-r--r--	NEWS	382196	log plain about
-rw-r--r--	README	4885	log plain about
-rw-r--r--	ROADMAP	3257	log plain about
-rw-r--r--	THANKS	2388	log plain about
-rw-r--r--	TODO	4360	log plain about
-rwxr-xr-x	bootstrap	844	log plain about
d---------	build-aux	688	log plain
-rw-r--r--	config-daemon.ac	4406	log plain about
-rw-r--r--	configure.ac	8771	log plain about
d---------	doc	504	log plain
d---------	etc	1127	log plain
-rw-r--r--	gnu.scm	5289	log plain about
d---------	gnu	807	log plain
-rw-r--r--	guix.scm	1452	log plain about
d---------	guix	3508	log plain
d---------	m4	35	log plain
d---------	nix	282	log plain
d---------	po	96	log plain
d---------	scripts	35	log plain
d---------	tests	4867	log plain

ons '()) (description ""))) (t2 (service-type (name 't2) (extensions '()) (description ""))) (t3 (service-type (name 't3) (extensions '()) (description ""))) (services (list (service t1 1) (service t2 2) (service t3 3)))) (map service-value (modify-services services (t1 value => 11) (t3 value => 33))))) (test-error "modify-services: change value for non-existing service" #t (let* ((t1 (service-type (name 't1) (extensions '()) (description ""))) (t2 (service-type (name 't2) (extensions '()) (description ""))) (t3 (service-type (name 't3) (extensions '()) (description ""))) (services (list (service t1 1) (service t3 3)))) (map service-value (modify-services services (t2 value => 22))))) (test-error "modify-services: delete then modify" #t (let* ((t1 (service-type (name 't1) (extensions '()) (description ""))) (t2 (service-type (name 't2) (extensions '()) (description ""))) (t3 (service-type (name 't3) (extensions '()) (description ""))) (services (list (service t1 1) (service t2 2) (service t3 3)))) (map service-value (modify-services services (delete t2) (t2 value => 22))))) (test-equal "modify-services: modify then delete" '(2 3) (let* ((t1 (service-type (name 't1) (extensions '()) (description ""))) (t2 (service-type (name 't2) (extensions '()) (description ""))) (t3 (service-type (name 't3) (extensions '()) (description ""))) (services (list (service t1 1) (service t2 2) (service t3 3)))) (map service-value (modify-services services (t1 value => 11) (delete t1))))) (test-equal "modify-services: delete multiple services of the same type" '(1 3) (let* ((t1 (service-type (name 't1) (extensions '()) (description ""))) (t2 (service-type (name 't2) (extensions '()) (description ""))) (t3 (service-type (name 't3) (extensions '()) (description ""))) (services (list (service t1 1) (service t2 2) (service t2 2) (service t3 3)))) (map service-value (modify-services services (delete t2))))) (test-equal "modify-services: modify multiple services of the same type" '(1 12 13 4) (let* ((t1 (service-type (name 't1) (extensions '()) (description ""))) (t2 (service-type (name 't2) (extensions '()) (description ""))) (t3 (service-type (name 't3) (extensions '()) (description ""))) (services (list (service t1 1) (service t2 2) (service t2 3) (service t3 4)))) (map service-value (modify-services services (t2 value => (+ value 10)))))) (test-end)