diff options
| author | Ian Eure <ian@retrospec.tv> | 2025-09-14 11:07:25 -0700 |
|---|---|---|
| committer | Ian Eure <ian@retrospec.tv> | 2025-09-14 11:13:17 -0700 |
| commit | 96c30d2bf650ca62beec280d541a0b52f2b6fc7d (patch) | |
| tree | 278103d1d1ab769007063afb5ad9266746435694 /gnu/tests | |
| parent | 70b380bdf49831e294b253089d375b5440e5095f (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.scm | 71 |
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 ;;; |
