From 130421225ed87fa3a2feaa4056c090000f7ffcb8 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Sat, 8 Nov 2025 11:17:10 +0100
Subject: [PATCH] gnu: tests: Fix timescaledb test.

The telemtry error message now looks like:

2025-11-08 11:04:23 localhost postgres[222]: [57-83]
2025-11-08 10:04:23.196 GMT [222] CONTEXT: SQL expression "telemetry_string"
2025-11-08 11:04:23 localhost postgres[222]: [57-84] PL/pgSQL function inline_code_block line 16 at RAISE
2025-11-08 11:04:23 localhost postgres[222]: [57-85]
2025-11-08 10:04:23.196 GMT [222] STATEMENT: CREATE EXTENSION timescaledb
2025-11-08 11:04:23 localhost postgres[234]: [8-1]
2025-11-08 10:04:23.267 GMT [234] LOG: job 3 threw an error
2025-11-08 11:04:23 localhost postgres[234]: [9-1]
2025-11-08 10:04:23.268 GMT [234] ERROR: functionality not supported under the current "apache" license. Learn more at https://timescale.com/.
2025-11-08 11:04:23 localhost postgres[234]: [9-2]
2025-11-08 10:04:23.268 GMT [234] HINT: To access all features and the best time-series experience, try out Timescale Cloud.
2025-11-08 11:04:23 localhost postgres[151]: [8-1]
2025-11-08 10:04:23.270 GMT [151] LOG: background worker "Job History Log Retention Policy [3]" (PID 234) exited with exit code 1

* gnu/tests/databases.scm (run-timescaledb-test): The error message is now
part of the syslog and not displayed by psql anymore.

Fixes: guix/guix#3551
Change-Id: I60a0615add53e30b9b26f760f5cacbbdbe14a36c
---
 gnu/tests/databases.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/gnu/tests/databases.scm b/gnu/tests/databases.scm
index 4d4ed1004dd..47283ff358a 100644
--- a/gnu/tests/databases.scm
+++ b/gnu/tests/databases.scm
@@ -399,10 +399,9 @@
           (test-assert "telemetry is disabled"
             (marionette-eval
              '(begin
-                (string-contains (call-with-input-file "timescaledb.stderr"
-                                   (lambda (port)
-                                     (get-string-all port)))
-                                 "Please enable telemetry"))
+                (let* ((log-file "/var/log/messages")
+                       (log (call-with-input-file log-file get-string-all)))
+                  (string-contains log "functionality not supported")))
              marionette))
 
           (test-assert "create hypertable"