gnu: brlaser: Update to 6-2.2a49e32. - guix

diff options

author	Tobias Geerinckx-Rice <me@tobias.gr>	2023-07-02 02:00:04 +0200
committer	Tobias Geerinckx-Rice <me@tobias.gr>	2023-07-02 02:00:40 +0200
commit	9e9cb010207e93c1d662f74e6491ffcc1dcead87 (patch)
tree	e2a44d0d1e650bf57aeb8eef8379b9c0ec442218 /gnu/packages/kerberos.scm
parent	f0ca6346a46c605a590bfd77b84e143a8c759a3b (diff)
download	guix-9e9cb010207e93c1d662f74e6491ffcc1dcead87.tar.gz guix-9e9cb010207e93c1d662f74e6491ffcc1dcead87.zip

gnu: brlaser: Update to 6-2.2a49e32.

* gnu/packages/cups.scm (brlaser): Update to 6-2.2a49e32.

Diffstat (limited to 'gnu/packages/kerberos.scm')

0 files changed, 0 insertions, 0 deletions

(passwd:gid postgres)) (setuid (passwd:uid postgres)) (primitive-exit (if (and (zero? (system* #$(file-append postgresql "/bin/createuser") #$user)) (zero? (system* #$(file-append postgresql "/bin/createdb") "-O" #$user #$name))) 0 1))) (lambda () (primitive-exit 1))) (zero? (cdr (waitpid pid))))))) (shepherd-service (requirement '(postgres)) (provision '(guix-data-service-initial-database-setup)) (start start-gexp) (stop #~(const #f)) (respawn? #f) (one-shot? #t) (documentation "Setup Guix Data Service database.")))) (define %guix-data-service-os (simple-operating-system (service dhcp-client-service-type) (service postgresql-service-type (postgresql-configuration (postgresql postgresql) (config-file (postgresql-config-file (hba-file (plain-file "pg_hba.conf" " local all all trust host all all 127.0.0.1/32 trust host all all ::1/128 trust")))))) (service guix-data-service-type (guix-data-service-configuration (host "0.0.0.0"))) (simple-service 'guix-data-service-database-setup shepherd-root-service-type (list guix-data-service-initial-database-setup-service)))) (define (run-guix-data-service-test) (define os (marionette-operating-system %guix-data-service-os #:imported-modules '((gnu services herd) (guix combinators)))) (define forwarded-port 8080) (define vm (virtual-machine (operating-system os) (memory-size 1024) (port-forwardings `((,forwarded-port . 8765))))) (define test (with-imported-modules '((gnu build marionette)) #~(begin (use-modules (srfi srfi-11) (srfi srfi-64) (gnu build marionette) (web uri) (web client) (web response)) (define marionette (make-marionette (list #$vm))) (test-runner-current (system-test-runner #$output)) (test-begin "guix-data-service") (test-assert "service running" (marionette-eval '(begin (use-modules (gnu services herd)) (match (start-service 'guix-data-service) (#f #f) (('service response-parts ...) (match (assq-ref response-parts 'running) ((pid) pid))))) marionette)) (test-assert "process jobs service running" (marionette-eval '(begin (use-modules (gnu services herd)) (match (start-service 'guix-data-service-process-jobs) (#f #f) (('service response-parts ...) (match (assq-ref response-parts 'running) ((pid) pid))))) marionette)) ;; The service starts immediately but replies with status 500 until ;; initialization is complete, so keep trying for a while. (define (try-http-get attempts) (let ((status (let-values (((response text) (http-get #$(simple-format #f "http://localhost:~A/healthcheck" forwarded-port)))) (response-code response)))) (if (or (= status 200) (<= attempts 1)) status (begin (sleep 5) (try-http-get (- attempts 1)))))) (test-equal "http-get" 200 (try-http-get 12)) (test-end)))) (gexp->derivation "guix-data-service-test" test)) (define %test-guix-data-service (system-test (name "guix-data-service") (description "Connect to a running Guix Data Service.") (value (run-guix-data-service-test)))) ;;; ;;; Guix Home ;;; (define %guix-home-service-he (home-environment (services (list (simple-service 'guix-home-service-test home-files-service-type `(("guix-home-service-activated" ,(plain-file "guix-home-service-activated" "Guix Home service activated")))))))) (define %guix-home-service-os (simple-operating-system (service guix-home-service-type `(("alice" ,%guix-home-service-he))))) (define (run-guix-home-service-test) (define os (marionette-operating-system %guix-home-service-os #:imported-modules '((gnu services herd)))) (define vm (virtual-machine (operating-system os) (memory-size 1024))) (define test (with-imported-modules '((gnu build marionette)) #~(begin (use-modules (srfi srfi-64) (gnu build marionette)) (define marionette (make-marionette (list #$vm))) (test-runner-current (system-test-runner #$output)) (test-begin "guix-home-service") (test-assert "service started" (marionette-eval '(begin (use-modules (gnu services herd)) (match (start-service 'guix-home-alice) (#f #f) ;; herd returns (running #f), likely because of one shot, ;; so consider any non-error a success. (('service response-parts ...) #t))) marionette)) (test-assert "file-exists" (marionette-eval '(begin (sleep 3) ;make sure service has time to symlink files (file-exists? "/home/alice/guix-home-service-activated")) marionette)) (test-end)))) (gexp->derivation "guix-home-service-test" test)) (define %test-guix-home-service (system-test (name "guix-home-service") (description "Activate a Guix home environment.") (value (run-guix-home-service-test)))) ;;; ;;; Nar Herder ;;; (define %nar-herder-os (simple-operating-system (service dhcp-client-service-type) (service nar-herder-service-type (nar-herder-configuration (host "0.0.0.0") ;; Not a realistic value, but works for the test (storage "/tmp"))))) (define (run-nar-herder-test) (define os (marionette-operating-system %nar-herder-os #:imported-modules '((gnu services herd) (guix combinators)))) (define forwarded-port (nar-herder-configuration-port (nar-herder-configuration))) (define vm (virtual-machine (operating-system os) (memory-size 1024) (port-forwardings `((,forwarded-port . ,forwarded-port))))) (define test (with-imported-modules '((gnu build marionette)) #~(begin (use-modules (srfi srfi-11) (srfi srfi-64) (gnu build marionette) (web uri) (web client) (web response)) (define marionette (make-marionette (list #$vm))) (test-runner-current (system-test-runner #$output)) (test-begin "nar-herder") (test-assert "service running" (marionette-eval '(begin (use-modules (gnu services herd)) (match (start-service 'nar-herder) (#f #f) (('service response-parts ...) (match (assq-ref response-parts 'running) ((pid) pid))))) marionette)) (test-equal "http-get" 404 (let-values (((response text) (http-get #$(simple-format #f "http://localhost:~A/" forwarded-port) #:decode-body? #t))) (response-code response))) (test-end)))) (gexp->derivation "nar-herder-test" test)) (define %test-nar-herder (system-test (name "nar-herder") (description "Connect to a running Nar Herder server.") (value (run-nar-herder-test)))) ;;; ;;; Build Farm Front-end ;;; (define %bffe-os (simple-operating-system (service dhcp-client-service-type) (service guix-build-coordinator-service-type) (service bffe-service-type (bffe-configuration (arguments #~(list #:web-server-args '(#:port 8767 #:controller-args (#:title "Test title")))))))) (define (run-bffe-test) (define os (marionette-operating-system %bffe-os #:imported-modules '((gnu services herd) (guix combinators)))) (define forwarded-port 8767) (define vm (virtual-machine (operating-system os) (memory-size 1024) (port-forwardings `((,forwarded-port . 8767))))) (define test (with-imported-modules '((gnu build marionette)) #~(begin (use-modules (srfi srfi-11) (srfi srfi-64) (gnu build marionette) (web uri) (web client) (web response)) (define marionette (make-marionette (list #$vm))) (test-runner-current (system-test-runner #$output)) (test-begin "bffe") (test-assert "service running" (marionette-eval '(begin (use-modules (gnu services herd)) (match (start-service 'bffe) (#f #f) (('service response-parts ...) (match (assq-ref response-parts 'running) ((pid) pid))))) marionette)) (test-equal "http-get" 200 (let-values (((response text) (http-get #$(simple-format #f "http://localhost:~A/" forwarded-port) #:decode-body? #t))) (response-code response))) (test-end)))) (gexp->derivation "bffe-test" test)) (define %test-bffe (system-test (name "bffe") (description "Connect to a running Build Farm Front-end.") (value (run-bffe-test))))


context:
space:
mode: