me/guix
Archived
1
0
Fork 0
Code Activity

tests: childhurd: Test SSH connection with a non-root user.

Browse source 
* gnu/tests/virtualization.scm (%childhurd-os): Remove ‘services’ and
add ‘users’ to the GNU/Hurd ‘operating-system’ declaration.
(run-childhurd-test)[run-command-over-ssh]: Log in as “test” instead of
“root”.
This commit is contained in:
Ludovic Courtès 2023-10-05 22:29:43 +02:00
parent a0818d0236
commit 917c17c052
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/tests/virtualization.scm
View file

@ -24,14 +24,15 @@
#:use-module (gnu tests) #:use-module (gnu tests)
#:use-module (gnu image) #:use-module (gnu image)
#:use-module (gnu system) #:use-module (gnu system)
#:use-module (gnu system accounts)
#:use-module (gnu system file-systems) #:use-module (gnu system file-systems)
#:use-module (gnu system image) #:use-module (gnu system image)
#:use-module (gnu system images hurd) #:use-module (gnu system images hurd)
#:use-module ((gnu system shadow) #:select (%base-user-accounts))
#:use-module (gnu system vm) #:use-module (gnu system vm)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services dbus) #:use-module (gnu services dbus)
#:use-module (gnu services networking) #:use-module (gnu services networking)
#:use-module (gnu services ssh)
#:use-module (gnu services virtualization) #:use-module (gnu services virtualization)
#:use-module (gnu packages ssh) #:use-module (gnu packages ssh)
#:use-module (gnu packages virtualization) #:use-module (gnu packages virtualization)
@ -232,17 +233,13 @@
(service dhcp-client-service-type) (service dhcp-client-service-type)
(service hurd-vm-service-type (service hurd-vm-service-type
(hurd-vm-configuration (hurd-vm-configuration
;; Allow root login with an empty password to simplify the test
;; below.
(os (operating-system (os (operating-system
(inherit %hurd-vm-operating-system) (inherit %hurd-vm-operating-system)
(services (users (cons (user-account
(modify-services (operating-system-user-services (name "test")
%hurd-vm-operating-system) (group "users")
(openssh-service-type (password "")) ;empty password
config => (openssh-configuration %base-user-accounts))))))))
(inherit config)
(permit-root-login #t)))))))))))
(define (run-childhurd-test) (define (run-childhurd-test)
(define (import-module? module) (define (import-module? module)
@ -277,7 +274,7 @@
(ice-9 match) (ice-9 match)
(ice-9 textual-ports)) (ice-9 textual-ports))
(let ((session (make-session #:user "root" (let ((session (make-session #:user "test"
#:port 10022 #:port 10022
#:host "localhost" #:host "localhost"
#:log-verbosity 'rare))) #:log-verbosity 'rare)))