From e1b8bace8cf26fb7aa32614241917832b4225b44 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 9 Aug 2022 15:58:14 +0200
Subject: [PATCH] tests: git: Write files as UTF-8.

* guix/tests/git.scm (populate-git-repository): Add call to
'set-port-encoding!' in 'add' case.
---
 guix/tests/git.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/guix/tests/git.scm b/guix/tests/git.scm
index 94f1021c79..d51e49e514 100644
--- a/guix/tests/git.scm
+++ b/guix/tests/git.scm
@@ -73,6 +73,7 @@ (define (git command . args)
          (mkdir-p (dirname file))
          (call-with-output-file file
            (lambda (port)
+             (set-port-encoding! port "UTF-8")
              (display (if (string? contents)
                           contents
                           (with-repository directory repository