123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216 |
- (define-module (gnu tests samba)
- #:use-module (gnu tests)
- #:use-module (gnu system)
- #:use-module (gnu system vm)
- #:use-module (gnu services)
- #:use-module (gnu services networking)
- #:use-module (gnu services samba)
- #:use-module (gnu packages samba)
- #:use-module (guix gexp)
- #:use-module (guix store)
- #:export (%test-samba
- %test-wsdd))
- (define %samba-os
- (let ((base-os (simple-operating-system
- (simple-service 'create-target-directory activation-service-type
- #~(begin
- (mkdir-p "/srv/samba/guest")
- (chown "/srv/samba/guest"
- (passwd:uid (getpw "nobody"))
- (passwd:gid (getpw "nobody")))))
- (service dhcp-client-service-type)
- (service samba-service-type
- (samba-configuration
- (config-file (plain-file "smb.conf" "
- [global]
- workgroup = WORKGROUP
- server string = Samba Server
- server role = standalone server
- log file = /var/log/samba/log.%m
- logging = file
- [guest]
- path = /srv/samba/guest
- read only = no
- guest ok = yes
- guest only = yes
- ")))))))
- (operating-system
- (inherit base-os)
- (packages (cons samba (operating-system-packages base-os))))))
- (define* (run-samba-test)
- "Return a test of an OS running Samba service."
- (define vm
- (virtual-machine
- (operating-system (marionette-operating-system
- %samba-os
- #:imported-modules '((gnu services herd))))
- (port-forwardings '((8135 . 135)
- (8137 . 137)
- (8138 . 138)
- (8445 . 445)))))
- (define test
- (with-imported-modules '((gnu build marionette))
- #~(begin
- (use-modules (gnu build marionette)
- (srfi srfi-26)
- (srfi srfi-64))
- (define marionette
- (make-marionette '(#$vm)))
- (test-runner-current (system-test-runner #$output))
- (test-begin "samba")
- (test-assert "samba-smbd running"
- (marionette-eval
- '(begin
- (use-modules (gnu services herd))
- (start-service 'samba-smbd))
- marionette))
- (test-assert "samba-nmbd running"
- (marionette-eval
- '(begin
- (use-modules (gnu services herd))
- (start-service 'samba-nmbd))
- marionette))
- (test-assert "samba-winbindd running"
- (marionette-eval
- '(begin
- (use-modules (gnu services herd))
- (start-service 'samba-winbindd))
- marionette))
- (test-assert "smbd service process id"
- (let ((pid
- (number->string (wait-for-file "/var/run/samba/smbd.pid"
- marionette))))
- (marionette-eval `(file-exists? (string-append "/proc/" ,pid))
- marionette)))
- (test-assert "nmbd service process id"
- (let ((pid
- (number->string (wait-for-file "/var/run/samba/nmbd.pid"
- marionette))))
- (marionette-eval `(file-exists? (string-append "/proc/" ,pid))
- marionette)))
- (test-assert "winbindd service process id"
- (let ((pid
- (number->string (wait-for-file "/var/run/samba/winbindd.pid"
- marionette))))
- (marionette-eval `(file-exists? (string-append "/proc/" ,pid))
- marionette)))
- (test-assert "samba-smbd is listening for peers"
- (wait-for-tcp-port 445 marionette))
- (test-equal "smbclient connect"
- 0
- (marionette-eval
- '(system* #$(file-append samba "/bin/smbclient")
- "--list=localhost" "--no-pass")
- marionette))
- (test-equal "smbclient connect"
- 0
- (marionette-eval
- '(system* #$(file-append samba "/bin/smbclient")
- "--list=localhost" "--no-pass")
- marionette))
- (test-end))))
- (gexp->derivation "samba-test" test))
- (define %test-samba
- (system-test
- (name "samba")
- (description "Connect to a running Samba daemon.")
- (value (run-samba-test))))
- (define %wsdd-os
- (let ((base-os (simple-operating-system
- (service dhcp-client-service-type)
- (service wsdd-service-type))))
- (operating-system
- (inherit base-os)
- (packages (cons wsdd (operating-system-packages base-os))))))
- (define* (run-wsdd-test)
- "Return a test of an OS running wsdd service."
- (define vm
- (virtual-machine
- (operating-system (marionette-operating-system
- %wsdd-os
- #:imported-modules '((gnu services herd))))
- (port-forwardings '((3702 . 3702)
- (5357 . 5357)))))
- (define test
- (with-imported-modules '((gnu build marionette))
- #~(begin
- (use-modules (gnu build marionette)
- (srfi srfi-26)
- (srfi srfi-64))
- (define marionette
- (make-marionette '(#$vm)))
- (test-runner-current (system-test-runner #$output))
- (test-begin "wsdd")
-
- (test-assert "wsdd running"
- (marionette-eval
- '(begin
- (use-modules (gnu services herd))
- (start-service 'wsdd))
- marionette))
- (test-end))))
- (gexp->derivation "wsdd-test" test))
- (define %test-wsdd
- (system-test
- (name "wsdd")
- (description "Connect to a running wsdd daemon.")
- (value (run-wsdd-test))))
|