03/08: tests: git: Make 'tag' directive non-interactive.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 6597f80839142cd341cbf6cee2f34eaf4de14533
Author: Xinglu Chen <public@yoctocell.xyz>
AuthorDate: Fri Sep 17 10:04:44 2021 +0200

    tests: git: Make 'tag' directive non-interactive.
    
    When running 'git tag TAGNAME', Git will open up the user's default text
    editor to make them write a message.  This is not desirable when running
    tests.
    
    * guix/tests/git.scm (populate-git-repository): Add a 'tag' directive
    that takes an additional argument, and pass it to the '-m' flag.
    
    Co-authored-by: Ludovic Courtès <ludo@gnu.org>
---
 guix/tests/git.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/guix/tests/git.scm b/guix/tests/git.scm
index e11541e..6996028 100644
--- a/guix/tests/git.scm
+++ b/guix/tests/git.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -90,6 +90,9 @@ Return DIRECTORY on success."
       ((('tag name) rest ...)
        (git "tag" name)
        (loop rest))
+      ((('tag name text) rest ...)
+       (git "tag" "-m" text name)
+       (loop rest))
       ((('branch name) rest ...)
        (git "branch" name)
        (loop rest))