0028937: Tests, testdiff - link image in diff to the test cases log
authorkgv <kgv@opencascade.com>
Sat, 22 Jul 2017 10:58:22 +0000 (13:58 +0300)
committerbugmaster <bugmaster@opencascade.com>
Thu, 27 Jul 2017 10:59:40 +0000 (13:59 +0300)
src/DrawResources/TestCommands.tcl

index 1f800a9..f0d13c8 100644 (file)
@@ -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] } {