From 56d8ad932ddeac50b0c8c645d94b8006977cc06c Mon Sep 17 00:00:00 2001
From: Oran Agra <oran@redislabs.com>
Date: Thu, 22 Oct 2020 11:34:54 +0300
Subject: [PATCH] improve verbose logging on failed test. print log file lines
 (#7938)

(cherry picked from commit c96ece9f5e7b80d65ca4d1a2b801effe68425c90)
---
 tests/support/util.tcl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/support/util.tcl b/tests/support/util.tcl
index 51125377e..6e526fa94 100644
--- a/tests/support/util.tcl
+++ b/tests/support/util.tcl
@@ -142,6 +142,10 @@ proc wait_for_log_messages {srv_idx patterns from_line maxtries delay} {
         after $delay
     }
     if {$retry == 0} {
+        if {$::verbose} {
+            puts "content of $stdout from line: $from_line:"
+            puts [exec tail -n +$from_line < $stdout]
+        }
         fail "log message of '$patterns' not found in $stdout after line: $from_line till line: [expr $next_line -1]"
     }
 }