;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu tests rsync)
  #:use-module (gnu packages rsync)
  #:use-module (gnu tests)
  #:use-module (gnu system)
  #:use-module (gnu system file-systems)
  #:use-module (gnu system shadow)
  #:use-module (gnu system vm)
  #:use-module (gnu services)
  #:use-module (gnu services rsync)
  #:use-module (gnu services networking)
  #:use-module (guix gexp)
  #:use-module (guix store)
  #:export (%test-rsync))

(define* (run-rsync-test rsync-os #:optional (rsync-port 873))
  "Run tests in %RSYNC-OS, which has rsync running and listening on
PORT."
  (define os
    (marionette-operating-system
     rsync-os
     #:imported-modules '((gnu services herd)
                          (guix combinators))))

  (define vm
    (virtual-machine
     (operating-system os)
     (port-forwardings '())))

  (define test
    (with-imported-modules '((gnu build marionette))
      #~(begin
          (use-modules (srfi srfi-11) (srfi srfi-64)
                       (gnu build marionette))

          (define marionette
            (make-marionette (list #$vm)))

          (mkdir #$output)
          <pre>
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Andreas Enge &lt;andreas@enge.fr&gt;
;;; Copyright © 2013, 2016, 2018, 2019, 2020, 2021 Ludovic Courtès &lt;ludo@gnu.org&gt;
;;; Copyright © 2014 Eric Bavier &lt;bavier@member.fsf.org&gt;
;;; Copyright © 2015 Jeff Mickey &lt;j@codemac.net&gt;
;;; Copyright © 2016, 2017, 2019, 2021, 2022, 2024 Efraim Flashner &lt;efraim@flashner.co.il&gt;
;;; Copyright © 2016–2022 Tobias Geerinckx-Rice &lt;me@tobias.gr&gt;
;;; Copyright © 2017 Julien Lepiller &lt;julien@lepiller.eu&gt;
;;; Copyright © 2018, 2020 Pierre Langlois &lt;pierre.langlois@gmx.com&gt;
;;; Copyright © 2018 Meiyo Peng &lt;meiyo.peng@gmail.com&gt;
;;; Copyright © 2019, 2020 Leo Famulari &lt;leo@famulari.name&gt;
;;; Copyright © 2019 Rutger Helling &lt;rhelling@mykolab.com&gt;
;;; Copyright © 2019 Ricardo Wurmus &lt;rekado@elephly.net&gt;
;;; Copyright © 2020 Brice Waegeneire &lt;brice@waegenei.re&gt;
;;; Copyright © 2020 Ryan Prior &lt;rprior@protonmail.com&gt;
;;; Copyright © 2020 Ivan Kozlov &lt;kanichos@yandex.ru&gt;
;;; Copyright © 2020 David Dashyan &lt;mail@davie.li&gt;
;;; Copyright © 2021 Domagoj Stolfa &lt;ds815@gmx.com&gt;
;;; Copyright © 2021 Raghav Gururajan &lt;rg@raghavgururajan.name&gt;
;;; Copyright © 2021 jgart &lt;jgart@dismail.de&gt;
;;; Copyright © 2022 Josselin Poiret &lt;josselin.poiret@protonmail.ch&gt;
;;; Copyright © 2022 Lu hui &lt;luhux76@gmail.com&gt;
;;; Copyright © 2022, 2023 Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;
;;; Copyright © 2022 Jean-Pierre De Jesus DIAZ &lt;me@jeandudey.tech&gt;
;;; Copyright © 2022 Arun Isaac &lt;arunisaac@systemreboot.net&gt;
;;; Copyright © 2024 Allan Adair &lt;allan@adair.no&gt;
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You