amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: Add rabbitmq service.

Browse source 
* gnu/services/high-availability.scm (<rabbitmq-configuration>): New record.
  (rabbitmq-shepherd-service): New procedure.
  (rabbitmq-service-type): New variable.
* gnu/tests/high-availability.scm (run-rabbitmq-test): New procedure.
  (%rabbitmq-os, %tests-rabbitmq): New variables.
* doc/gnu.texi (High Availability Services): Document it.

Change-Id: I53e9f2881b6340e1ed314785e4c5529b81381a3b
Co-authored-by: Christopher Baines <mail@cbaines.net>
Reviewed-by: Ludovic Courtès <ludo@gnu.org>
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
This commit is contained in:
wrobell 2025-06-18 21:41:36 +01:00 • committed by Sharlatan Hellseher
parent 27c3c7c4ed
commit c65da197cf
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5
4 changed files with 317 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

105
gnu/tests/high-availability.scm Normal file
View file

@ -0,0 +1,105 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2025 Artur Wroblewski <wrobell@riseup.net>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu tests high-availability)
#: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 high-availability)
#:use-module (gnu services networking)
#:use-module (guix gexp)
#:use-module (guix store)
#:export (%test-rabbitmq))
(define %rabbitmq-config-file
(plain-file "rabbitmq.conf" "
listeners.tcp.1 = 127.0.0.1:15672
listeners.tcp.2 = ::1:15672
"))
(define %rabbitmq-os
(simple-operating-system
(service rabbitmq-service-type
(rabbitmq-configuration (config-file %rabbitmq-config-file)))))
(define* (run-rabbitmq-test #:key (rabbitmq-port 15672))
"Run tests in %RABBITMQ-OS, forwarding PORT."
(define os
(marionette-operating-system
%rabbitmq-os
#:imported-modules '((gnu services herd)
(guix combinators))))
(define forwarded-port 15672)
(define vm
(virtual-machine
(operating-system os)
(memory-size 512)
(port-forwardings `((,rabbitmq-port . ,forwarded-port)))))
(define test
(with-imported-modules '((gnu build marionette))
#~(begin
(use-modules (srfi srfi-64)
(gnu build marionette)
(ice-9 rdelim))
(define marionette
(make-marionette (list #$vm)))
(mkdir #$output)
(chdir #$output)
(test-runner-current (system-test-runner #$output))
(test-begin "rabbitmq")
;; Wait for RabbitMQ broker to be up and running.
(test-assert "service running"
(marionette-eval
'(begin
(use-modules (gnu services herd))
(match (start-service 'rabbitmq)
(#f #f)
(('service response-parts ...)
(match (assq-ref response-parts 'running)
((#t) #t)
((pid) pid)))))
marionette))
(test-assert "RabbitMQ port ready"
(wait-for-tcp-port #$forwarded-port marionette))
(test-assert "RabbitMQ log file exists"
(marionette-eval
'(file-exists? "/var/log/rabbitmq/rabbit@komputilo.log")
marionette))
(test-end))))
(gexp->derivation "rabbitmq-test" test))
(define %test-rabbitmq
(system-test
(name "rabbitmq")
(description "Connect to a running RABBITMQ server.")
(value (run-rabbitmq-test))))