gnu/services/databases.scm | 107 +++++++++++++++++++++++++++++++++++++++++++++
gnu/tests/databases.scm | 57 +++++++++++++++++++++++-
2 files changed, 163 insertions(+), 1 deletion(-)
Toggle diff (199 lines)
diff --git a/gnu/services/databases.scm b/gnu/services/databases.scm
index 72927c453..cbb9e1699 100644
--- a/gnu/services/databases.scm
+++ b/gnu/services/databases.scm
+ <elasticsearch-configuration>
+ elasticsearch-configuration
+ elasticsearch-configuration?
+ elasticsearch-configuration-elasticsearch
+ elasticsearch-configuration-data-path
+ elasticsearch-configuration-logs-path
+ elasticsearch-configuration-port
+ elasticsearch-configuration-transport-port
+ elasticsearch-service-type
<memcached-configuration>
@@ -260,6 +272,101 @@ and stores the database cluster in @var{data-directory}."
(data-directory data-directory))))
+(define-record-type* <elasticsearch-configuration>
+ elasticsearch-configuration make-elasticsearch-configuration
+ elasticsearch-configuration?
+ (elasticsearch elasticsearch-configuration-elasticsearch
+ (default elasticsearch))
+ (data-path elasticsearch-configuration-data-path
+ (logs-path elasticsearch-configuration-logs-path
+ (default "/var/log/elasticsearch"))
+ (http-port elasticsearch-configuration-port
+ (transport-port elasticsearch-configuration-transport-port
+(define (elasticsearch-configuration-directory
+ data-path logs-path http-port transport-port)
+ (mkdir (string-append #$output "/scripts"))
+ (call-with-output-file (string-append #$output "/elasticsearch.yml")
+ "path.data: " #$data-path "\n"
+ "path.logs: " #$logs-path "\n"
+ "http.port: " #$(number->string http-port) "\n"
+ "transport.tcp.port: " #$(number->string transport-port) "\n")
+(define %elasticsearch-accounts
+ (list (user-group (name "elasticsearch") (system? #t))
+ (group "elasticsearch")
+ (comment "Elasticsearch server user")
+ (home-directory "/var/empty")
+ (shell (file-append shadow "/sbin/nologin")))))
+(define elasticsearch-activation
+ (($ <elasticsearch-configuration> elasticsearch data-path logs-path
+ http-port transport-port)
+ (use-modules (guix build utils)
+ (let ((user (getpwnam "elasticsearch")))
+ ;; Create db state directory.
+ (chown path (passwd:uid user) (passwd:gid user)))
+ '(#$data-path #$logs-path "/var/run/elasticsearch")))))))
+(define elasticsearch-shepherd-service
+ (($ <elasticsearch-configuration> elasticsearch data-path logs-path
+ http-port transport-port)
+ (list (shepherd-service
+ (provision '(elasticsearch))
+ (documentation "Run the Elasticsearch daemon.")
+ (requirement '(user-processes syslogd))
+ (start #~(make-forkexec-constructor
+ (string-append #$elasticsearch "/bin/elasticsearch")
+ "-p" "/var/run/elasticsearch/pid"
+ #$(elasticsearch-configuration-directory
+ data-path logs-path http-port transport-port)))
+ #:pid-file "/var/run/elasticsearch/pid"
+ #:log-file "/var/log/elasticsearch.log"))
+ (stop #~(make-kill-destructor)))))))
+(define elasticsearch-service-type
+ (service-type (name 'elasticsearch)
+ (list (service-extension shepherd-root-service-type
+ elasticsearch-shepherd-service)
+ (service-extension activation-service-type
+ elasticsearch-activation)
+ (service-extension account-service-type
+ (const %elasticsearch-accounts))))
+ (default-value (elasticsearch-configuration))))
diff --git a/gnu/tests/databases.scm b/gnu/tests/databases.scm
index 5c8ca85c1..e07a1f9dd 100644
--- a/gnu/tests/databases.scm
+++ b/gnu/tests/databases.scm
#:export (%test-memcached
(description "Start the MySQL service.")
(value (run-mysql-test))))
+;;; The Elasticsearch service.
+(define %elasticsearch-os
+ (simple-operating-system
+ (service elasticsearch-service-type)))
+(define (run-elasticsearch-test)
+ "Run tests in %ELASTICSEARCH-OS."
+ (marionette-operating-system
+ #:imported-modules '((gnu services herd)
+ (with-imported-modules '((gnu build marionette))
+ (use-modules (srfi srfi-64)
+ (gnu build marionette))
+ (make-marionette (list #$vm)))
+ (test-begin "elasticsearch")
+ (test-assert "service running"
+ (use-modules (gnu services herd))
+ (start-service 'elasticsearch))
+ (exit (= (test-runner-fail-count (test-runner-current)) 0)))))
+ (gexp->derivation "elasticsearch-test" test))
+(define %test-elasticsearch
+ (description "Start the Elasticsearch service.")
+ (value (run-elasticsearch-test))))