From: kgv <kgv@opencascade.com>
Date: Thu, 16 Aug 2018 11:42:30 +0000 (+0300)
Subject: 0030071: Tests - locate_data_file does not skip .git folders
X-Git-Tag: OCCT_VC2017_73~23
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=343f7e4d34095d209d579cc0af881d6ac0e2c5b3;p=occt-copy.git

0030071: Tests - locate_data_file does not skip .git folders

Regexp is now applied to subfolder name to filter folders starting with dot.
---

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index cbc7eb9dfa..2c994bac23 100644
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -1041,8 +1041,10 @@ proc locate_data_file {filename} {
             while {[llength $dir] != 0} { 
                 set name [lindex $dir 0]
                 set dir [lrange $dir 1 end]
+
                 # skip directories starting with dot
-                if { [regexp {^[.]} $name] } { continue }
+                set aTail [file tail $name]
+                if { [regexp {^[.]} $aTail] } { continue }
                 if { [file exists $name/$filename] } {
                     return [file normalize $name/$filename]
                 }