From: kgv <kgv@opencascade.com>
Date: Sat, 22 Jul 2017 10:58:22 +0000 (+0300)
Subject: 0028937: Tests, testdiff - link image in diff to the test cases log
X-Git-Tag: V7_2_0_beta~19
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=17b45a2936f4747c5b512ded60e517a4b8506a19;p=occt-copy.git

0028937: Tests, testdiff - link image in diff to the test cases log
---

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index 1f800a9e95..f0d13c8717 100644
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -2176,8 +2176,9 @@ proc _log_html_diff {file log dir1 dir2 highlight_percent} {
                 # note: special handler for the case if test grid directoried are compared directly
                 set gridpath ""
             }
-            set img1 "<img src=\"[_make_url $file [file join $dir1 $gridpath $img]]\">"
-            set img2 "<img src=\"[_make_url $file [file join $dir2 $gridpath $img]]\">"
+            set aCaseName [lindex $case end]
+            set img1 "<a href=\"[_make_url $file [file join $dir1 $gridpath $aCaseName.html]]\"><img src=\"[_make_url $file [file join $dir1 $gridpath $img]]\"></a>"
+            set img2 "<a href=\"[_make_url $file [file join $dir2 $gridpath $aCaseName.html]]\"><img src=\"[_make_url $file [file join $dir2 $gridpath $img]]\"></a>"
 
             set difffile [_diff_img_name $dir1 $dir2 $gridpath $img]
             if { [file exists $difffile] } {