From 17b45a2936f4747c5b512ded60e517a4b8506a19 Mon Sep 17 00:00:00 2001
From: kgv <kgv@opencascade.com>
Date: Sat, 22 Jul 2017 13:58:22 +0300
Subject: [PATCH] 0028937: Tests, testdiff - link image in diff to the test
 cases log

---
 src/DrawResources/TestCommands.tcl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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] } {