From: abv <abv@opencascade.com>
Date: Thu, 28 Feb 2013 10:00:27 +0000 (+0400)
Subject: 0023803: Mess with snapshot images in the test case reports
X-Git-Tag: V6_6_0_beta~40
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=3b21f8ae43cea02c67650947ec68ba1cf32189a0;p=occt-copy.git

0023803: Mess with snapshot images in the test case reports

Adding a caption (the file name) to each image included in the HTML test log
---

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index c2bb23ad3b..1b057f196a 100644
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -1175,7 +1175,7 @@ proc _log_html {file log {title {}}} {
     # add images if present
     set imgbasename [file rootname [file tail $file]]
     foreach img [lsort [glob -nocomplain -directory [file dirname $file] -tails ${imgbasename}*.gif ${imgbasename}*.png ${imgbasename}*.jpg]] {
-	puts $fd "<p><img src=\"$img\"/><p>"
+	puts $fd "<p>[file tail $img]<br><img src=\"$img\"/><p>"
     }
 
     # print log body, trying to add HTML links to script files on lines like