guix - Wojtek's customized Guix

diff options

Diffstat (limited to 'gnu/tests/docker.scm')

0 files changed, 0 insertions, 0 deletions

>string #$rsync-port) "/files/input")))) marionette)) (test-equal "Test file correctly received from share" "test-file-contents" (marionette-eval '(begin (use-modules (ice-9 rdelim)) (zero? (system* "rsync" (string-append "rsync://localhost:" (number->string #$rsync-port) "/files/input") "/tmp/output")) (call-with-input-file "/tmp/output" (lambda (port) (read-line port)))) marionette)) (test-equal "Test file not copied to read-only share" 1 ;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)) (define* %rsync-os ;; Return operating system under test. (let ((base-os (simple-operating-system (service dhcp-client-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 (operating-system-packages base-os)))))) (define %test-rsync (system-test (name "rsync") (description "Connect to a running RSYNC server.") (value (run-rsync-test %rsync-os))))


context:
space:
mode: