From 317c0644ccf108aa23ef3fd8358bd66c2840bfc0 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sun, 14 Apr 2024 15:40:54 +0200
Subject: Adding upstream version 5:7.2.4.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 tests/integration/logging.tcl | 61 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 tests/integration/logging.tcl

(limited to 'tests/integration/logging.tcl')

diff --git a/tests/integration/logging.tcl b/tests/integration/logging.tcl
new file mode 100644
index 0000000..4f8639b
--- /dev/null
+++ b/tests/integration/logging.tcl
@@ -0,0 +1,61 @@
+tags {"external:skip"} {
+
+set system_name [string tolower [exec uname -s]]
+set backtrace_supported 0
+
+# We only support darwin or Linux with glibc
+if {$system_name eq {darwin}} {
+    set backtrace_supported 1
+} elseif {$system_name eq {linux}} {
+    # Avoid the test on libmusl, which does not support backtrace
+    # and on static binaries (ldd exit code 1) where we can't detect libmusl
+    catch {
+        set ldd [exec ldd src/redis-server]
+        if {![string match {*libc.*musl*} $ldd]} {
+            set backtrace_supported 1
+        }
+    }
+}
+
+if {$backtrace_supported} {
+    set server_path [tmpdir server.log]
+    start_server [list overrides [list dir $server_path]] {
+        test "Server is able to generate a stack trace on selected systems" {
+            r config set watchdog-period 200
+            r debug sleep 1
+            set pattern "*debugCommand*"
+            set res [wait_for_log_messages 0 \"$pattern\" 0 100 100]
+            if {$::verbose} { puts $res }
+        }
+    }
+}
+
+# Valgrind will complain that the process terminated by a signal, skip it.
+if {!$::valgrind} {
+    if {$backtrace_supported} {
+        set crash_pattern "*STACK TRACE*"
+    } else {
+        set crash_pattern "*crashed by signal*"
+    }
+
+    set server_path [tmpdir server1.log]
+    start_server [list overrides [list dir $server_path crash-memcheck-enabled no]] {
+        test "Crash report generated on SIGABRT" {
+            set pid [s process_id]
+            exec kill -SIGABRT $pid
+            set res [wait_for_log_messages 0 \"$crash_pattern\" 0 50 100]
+            if {$::verbose} { puts $res }
+        }
+    }
+
+    set server_path [tmpdir server2.log]
+    start_server [list overrides [list dir $server_path crash-memcheck-enabled no]] {
+        test "Crash report generated on DEBUG SEGFAULT" {
+            catch {r debug segfault}
+            set res [wait_for_log_messages 0 \"$crash_pattern\" 0 50 100]
+            if {$::verbose} { puts $res }
+        }
+    }
+}
+
+}
-- 
cgit v1.2.3