From afe3ff9aaab1ba1d0655a5c939e020f0a5a386dc Mon Sep 17 00:00:00 2001
From: kgv <kgv@opencascade.com>
Date: Sat, 3 Oct 2020 12:48:19 +0300
Subject: [PATCH] 0031820: Tests - "dlog get" skips last exception when calling
 'test" with echo OFF

Added missing puts to "test" command.
---
 src/DrawResources/TestCommands.tcl | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index b46828f9cb..c1772573cd 100644
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -1319,7 +1319,6 @@ proc _run_test {scriptsdir group gridname casefile echo} {
 
     # evaluate test case 
     set tmp_imagedir 0
-    set anExcep ""
     if [catch {
         # set variables identifying test case
         uplevel set casename [file tail $casefile]
@@ -1369,15 +1368,21 @@ proc _run_test {scriptsdir group gridname casefile echo} {
             uplevel source -encoding utf-8 $scriptsdir/$group/end
         }
     } res] {
-        set anExcep $res
-        if { "$res" == "" } { set anExcep "EMPTY" }
+        if { "$res" == "" } { set res "EMPTY" }
+        # in echo mode, output error message using dputs command to have it colored,
+        # note that doing the same in logged mode would duplicate the message
+        if { ! $dlog_exists || ! $echo } {
+            puts "Tcl Exception: $res"
+        } else {
+            decho off
+            dputs -red -intense "Tcl Exception: $res"
+        }
     }
 
     # stop logging
     if { $dlog_exists } {
         if { $echo } {
             decho off
-            if { "$anExcep" != "" } { dputs -red -intense "Tcl Exception: $res" }
         } else {
             rename puts {}
             rename puts-saved puts