123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130 |
- (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)
- (chdir #$output)
- (test-begin "rsync")
-
- (test-assert "service running"
- (marionette-eval
- '(begin
- (use-modules (gnu services herd))
-
- (setenv "PATH" "/run/current-system/profile/bin")
- (start-service 'rsync))
- marionette))
-
- (test-assert "PID file"
- (marionette-eval
- '(file-exists? "/var/run/rsyncd/rsyncd.pid")
- marionette))
- (test-assert "Test file copied to share"
- (marionette-eval
- '(begin
- (call-with-output-file "/tmp/input"
- (lambda (port)
- (display "test-file-contents\n" port)))
- (zero?
- (system* "rsync" "/tmp/input"
- (string-append "rsync://localhost:"
- (number->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-end)
- (exit (= (test-runner-fail-count (test-runner-current)) 0)))))
- (gexp->derivation "rsync-test" test))
- (define* %rsync-os
-
- (let ((base-os
- (simple-operating-system
- (service dhcp-client-service-type)
- (service rsync-service-type))))
- (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))))
|