From e78275608065ef073775fabb9f1a757da65851f2 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 7 Jun 2020 23:06:41 +0200 Subject: git-authenticate: Prevent removal of '.guix-authorizations'. * guix/git-authenticate.scm (commit-authorized-keys) [parents-have-authorizations-file?, assert-parents-lack-authorizations]: New procedures. Use the latter before returning DEFAULT-AUTHORIZATIONS. * guix/git.scm (false-if-git-not-found): Export. * guix/tests/git.scm (populate-git-repository): Add 'remove' clause. * tests/git-authenticate.scm ("signed commits, .guix-authorizations removed"): New test. --- guix/tests/git.scm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'guix/tests/git.scm') diff --git a/guix/tests/git.scm b/guix/tests/git.scm index 5d7056bb53..b8e5f7e643 100644 --- a/guix/tests/git.scm +++ b/guix/tests/git.scm @@ -76,6 +76,9 @@ Return DIRECTORY on success." port))) (git "add" file) (loop rest))) + ((('remove file) rest ...) + (git "rm" "-f" file) + (loop rest)) ((('commit text) rest ...) (git "commit" "-m" text) (loop rest)) -- cgit v1.2.3