tests: git: Write files as UTF-8.

* guix/tests/git.scm (populate-git-repository): Add call to
'set-port-encoding!' in 'add' case.
This commit is contained in:
Ludovic Courtès 2022-08-09 15:58:14 +02:00
parent fdafd40432
commit e1b8bace8c
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -73,6 +73,7 @@ (define (git command . args)
(mkdir-p (dirname file)) (mkdir-p (dirname file))
(call-with-output-file file (call-with-output-file file
(lambda (port) (lambda (port)
(set-port-encoding! port "UTF-8")
(display (if (string? contents) (display (if (string? contents)
contents contents
(with-repository directory repository (with-repository directory repository