summaryrefslogtreecommitdiff
path: root/gnu/tests
diff options
context:
space:
mode:
authorIan Eure <ian@retrospec.tv>2025-09-14 11:07:25 -0700
committerIan Eure <ian@retrospec.tv>2025-09-14 11:13:17 -0700
commit96c30d2bf650ca62beec280d541a0b52f2b6fc7d (patch)
tree278103d1d1ab769007063afb5ad9266746435694 /gnu/tests
parent70b380bdf49831e294b253089d375b5440e5095f (diff)
gnu: Remove Tailon services and documentation.
The tailon package was removed in 63023deaf96bd0d90aba262b194bf1445ec5a0b6, but the associated service and documentation weren’t, leading to `guix pull` breaking. Fixes guix/guix#2689. * doc/guix.texi: Remove Tailon documentation. * gnu/services/web.scm (tailon-service-type): Delete variable. (tailon-configuration-file): Delete variable. (tailon-configuration-file?): Delete variable. (tailon-configuration-file-files): Delete variable. (tailon-configuration-file-bind): Delete variable. (tailon-configuration-file-relative-root): Delete variable. (tailon-configuration-file-allow-transfers?): Delete variable. (tailon-configuration-file-follow-names?): Delete variable. (tailon-configuration-file-tail-lines): Delete variable. (tailon-configuration-file-allowed-commands): Delete variable. (tailon-configuration-file-debug?): Delete variable. (tailon-configuration-file-http-auth): Delete variable. (tailon-configuration-file-users): Delete variable (tailon-configuration): Delete variable. (tailon-configuration?): Delete variable. (tailon-configuration-config-file): Delete variable. (tailon-configuration-package): Delete variable. * gnu/tests/web.scm (%test-tailon): Delete variable. Change-Id: I3b507df8233b0440baa6a2bce4604b5813cb3bb0
Diffstat (limited to 'gnu/tests')
-rw-r--r--gnu/tests/web.scm71
1 files changed, 0 insertions, 71 deletions
diff --git a/gnu/tests/web.scm b/gnu/tests/web.scm
index 08151951fac..4d7a8c59d66 100644
--- a/gnu/tests/web.scm
+++ b/gnu/tests/web.scm
@@ -54,7 +54,6 @@
%test-varnish
%test-php-fpm
%test-hpcguix-web
- %test-tailon
%test-anonip
%test-patchwork
%test-agate))
@@ -480,76 +479,6 @@ HTTP-PORT, along with php-fpm."
(value (run-hpcguix-web-server-test name %hpcguix-web-os))))
-(define %tailon-os
- ;; Operating system under test.
- (simple-operating-system
- (service dhcpcd-service-type)
- (service tailon-service-type
- (tailon-configuration
- (config-file
- (tailon-configuration-file
- (bind "0.0.0.0:8080")))))))
-
-(define* (run-tailon-test #:optional (http-port 8081))
- "Run tests in %TAILON-OS, which has tailon running and listening on
-HTTP-PORT."
- (define os
- (marionette-operating-system
- %tailon-os
- #:imported-modules '((gnu services herd)
- (guix combinators))))
-
- (define vm
- (virtual-machine
- (operating-system os)
- (port-forwardings `((,http-port . 8080)))))
-
- (define test
- (with-imported-modules '((gnu build marionette))
- #~(begin
- (use-modules (srfi srfi-11) (srfi srfi-64)
- (ice-9 match)
- (gnu build marionette)
- (web uri)
- (web client)
- (web response))
-
- (define marionette
- ;; Forward the guest's HTTP-PORT, where tailon is listening, to
- ;; port 8080 in the host.
- (make-marionette (list #$vm)))
-
- (test-runner-current (system-test-runner #$output))
- (test-begin "tailon")
-
- (test-assert "service running"
- (wait-for-tcp-port 8080 marionette))
-
- (test-equal "http-get"
- 200
- (#$retry-on-error
- (lambda ()
- (let-values (((response text)
- (http-get #$(format
- #f
- "http://localhost:~A/"
- http-port)
- #:decode-body? #t)))
- (response-code response)))
- #:times 10
- #:delay 5))
-
- (test-end))))
-
- (gexp->derivation "tailon-test" test))
-
-(define %test-tailon
- (system-test
- (name "tailon")
- (description "Connect to a running Tailon server.")
- (value (run-tailon-test))))
-
-
;;;
;;; Anonip
;;;