ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-24 11:39:46 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: rsync: Define several modules.

Browse source 
* gnu/tests/rsync.scm (run-rsync-test)["Test file not copied to
read-only share", "Test file correctly received from read-only share"]:
New tests.
(%rsync-os): Define two modules.
This commit is contained in:
Ludovic Courtès 2021-12-21 15:12:34 +01:00
parent c9d92409d4
commit 3b3bef3e4e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 39 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
gnu/tests/rsync.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2021 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -104,6 +105,35 @@ (define marionette
(read-line port))))
marionette))
(test-equal "Test file not copied to read-only share"
10 ;see "EXIT VALUES" in rsync(1)
(marionette-eval
'(status:exit-val
(system* "rsync" "/tmp/input"
(string-append "rsync://localhost:"
(number->string #$rsync-port)
"/read-only/input")))
marionette))
(test-equal "Test file correctly received from read-only share"
"\"Hi!\" from the read-only share."
(marionette-eval
'(begin
(use-modules (ice-9 rdelim))
(call-with-output-file "/srv/read-only/the-file"
(lambda (port)
(display "\"Hi!\" from the read-only share." port)))
(zero?
(system* "rsync"
(string-append "rsync://localhost:"
(number->string #$rsync-port)
"/read-only/the-file")
"/tmp/output"))
(call-with-input-file "/tmp/output" read-line))
marionette))
(test-end))))
(gexp->derivation "rsync-test" test))
@ -113,7 +143,15 @@ (define* %rsync-os
(let ((base-os
(simple-operating-system
(service dhcp-client-service-type)
(service rsync-service-type))))
(service rsync-service-type
(rsync-configuration
(modules (list (rsync-module
(name "read-only")
(file-name "/srv/read-only"))
(rsync-module
(name "files")
(file-name "/srv/read-write")
(read-only? #f)))))))))
(operating-system
(inherit base-os)
(packages (cons* rsync