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

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

Browse Source
This commit is contained in:
kgv 2017-07-22 13:58:22 +03:00 committed by bugmaster
parent 6a2ed6e82b
commit 17b45a2936
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/DrawResources/TestCommands.tcl
View 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] } {