services: web: Add go-webdav.

* gnu/services/web.scm (go-webdav-service-type): New service.
(go-webdav-account-service): New variable.
(go-webdav-shepherd-service): New procedures.
* gnu/tests/web.scm (%test-go-webdav): Add tests for the service.
* doc/guix.texi (Web Services): Document it.

Signed-off-by: Danny Milosavljevic <dannym@friendly-machines.com>

1 files changed, 22 insertions, 0 deletions

diff --git a/gnu/tests/web.scm b/gnu/tests/web.scm
index 47879aa08f7..4f07eb967a8 100644
--- a/gnu/tests/web.scm
+++ b/gnu/tests/web.scm
@@ -39,6 +39,7 @@
   #:use-module (gnu packages databases)
   #:use-module (gnu packages guile-xyz)
   #:use-module (gnu packages gnupg)
+  #:use-module (gnu packages golang-xyz)
   #:use-module (gnu packages patchutils)
   #:use-module (gnu packages python)
   #:use-module (gnu packages tls)
@@ -57,6 +58,7 @@
             %test-php-fpm
             %test-hpcguix-web
             %test-anonip
+            %test-go-webdav
             %test-patchwork
             %test-agate
             %test-miniflux-admin-string
@@ -604,6 +606,26 @@ HTTP-PORT, along with php-fpm."
 
 
 ;;;
+;;; go-webdav
+;;;
+
+(define %go-webdav-os
+  (simple-operating-system
+    (service dhcpcd-service-type)
+    (simple-service 'make-http-root activation-service-type
+                    %make-http-root)
+    (service go-webdav-service-type
+      ;; run-webserver-test requires :8080 to be used as the port.
+      '("-addr" ":8080" "/srv/http/"))))
+
+(define %test-go-webdav
+  (system-test
+    (name "go-webdav")
+    (description "Test that go-webdav can handle HTTP requests.")
+    (value (run-webserver-test name %go-webdav-os))))
+
+
+;;;
 ;;; Patchwork
 ;;;