OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
Code Packages Releases Activity

0031820: Tests - "dlog get" skips last exception when calling 'test" with echo OFF

Browse Source 
Added missing puts to "test" command.
This commit is contained in:
kgv 2020-10-03 12:48:19 +03:00 committed by bugmaster
parent b9ec690a2f
commit afe3ff9aaa
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/DrawResources/TestCommands.tcl
View File

@ -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