summary refs log tree commit diff
diff options
context:
space:
mode:
authorXinglu Chen <public@yoctocell.xyz>2021-09-17 10:04:44 +0200
committerLudovic Courtès <ludo@gnu.org>2021-09-18 19:37:45 +0200
commit6597f80839142cd341cbf6cee2f34eaf4de14533 (patch)
tree389b464a76090fc0ee1b26960e83dd17a3f25ec8
parent4674738cdbcb5d793fd19d6d4941721adbddad5a (diff)
downloadguix-6597f80839142cd341cbf6cee2f34eaf4de14533.tar.gz
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>
-rw-r--r--guix/tests/git.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/tests/git.scm b/guix/tests/git.scm
index e11541e83b..69960284d9 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))